(Perl) Convert ASN.1 to/from Binary DER, XML, and Base64

Demonstrates how to convert ASN.1 from and to any of the following formats: binary DER, Base64, and XML.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$asn = chilkat::CkAsn->new();

#  Begin with loading ASN.1 from a binary DER/BER format file.
$success = $asn->LoadBinaryFile("/Users/chilkat/testData/p7b/test.p7b");
if ($success != 1) {
    print $asn->lastErrorText() . "\r\n";
    exit;
}

#  Convert ASN.1 to XML:
$strXml = $asn->asnToXml();
if ($asn->get_LastMethodSuccess() != 1) {
    print $asn->lastErrorText() . "\r\n";
    exit;
}

#  The XML returned by AsnToXml will be compact and not pretty-formatted.
#  Use Chilkat XML to format the XML better:
$xml = chilkat::CkXml->new();
$success = $xml->LoadXml($strXml);
#  Assuming success for this example..
#  This is formatted better for human viewing:
print $xml->getXml() . "\r\n";

#  Now get the ASN.1 in base64 format.  Any encoding supported
#  by Chilkat can be passed, such as "hex", "uu", "quoted-printable", "base32", "modbase64", etc.
$strBase64 = $asn->getEncodedDer("base64");

#  Load the ASN.1 from XML:
$asn2 = chilkat::CkAsn->new();
$success = $asn2->LoadAsnXml($xml->getXml());
if ($success != 1) {
    print $asn2->lastErrorText() . "\r\n";
    exit;
}

#  Load the ASN.1 from an encoded string, such as base64:
$asn3 = chilkat::CkAsn->new();
$success = $asn3->LoadEncoded($strBase64,"base64");
if ($success != 1) {
    print $asn3->lastErrorText() . "\r\n";
    exit;
}