(Perl) Verify XML Digital Signature

Verifies XML signatures in an XML file.

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.

$sbXml = chilkat::CkStringBuilder->new();
$success = $sbXml->LoadFile("qa_data/xml_dsig_verify/csioz_sample.xml","utf-8");
if ($success != 1) {
    print "Failed to load XML file." . "\r\n";
    exit;
}

$dsig = chilkat::CkXmlDSig->new();

# First load the XML containing the signatures to be verified.
$success = $dsig->LoadSignatureSb($sbXml);
if ($success != 1) {
    print $dsig->lastErrorText() . "\r\n";
    exit;
}

# It's possible that an XML document can contain multiple signatures.
# Each can be verified as follows:
$i = 0;
while ($i < $dsig->get_NumSignatures()) {
    # Select the Nth signature by setting the Selector property.
    $dsig->put_Selector($i);

    # The bVerifyReferenceDigests argument determines if we want
    # to also verify each reference digest.  If set to 0,
    # then only the SignedInfo part of the Signature is verified.
    $bVerifyReferenceDigests = 1;
    $bVerified = $dsig->VerifySignature($bVerifyReferenceDigests);
    print "Signature " . ($i + 1) . " verified = " . $bVerified . "\r\n";

    $i = $i + 1;
}