Classic ASP Requires Chilkat v11.7.0+

Password-Protect a PDF with AES-256 Encryption

See more PDF Protection Examples

Demonstrates the simplest way to encrypt a PDF so that it needs a password to open. The passwords come from the UserPassword and OwnerPassword properties, and Protection with the encrypt operation and an empty JSON uses the defaults: AES-256, everything encrypted, every permission granted. Protection only records the security the PDF will be saved with. Nothing is encrypted until WriteFile is called. Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  The PDF used in this example is available at two_page_memo.pdf

set pdf = Server.CreateObject("Chilkat.Pdf")
success = pdf.LoadFile("qa_data/pdf/two_page_memo.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf.LastErrorText) & "</pre>"
    Response.End
End If

'  The passwords are taken from these two properties at the time Protection is called.
'  The user password opens the PDF.  The owner password opens it too, and is the one needed
'  later to change or remove the protection.
pdf.UserPassword = "user-secret"
pdf.OwnerPassword = "owner-secret"

'  An empty JSON asks for the defaults: AES-256, everything encrypted, every permission granted.
set json = Server.CreateObject("Chilkat.JsonObject")
set jsonOut = Server.CreateObject("Chilkat.JsonObject")
success = pdf.Protection("encrypt",json,jsonOut)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf.LastErrorText) & "</pre>"
    Response.End
End If

'  Nothing has been encrypted yet.  "pending" describes the security the PDF will be saved with.
Response.Write "<pre>" & Server.HTMLEncode( "algorithm: " & jsonOut.StringOf("pending.algorithm")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "PDF version: " & jsonOut.StringOf("pending.pdfVersion")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "password needed to open: " & jsonOut.BoolOf("pending.userPasswordRequired")) & "</pre>"

'  Writing the file applies it.
success = pdf.WriteFile("qa_output/memo_encrypted.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdf.LastErrorText) & "</pre>"
    Response.End
End If

'  PreLoadCheck reports a file's encryption without loading it, and needs no password.
set checker = Server.CreateObject("Chilkat.Pdf")
set info = Server.CreateObject("Chilkat.JsonObject")
success = checker.PreLoadCheck("qa_output/memo_encrypted.pdf",info)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( checker.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "encrypted: " & info.BoolOf("encrypted")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "openPasswordRequired: " & info.BoolOf("openPasswordRequired")) & "</pre>"

'  With the password, the PDF opens normally.
set reader = Server.CreateObject("Chilkat.Pdf")
reader.UserPassword = "user-secret"
success = reader.LoadFile("qa_output/memo_encrypted.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( reader.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "pages: " & reader.NumPages) & "</pre>"

'  Sample output:

'  algorithm: aes-256
'  PDF version: 1.7
'  password needed to open: True
'  encrypted: True
'  openPasswordRequired: True
'  pages: 2

%>
</body>
</html>