Tcl 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.

Tcl

load ./chilkat.dll

set success 0

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

set pdf [new_CkPdf]

#  Load a PDF.
set success [CkPdf_LoadFile $pdf "c:/someDir/sample.pdf"]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    exit
}

#  Get information about the PDF that was collected in the call to LoadFile.
set ljd [new_CkJsonObject]

CkPdf_GetLastJsonData $pdf $ljd

CkJsonObject_put_EmitCompact $ljd 0

puts [CkJsonObject_emit $ljd]

#  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

set pdfVersion [CkJsonObject_stringOf $ljd "pdfVersion"]
set Filter [CkJsonObject_stringOf $ljd "encrypt.filter"]
set KeyLength [CkJsonObject_IntOf $ljd "encrypt.keyLength"]
set V [CkJsonObject_IntOf $ljd "encrypt.V"]
set R [CkJsonObject_IntOf $ljd "encrypt.R"]
set P [CkJsonObject_IntOf $ljd "encrypt.P"]
set PrintLowResolution [CkJsonObject_stringOf $ljd "encrypt.perm.printLowResolution"]
set PrintHighResolution [CkJsonObject_stringOf $ljd "encrypt.perm.printHighResolution"]
set ModifyOther [CkJsonObject_stringOf $ljd "encrypt.perm.modifyOther"]
set ModifyAnnotations [CkJsonObject_stringOf $ljd "encrypt.perm.modifyAnnotations"]
set ModifyForms [CkJsonObject_stringOf $ljd "encrypt.perm.modifyForms"]
set FillInForms [CkJsonObject_stringOf $ljd "encrypt.perm.fillInForms"]
set AssembleDoc [CkJsonObject_stringOf $ljd "encrypt.perm.assembleDoc"]
set ExtractAnyPurpose [CkJsonObject_stringOf $ljd "encrypt.perm.extractAnyPurpose"]
set ExtractAccessibility [CkJsonObject_stringOf $ljd "encrypt.perm.extractAccessibility"]
set Method [CkJsonObject_stringOf $ljd "encrypt.method"]

delete_CkPdf $pdf
delete_CkJsonObject $ljd