(Perl) PDF Get Encryption and Permissions Information

See more PDF Signatures Examples

Determine if a PDF is encrypted, and the associated user permissions.

Note: Some PDFs are encrypted but not password-protected. In such cases, encryption is used primarily for preventing unauthorized modifications to the document, but it doesn't restrict access. Therefore, you can open and read the document without a password.

Note: This example requires Chilkat v9.5.0.96 or later.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$pdf = chilkat::CkPdf->new();

# Open a PDF.
# Starting in Chilkat v9.5.0.96, the LastJsonData will contain information about encryption and permissions.
$success = $pdf->LoadFile("c:/someDir/sample.pdf");
if ($success == 0) {
    print $pdf->lastErrorText() . "\r\n";
    exit;
}

# Examine the LastJsonData
# ljd is a JsonObject
$ljd = $pdf->LastJsonData();
$ljd->put_EmitCompact(0);

print $ljd->emit() . "\r\n";

# Sample output:

# {
#   "pdfVersion": "1.6",
#   "encrypt": {
#     "filter": "/Standard",
#     "keyLength": 128,
#     "V": 4,
#     "R": 4,
#     "P": -1340,
#     "perm": {
#       "printLowResolution": "allowed",
#       "printHighResolution": "allowed",
#       "modifyOther": "not allowed",
#       "modifyAnnotations": "allowed",
#       "modifyForms": "not allowed",
#       "fillInForms": "allowed",
#       "assembleDoc": "allowed",
#       "extractAnyPurpose": "not allowed",
#       "extractAccessibility": "not allowed"
#     },
#     "method": "AESV2"
#   }
# }

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

$pdfVersion = $ljd->stringOf("pdfVersion");
$Filter = $ljd->stringOf("encrypt.filter");
$KeyLength = $ljd->IntOf("encrypt.keyLength");
$V = $ljd->IntOf("encrypt.V");
$R = $ljd->IntOf("encrypt.R");
$P = $ljd->IntOf("encrypt.P");
$PrintLowResolution = $ljd->stringOf("encrypt.perm.printLowResolution");
$PrintHighResolution = $ljd->stringOf("encrypt.perm.printHighResolution");
$ModifyOther = $ljd->stringOf("encrypt.perm.modifyOther");
$ModifyAnnotations = $ljd->stringOf("encrypt.perm.modifyAnnotations");
$ModifyForms = $ljd->stringOf("encrypt.perm.modifyForms");
$FillInForms = $ljd->stringOf("encrypt.perm.fillInForms");
$AssembleDoc = $ljd->stringOf("encrypt.perm.assembleDoc");
$ExtractAnyPurpose = $ljd->stringOf("encrypt.perm.extractAnyPurpose");
$ExtractAccessibility = $ljd->stringOf("encrypt.perm.extractAccessibility");
$Method = $ljd->stringOf("encrypt.method");