(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loAsn = createobject("CkAsn")

//  Begin with loading ASN.1 from a binary DER/BER format file.
llSuccess = loAsn.LoadBinaryFile("/Users/chilkat/testData/p7b/test.p7b")
if (llSuccess <> .T.) then
    ? loAsn.LastErrorText
    release loAsn
    return
endif

//  Convert ASN.1 to XML:
lcStrXml = loAsn.AsnToXml()
if (loAsn.LastMethodSuccess <> .T.) then
    ? loAsn.LastErrorText
    release loAsn
    return
endif

//  The XML returned by AsnToXml will be compact and not pretty-formatted.
//  Use Chilkat XML to format the XML better:
loXml = createobject("CkXml")
llSuccess = loXml.LoadXml(lcStrXml)
//  Assuming success for this example..
//  This is formatted better for human viewing:
? loXml.GetXml()

//  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.
lcStrBase64 = loAsn.GetEncodedDer("base64")

//  Load the ASN.1 from XML:
loAsn2 = createobject("CkAsn")
llSuccess = loAsn2.LoadAsnXml(loXml.GetXml())
if (llSuccess <> .T.) then
    ? loAsn2.LastErrorText
    release loAsn
    release loXml
    release loAsn2
    return
endif

//  Load the ASN.1 from an encoded string, such as base64:
loAsn3 = createobject("CkAsn")
llSuccess = loAsn3.LoadEncoded(lcStrBase64,"base64")
if (llSuccess <> .T.) then
    ? loAsn3.LastErrorText
    release loAsn
    release loXml
    release loAsn2
    release loAsn3
    return
endif



release loAsn
release loXml
release loAsn2
release loAsn3