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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $asn = Chilkat2::Asn->new;

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

# Convert ASN.1 to XML:
my $strXml = $asn->AsnToXml();
if (!$asn->LastMethodSuccess) {
    print $asn->LastErrorText, "\n";
    exit;
}

# The XML returned by AsnToXml will be compact and not pretty-formatted.
# Use Chilkat XML to format the XML better:
my $xml = Chilkat2::Xml->new;
$success = $xml->LoadXml($strXml);
# Assuming success for this example..
# This is formatted better for human viewing:
print $xml->GetXml(), "\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.
my $strBase64 = $asn->GetEncodedDer('base64');

# Load the ASN.1 from XML:
my $asn2 = Chilkat2::Asn->new;
$success = $asn2->LoadAsnXml($xml->GetXml());
if (!$success) {
    print $asn2->LastErrorText, "\n";
    exit;
}

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