Delphi DLL

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.

Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Pdf, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
pdf: HCkPdf;
ljd: HCkJsonObject;
pdfVersion: PWideChar;
Filter: PWideChar;
KeyLength: Integer;
V: Integer;
R: Integer;
P: Integer;
PrintLowResolution: PWideChar;
PrintHighResolution: PWideChar;
ModifyOther: PWideChar;
ModifyAnnotations: PWideChar;
ModifyForms: PWideChar;
FillInForms: PWideChar;
AssembleDoc: PWideChar;
ExtractAnyPurpose: PWideChar;
ExtractAccessibility: PWideChar;
Method: PWideChar;

begin
success := False;

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

pdf := CkPdf_Create();

// Load a PDF.
success := CkPdf_LoadFile(pdf,'c:/someDir/sample.pdf');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPdf__lastErrorText(pdf));
    Exit;
  end;

// Get information about the PDF that was collected in the call to LoadFile.
ljd := CkJsonObject_Create();
CkPdf_GetLastJsonData(pdf,ljd);

CkJsonObject_putEmitCompact(ljd,False);

Memo1.Lines.Add(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

pdfVersion := CkJsonObject__stringOf(ljd,'pdfVersion');
Filter := CkJsonObject__stringOf(ljd,'encrypt.filter');
KeyLength := CkJsonObject_IntOf(ljd,'encrypt.keyLength');
V := CkJsonObject_IntOf(ljd,'encrypt.V');
R := CkJsonObject_IntOf(ljd,'encrypt.R');
P := CkJsonObject_IntOf(ljd,'encrypt.P');
PrintLowResolution := CkJsonObject__stringOf(ljd,'encrypt.perm.printLowResolution');
PrintHighResolution := CkJsonObject__stringOf(ljd,'encrypt.perm.printHighResolution');
ModifyOther := CkJsonObject__stringOf(ljd,'encrypt.perm.modifyOther');
ModifyAnnotations := CkJsonObject__stringOf(ljd,'encrypt.perm.modifyAnnotations');
ModifyForms := CkJsonObject__stringOf(ljd,'encrypt.perm.modifyForms');
FillInForms := CkJsonObject__stringOf(ljd,'encrypt.perm.fillInForms');
AssembleDoc := CkJsonObject__stringOf(ljd,'encrypt.perm.assembleDoc');
ExtractAnyPurpose := CkJsonObject__stringOf(ljd,'encrypt.perm.extractAnyPurpose');
ExtractAccessibility := CkJsonObject__stringOf(ljd,'encrypt.perm.extractAccessibility');
Method := CkJsonObject__stringOf(ljd,'encrypt.method');

CkPdf_Dispose(pdf);
CkJsonObject_Dispose(ljd);

end;