AutoIt

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

Local $bSuccess = False

$oAsn = ObjCreate("Chilkat.Asn")

; Begin with loading ASN.1 from a binary DER/BER format file.
$bSuccess = $oAsn.LoadBinaryFile("/Users/chilkat/testData/p7b/test.p7b")
If ($bSuccess <> True) Then
    ConsoleWrite($oAsn.LastErrorText & @CRLF)
    Exit
EndIf

; Convert ASN.1 to XML:
Local $strXml = $oAsn.AsnToXml()
If ($oAsn.LastMethodSuccess <> True) Then
    ConsoleWrite($oAsn.LastErrorText & @CRLF)
    Exit
EndIf

; The XML returned by AsnToXml will be compact and not pretty-formatted.
; Use Chilkat XML to format the XML better:
$oXml = ObjCreate("Chilkat.Xml")
$bSuccess = $oXml.LoadXml($strXml)
; Assuming success for this example..
; This is formatted better for human viewing:
ConsoleWrite($oXml.GetXml() & @CRLF)

; 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.
Local $strBase64 = $oAsn.GetEncodedDer("base64")

; Load the ASN.1 from XML:
$oAsn2 = ObjCreate("Chilkat.Asn")
$bSuccess = $oAsn2.LoadAsnXml($oXml.GetXml())
If ($bSuccess <> True) Then
    ConsoleWrite($oAsn2.LastErrorText & @CRLF)
    Exit
EndIf

; Load the ASN.1 from an encoded string, such as base64:
$oAsn3 = ObjCreate("Chilkat.Asn")
$bSuccess = $oAsn3.LoadEncoded($strBase64,"base64")
If ($bSuccess <> True) Then
    ConsoleWrite($oAsn3.LastErrorText & @CRLF)
    Exit
EndIf