Perl Requires Chilkat v9.5.0.77+

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

See more Certificates Examples

Load a binary .crl file (Certificate Revocation List), converts to XML, and then gets the revoked certificate serial numbers and revocation dates. 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 a binary .crl file.
my $bdCrl = Chilkat2::BinData->new;
my $success = $bdCrl->LoadFile('qa_data/crl/ca1.crl');
if (!$success) {
    print "Failed to load CRL file.\n";
    exit;
}

my $asn = Chilkat2::Asn->new;
$success = $asn->LoadBd($bdCrl);
if (!$success) {
    print $asn->LastErrorText, "\n";
    exit;
}

# Convert ASN.1 to XML and load into xml and re-emit for pretty printing..
my $xml = Chilkat2::Xml->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
my $tagPath = '';
my $j = 0;
my $count_j = 0;
my $k = 0;
my $count_k = 0;

my $revokedCertSerialHex = '';
my $dateRevoked = '';

my $dt = Chilkat2::DateTime->new;

my $i = 0;
my $count_i = $xml->NumChildrenHavingTag('sequence');
while ($i < $count_i) {
    $xml->I($i);

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

        $k = 0;
        $count_k = $xml->NumChildrenHavingTag('sequence[i]|sequence[j]|sequence');
        while ($k < $count_k) {
            $xml->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, "\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');

            # Date/time strings formatted as YYMMDDhhmmssZ can be parsed as follows:
            $dt->SetFromTimestamp($dateRevoked);
            print 'date revoked: ', $dt->GetAsRfc822(0), "\n";

            $k = $k + 1;
        }

        $j = $j + 1;
    }

    $i = $i + 1;
}