(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPdf.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

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

    pdf.i = CkPdf::ckCreate()
    If pdf.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Open a PDF.
    ; Starting in Chilkat v9.5.0.96, the LastJsonData will contain information about encryption and permissions.
    success.i = CkPdf::ckLoadFile(pdf,"c:/someDir/sample.pdf")
    If success = 0
        Debug CkPdf::ckLastErrorText(pdf)
        CkPdf::ckDispose(pdf)
        ProcedureReturn
    EndIf

    ; Examine the LastJsonData
    ljd.i = CkPdf::ckLastJsonData(pdf)
    CkJsonObject::setCkEmitCompact(ljd, 0)

    Debug CkJsonObject::ckEmit(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

    pdfVersion.s = CkJsonObject::ckStringOf(ljd,"pdfVersion")
    Filter.s = CkJsonObject::ckStringOf(ljd,"encrypt.filter")
    KeyLength.i = CkJsonObject::ckIntOf(ljd,"encrypt.keyLength")
    V.i = CkJsonObject::ckIntOf(ljd,"encrypt.V")
    R.i = CkJsonObject::ckIntOf(ljd,"encrypt.R")
    P.i = CkJsonObject::ckIntOf(ljd,"encrypt.P")
    PrintLowResolution.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.printLowResolution")
    PrintHighResolution.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.printHighResolution")
    ModifyOther.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.modifyOther")
    ModifyAnnotations.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.modifyAnnotations")
    ModifyForms.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.modifyForms")
    FillInForms.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.fillInForms")
    AssembleDoc.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.assembleDoc")
    ExtractAnyPurpose.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.extractAnyPurpose")
    ExtractAccessibility.s = CkJsonObject::ckStringOf(ljd,"encrypt.perm.extractAccessibility")
    Method.s = CkJsonObject::ckStringOf(ljd,"encrypt.method")


    CkPdf::ckDispose(pdf)


    ProcedureReturn
EndProcedure