1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

   <%

     Dim DC : Set DC = Server.CreateObject("Neevia.docCreator")

     DC.setParameter "PDFEncryption", "true"
     DC.setParameter "PDFEncryptionType", "aes"

     DC.setParameter "PDFOwnerPassword", "owner"
     DC.setParameter "PDFUserPassword", "open"

     ' p - disable document printing
     ' e - disable extraction of text and graphics
     DC.setParameter "Permissions", "pe"

     Dim RVal : RVal = DC.encryptPDF("c:\users\public\in.pdf", "c:\users\public\out.pdf")
     If (RVal<>0) Then
       Response.Write "There was an error encrypting the document!!!"
     Else
       Response.Write "Done encrypting !!!"
     End If

     Set DC = Nothing

   %>