create or replace procedure Encrypt128_test 
  is
  l_blob_10 blob;
  l_blob_102 blob;
begin
  select t.blob_file
    into l_blob_10
  from store_blob_tk t
  where t.filename = 'plpdf-toolkit-install-v100.pdf';
  
  dbms_lob.createtemporary(l_blob_102,TRUE);

  l_blob_102 := plpdf_toolkit.encrypt128(
    p_inputfile => l_blob_10,
    p_opassword => 'pear12345',
    p_upassword => null,
    p_canAssemble => false,
    p_canextractcontent => false,
    p_canextractforaccessibility => false,
    p_canfillinform => false,
    p_canmodify => false,
    p_canmodifyannotations => false,
    p_canprint => false,
    p_canprintdegraded => false
    );
  
  delete from store_blob_tk where id = 102;
  insert into store_blob_tk
    (id,blob_file,filename,desctext) 
    values 
    (102,l_blob_102,'Encrypt128.pdf','id:10 plpdf-toolkit-install-v100.pdf Encrypt128');
  commit;  
end;
/