Code Samples - Neevia PDFsign/encrypt

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

   <%
     Dim NVsign : Set NVsign = Server.CreateObject("PDFsign.Neevia")

     NVsign.PDFEncrypt = true
     NVsign.PDFEncryptionType = "rc4"
     NVsign.PDFOwnerPassword = "owner"

     ' p - document printing is denied
     ' e - disable extraction of text and graphics
     NVsign.PDFPermissions = "pe" 
  
     Dim retVal : retVal = NVsign.EncryptPDF("c:\in.pdf", "c:\out.pdf")
     if retVal<>0 then
       Response.Write "Error code=" & CStr(retVal)
     else 
       Response.Write "Done"
     end if
   %>