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 %> |