(Perl) Verify XAdES with External File Reference

Demonstrates how to validate an XML digital signature that contains a reference to an external file. (This is one way of doing it..)

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.

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

$validator = chilkat::CkXmlDSig->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->put_ExternalRefDirs("qa_data/externalFiles;qa_data/xml_dsig_valid_samples/externalFile;c:/someOtherDir");

$success = $validator->LoadSignatureSb($sbXml);
if ($success == 0) {
    print $validator->lastErrorText() . "\r\n";
    exit;
}

# Validate signatures as usual..
$i = 0;
while ($i < $validator->get_NumSignatures()) {
    $validator->put_Selector($i);

    $valid = $validator->VerifySignature(1);
    print "Signature " . ($i + 1) . " and all reference digests OK = " . $valid . "\r\n";

    $i = $i + 1;
}