VBScript Requires Chilkat v11.7.0+

Remove the Password and Encryption from a PDF

See more PDF Protection Examples

Demonstrates the removeEncryption operation, which saves the PDF with no encryption at all: no password, no restrictions. It needs owner rights, so the PDF is loaded with its owner password. As with every Protection operation, the change is applied when the file is written. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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 encrypted_user_password.pdf

set pdf = CreateObject("Chilkat.Pdf")

'  Removing the encryption needs owner rights: load with the owner password.
pdf.OwnerPassword = "owner-secret"
success = pdf.LoadFile("qa_data/pdf/encrypted_user_password.pdf")
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

set json = CreateObject("Chilkat.JsonObject")
set jsonOut = CreateObject("Chilkat.JsonObject")
success = pdf.Protection("getInfo",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("encrypted, as loaded: " & jsonOut.BoolOf("loaded.encrypted"))
outFile.WriteLine("algorithm: " & jsonOut.StringOf("loaded.algorithm"))

success = pdf.Protection("removeEncryption",json,jsonOut)
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("will be saved encrypted: " & jsonOut.BoolOf("pending.encrypted"))

success = pdf.WriteFile("qa_output/minutes_unprotected.pdf")
If (success = 0) Then
    outFile.WriteLine(pdf.LastErrorText)
    WScript.Quit
End If

'  The result is an ordinary PDF that opens without a password.
set reader = CreateObject("Chilkat.Pdf")
set info = CreateObject("Chilkat.JsonObject")
success = reader.PreLoadCheck("qa_output/minutes_unprotected.pdf",info)
If (success = 0) Then
    outFile.WriteLine(reader.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("encrypted: " & info.BoolOf("encrypted"))
success = reader.LoadFile("qa_output/minutes_unprotected.pdf")
If (success = 0) Then
    outFile.WriteLine(reader.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("pages: " & reader.NumPages)

'  Sample output:

'  encrypted, as loaded: True
'  algorithm: rc4-128
'  will be saved encrypted: False
'  encrypted: False
'  pages: 1

outFile.Close