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

   <SCRIPT runat="server" language="VB">

     Sub Page_Load(Source As Object, e As EventArgs)

       Dim DC As New 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 As Integer = DC.encryptPDF("c:\users\public\in.pdf", "c:\users\public\out.pdf")
       DC = Nothing

       If (RVal<>0) Then
         Response.Write("There was an error encrypting the document!!!")
       Else
         Response.Write("Done encrypting !!!")
       End If

     End Sub

   </SCRIPT>

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

   <%@ Page Language="C#" %>
   <%@ Assembly Name = "docCreator" %>
   <%@ Import Namespace = "Neevia" %>
   <SCRIPT runat="server">

     void Page_Load(object Source, EventArgs e)
     {

       Neevia.docCreator DC = new 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" );

       int RVal = DC.encryptPDF(@"c:\users\public\in.pdf", @"c:\users\public\out.pdf");

       DC = null;

       if (RVal != 0) { 
         Response.Write("There was an error encrypting the PDF!!!");
       }else{
         Response.Write("Done !!!");
       }    

     }

   </SCRIPT>