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 Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $pdf = Chilkat2::Pdf->new;

# Load a PDF that has cryptographic signatures to be validated
my $success = $pdf->LoadFile('qa_data/pdf/sign_testing_1/helloSigned2.pdf');
if (!$success) {
    print $pdf->LastErrorText, "\n";
    exit;
}

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

# Iterate over each signature and validate each.
my $numSignatures = $pdf->NumSignatures;
my $validated = 0;
my $cert = Chilkat2::Cert->new;
my $i = 0;
while ($i < $numSignatures) {
    $validated = $pdf->VerifySignature($i, $sigInfo);
    print 'Signature ', $i, ' validated: ', ($validated ? 1 : 0), "\n";

    # After calling VerifySignature, you can get the signer certificate by calling
    # GetSignerCert with the same index.
    $success = $pdf->GetSignerCert($i, $cert);
    if ($success) {
        print 'PDF signer certificate: ', $cert->SubjectDN, "\n";
    }

    $i = $i + 1;
}

print "Finished.\n";