# Code Samples - Neevia PDFsign/encrypt

## Example 1: Encrypt a PDF file - ASP Copy

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18  <% Dim NVsign : Set NVsign = Server.CreateObject("Neevia.PDFsign") 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 %>