(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set pdf [new_CkPdf]

# Open a PDF.
# Starting in Chilkat v9.5.0.96, the LastJsonData will contain information about encryption and permissions.
set success [CkPdf_LoadFile $pdf "c:/someDir/sample.pdf"]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    exit
}

# Examine the LastJsonData
# ljd is a CkJsonObject
set ljd [CkPdf_LastJsonData $pdf]
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