Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loAsn
LOCAL lcStrXml
LOCAL loXml
LOCAL lcStrBase64
LOCAL loAsn2
LOCAL loAsn3

lnSuccess = 0

loAsn = CreateObject('Chilkat.Asn')

* Begin with loading ASN.1 from a binary DER/BER format file.
lnSuccess = loAsn.LoadBinaryFile("/Users/chilkat/testData/p7b/test.p7b")
IF (lnSuccess <> 1) THEN
    ? loAsn.LastErrorText
    RELEASE loAsn
    CANCEL
ENDIF

* Convert ASN.1 to XML:
lcStrXml = loAsn.AsnToXml()
IF (loAsn.LastMethodSuccess <> 1) THEN
    ? loAsn.LastErrorText
    RELEASE loAsn
    CANCEL
ENDIF

* The XML returned by AsnToXml will be compact and not pretty-formatted.
* Use Chilkat XML to format the XML better:
loXml = CreateObject('Chilkat.Xml')
lnSuccess = 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('Chilkat.Asn')
lnSuccess = loAsn2.LoadAsnXml(loXml.GetXml())
IF (lnSuccess <> 1) THEN
    ? loAsn2.LastErrorText
    RELEASE loAsn
    RELEASE loXml
    RELEASE loAsn2
    CANCEL
ENDIF

* Load the ASN.1 from an encoded string, such as base64:
loAsn3 = CreateObject('Chilkat.Asn')
lnSuccess = loAsn3.LoadEncoded(lcStrBase64,"base64")
IF (lnSuccess <> 1) THEN
    ? loAsn3.LastErrorText
    RELEASE loAsn
    RELEASE loXml
    RELEASE loAsn2
    RELEASE loAsn3
    CANCEL
ENDIF

RELEASE loAsn
RELEASE loXml
RELEASE loAsn2
RELEASE loAsn3