(Perl) Get PDF Signer Certs

See more PDF Signatures Examples

This example demonstrates how to validate the signatures in a PDF and also shows how to get each signature's signer certificate.

Note: This example requires Chilkat v9.5.0.87 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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 that has cryptographic signatures to be validated
$success = $pdf->LoadFile("qa_data/pdf/sign_testing_1/helloSigned2.pdf");
if ($success == 0) {
    print $pdf->lastErrorText() . "\r\n";
    exit;
}

# Each time we verify a signature, information about the signature is written into
# sigInfo (replacing whatever sigInfo previously contained).
$sigInfo = chilkat::CkJsonObject->new();

# Iterate over each signature and validate each.
$numSignatures = $pdf->get_NumSignatures();
$validated = 0;
$cert = chilkat::CkCert->new();
$i = 0;
while ($i < $numSignatures) {
    $validated = $pdf->VerifySignature($i,$sigInfo);
    print "Signature " . $i . " validated: " . $validated . "\r\n";

    # The GetSignerCert method was added in Chilkat v9.5.0.87
    # After calling VerifySignature, you can get the signer certificate by calling
    # GetSignerCert with the same index. 
    $success = $pdf->GetSignerCert($i,$cert);
    if ($success != 0) {
        print "PDF signer certificate: " . $cert->subjectDN() . "\r\n";
    }

    $i = $i + 1;
}

print "Finished." . "\r\n";