(Perl) Get Certificates within XML Signature

Demonstrates how to get the certificates contained within an XML signature.

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();

# Load XML containing one or more signatures.
$success = $sbXml->LoadFile("qa_data/xml_dsig_valid_samples/multipleSigners/sp.pdf.XAdES.xml","utf-8");
if ($success == 0) {
    print "Failed to load the XML file.." . "\r\n";
    exit;
}

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

# First load the XML containing the signatures to be verified.
# Note that this particular Signature already contains the RSA public key that will be used
# for verification.
$success = $dsig->LoadSignatureSb($sbXml);
if ($success != 1) {
    print $dsig->lastErrorText() . "\r\n";
    exit;
}

# For each signature, verify and also get the certificate(s) contained within each Signature.
$i = 0;
$saCerts = chilkat::CkStringArray->new();
$cert = chilkat::CkCert->new();

print "numSignatures = " . $dsig->get_NumSignatures() . "\r\n";

while ($i < $dsig->get_NumSignatures()) {
    # Select the Nth signature by setting the Selector property.
    $dsig->put_Selector($i);

    $bVerifyReferenceDigests = 1;
    $bVerified = $dsig->VerifySignature($bVerifyReferenceDigests);
    print "Signature " . ($i + 1) . " verified = " . $bVerified . "\r\n";

    # Get the certificates embedded in this signature.
    $saCerts->Clear();
    $success = $dsig->GetCerts($saCerts);
    if ($success == 1) {
        $j = 0;
        while ($j < $saCerts->get_Count()) {
            $success = $cert->LoadFromBase64($saCerts->getString($j));
            if ($success == 1) {
                print "    " . $cert->subjectDN() . "\r\n";
            }

            $j = $j + 1;
        }

    }

    $i = $i + 1;
}