Perl Requires Chilkat v11.0.0+

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