Perl

Verify XAdES with External File Reference

See more XML Digital Signatures Examples

Demonstrates how to validate an XML digital signature that contains a reference to an external file. (This is one way of doing it..) 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.

# Load the XAdES file to be validated..
my $sbXml = Chilkat2::StringBuilder->new;
my $success = $sbXml->LoadFile('qa_data/xml_dsig_valid_samples/externalFile/test.pdf.XAdES', 'utf-8');
if (!$success) {
    print "Failed to load XAdES input file.\n";
    exit;
}

my $validator = Chilkat2::XmlDSig->new;

# Specify a set of absolute or relative directory paths to be searched for any external file references.
# Directory paths are separated by semicolon chars.
$validator->ExternalRefDirs('qa_data/externalFiles;qa_data/xml_dsig_valid_samples/externalFile;c:/someOtherDir');

$success = $validator->LoadSignatureSb($sbXml);
if (!$success) {
    print $validator->LastErrorText, "\n";
    exit;
}

# Validate signatures as usual..
my $i = 0;
while ($i < $validator->NumSignatures) {
    $validator->Selector($i);

    my $valid = $validator->VerifySignature(1);
    print 'Signature ', ($i + 1), ' and all reference digests OK = ', ($valid ? 1 : 0), "\n";

    $i = $i + 1;
}