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.

Perl

use chilkat();

$success = 0;

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

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

# Load a PDF.
$success = $pdf->LoadFile("c:/someDir/sample.pdf");
if ($success == 0) {
    print $pdf->lastErrorText() . "\r\n";
    exit;
}

# Get information about the PDF that was collected in the call to LoadFile.
$ljd = chilkat::CkJsonObject->new();
$pdf->GetLastJsonData($ljd);

$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");