B4X

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. B4X

Dim success As Boolean = False

Dim asn As ChilkatAsn
asn.Initialize

'  Begin with loading ASN.1 from a binary DER/BER format file.
success = asn.LoadBinaryFile("/Users/chilkat/testData/p7b/test.p7b")
If success <> True Then
    Log(asn.LastErrorText)
    Return
End If


'  Convert ASN.1 to XML:
Dim strXml As String = asn.AsnToXml
If asn.LastMethodSuccess <> True Then
    Log(asn.LastErrorText)
    Return
End If


'  The XML returned by AsnToXml will be compact and not pretty-formatted.
'  Use Chilkat XML to format the XML better:
Dim xml As ChilkatXml
xml.Initialize
success = xml.LoadXml(strXml)
'  Assuming success for this example..
'  This is formatted better for human viewing:
Log(xml.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.
Dim strBase64 As String = asn.GetEncodedDer("base64")

'  Load the ASN.1 from XML:
Dim asn2 As ChilkatAsn
asn2.Initialize
success = asn2.LoadAsnXml(xml.GetXml)
If success <> True Then
    Log(asn2.LastErrorText)
    Return
End If


'  Load the ASN.1 from an encoded string, such as base64:
Dim asn3 As ChilkatAsn
asn3.Initialize
success = asn3.LoadEncoded(strBase64, "base64")
If success <> True Then
    Log(asn3.LastErrorText)
    Return
End If