(Perl) Load .crl, Convert to XML, Get Revoked Serial Numbers and Dates

Load a binary .crl file (Certificate Revocation List), converts to XML, and then gets the revoked certificate serial numbers and revocation dates.

Note: This example requires Chilkat v9.5.0.77 or greater.

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 a binary .crl file.
$bdCrl = chilkat::CkBinData->new();
$success = $bdCrl->LoadFile("qa_data/crl/ca1.crl");
if ($success != 1) {
    print "Failed to load CRL file." . "\r\n";
    exit;
}

$asn = chilkat::CkAsn->new();
$success = $asn->LoadBd($bdCrl);
if ($success != 1) {
    print $asn->lastErrorText() . "\r\n";
    exit;
}

# Convert ASN.1 to XML and load into xml and re-emit for pretty printing..
$xml = chilkat::CkXml->new();
$xml->LoadXml($asn->asnToXml());
$success = $xml->SaveXml("qa_output/crl.xml");

# Use this online tool to generate parsing code from CRL XML: 
# Generate Parsing Code from XML

# Here's code to parse the XML.  This code was generated by the above tool,
# and then we modified it by removing unneeded code and changing some names

$dt = chilkat::CkDateTime->new();

$i = 0;
$count_i = $xml->NumChildrenHavingTag("sequence");
while ($i < $count_i) {
    $xml->put_I($i);

    $j = 0;
    $count_j = $xml->NumChildrenHavingTag("sequence[i]|sequence");
    while ($j < $count_j) {
        $xml->put_J($j);

        $k = 0;
        $count_k = $xml->NumChildrenHavingTag("sequence[i]|sequence[j]|sequence");
        while ($k < $count_k) {
            $xml->put_K($k);

            # Get the revoked certificate's serial number in uppercase hex.
            $revokedCertSerialHex = $xml->getChildContent("sequence[i]|sequence[j]|sequence[k]|int");
            print "serial number: " . $revokedCertSerialHex . "\r\n";

            # Get the date/time revoked.  It will be a string formatted as "YYMMDDhhmmssZ", such as "181023093028Z"
            $dateRevoked = $xml->getChildContent("sequence[i]|sequence[j]|sequence[k]|utctime");

            # Starting in Chilkat v9.5.0.77, date/time strings formatted as YYMMDDhhmmssZ can be parsed as follows:
            $dt->SetFromTimestamp($dateRevoked);
            print "date revoked: " . $dt->getAsRfc822(0) . "\r\n";

            $k = $k + 1;
        }

        $j = $j + 1;
    }

    $i = $i + 1;
}