(PowerBuilder) Load PEM ASN.1 and Convert to XML

Loads a CSR (Certificate Signing Request) from PEM and converts the ASN.1 to XML format. The purpose of this example is to compare the ASN.1 format with the corresponding XML. One means for accessing a particular piece of information within any ASN.1 document is to convert to XML, and then use any XML API to extract the required data.

The PEM used in this example may be downloaded here: Sample CSR PEM

It contains ASN.1 with this format:

After converting, the XML looks like this:

<?xml version="1.0" encoding="utf-8" ?>
<sequence>
    <sequence>
        <int>00</int>
        <sequence>
            <set>
                <sequence>
                    <oid>2.5.4.6</oid>
                    <printable>US</printable>
                </sequence>
            </set>
            <set>
                <sequence>
                    <oid>2.5.4.8</oid>
                    <utf8>Utah</utf8>
                </sequence>
            </set>
            <set>
                <sequence>
                    <oid>2.5.4.7</oid>
                    <utf8>Lindon</utf8>
                </sequence>
            </set>
            <set>
                <sequence>
                    <oid>2.5.4.10</oid>
                    <utf8>DigiCert Inc.</utf8>
                </sequence>
            </set>
            <set>
                <sequence>
                    <oid>2.5.4.11</oid>
                    <utf8>DigiCert</utf8>
                </sequence>
            </set>
            <set>
                <sequence>
                    <oid>2.5.4.3</oid>
                    <utf8>example.digicert.com</utf8>
                </sequence>
            </set>
        </sequence>
        <sequence>
            <sequence>
                <oid>1.2.840.113549.1.1.1</oid>
                <null />
            </sequence>
            <bits n="2160">3082010A0282010... </bits>
        </sequence>
        <contextSpecific tag="0" constructed="1" />
    </sequence>
    <sequence>
        <oid>1.2.840.113549.1.1.5</oid>
        <null />
    </sequence>
    <bits n="2048">1D2472B15C7129850E6...  </bits>
</sequence>

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_ChilkatGlob
integer li_Success
oleobject loo_Pem
string ls_Password
string ls_ItemType
string ls_ItemSubType
string ls_Encoding
integer li_Index
string ls_CsrBase64
oleobject loo_AsnRoot
string ls_AsnXml
oleobject loo_XmlObj

// Starting in v9.5.0.49, all Chilkat classes can be unlocked at once at the beginning of a program
// by calling UnlockBundle.  It requires a Bundle unlock code.
loo_ChilkatGlob = create oleobject
// Use "Chilkat_9_5_0.Global" for versions of Chilkat < 10.0.0
li_rc = loo_ChilkatGlob.ConnectToNewObject("Chilkat.Global")
if li_rc < 0 then
    destroy loo_ChilkatGlob
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_ChilkatGlob.UnlockBundle("Anything for 30-day trial.")
if li_Success <> 1 then
    Write-Debug loo_ChilkatGlob.LastErrorText
    destroy loo_ChilkatGlob
    return
end if

loo_Pem = create oleobject
// Use "Chilkat_9_5_0.Pem" for versions of Chilkat < 10.0.0
li_rc = loo_Pem.ConnectToNewObject("Chilkat.Pem")

// Load the PEM file.  The password is ignored because it is not an encrypted PEM.
ls_Password = "notRequired"
li_Success = loo_Pem.LoadPemFile("qa_data/asn/sampleCsr.pem",ls_Password)

// Get the CSR in base64 format:
ls_ItemType = "csr"
ls_ItemSubType = ""
ls_Encoding = "base64"
li_Index = 0
ls_CsrBase64 = loo_Pem.GetEncodedItem(ls_ItemType,ls_ItemSubType,ls_Encoding,li_Index)

// Load the CSR base64 string into the ASN object
loo_AsnRoot = create oleobject
// Use "Chilkat_9_5_0.Asn" for versions of Chilkat < 10.0.0
li_rc = loo_AsnRoot.ConnectToNewObject("Chilkat.Asn")

li_Success = loo_AsnRoot.LoadEncoded(ls_CsrBase64,"base64")
if li_Success <> 1 then
    Write-Debug loo_AsnRoot.LastErrorText
    destroy loo_ChilkatGlob
    destroy loo_Pem
    destroy loo_AsnRoot
    return
end if

// Get the ASN.1 in (Chilkat's) XML format:
ls_AsnXml = loo_AsnRoot.AsnToXml()

// The XML returned by AsnToXml is one long difficult-to-read string 
// with no linebreaks.  It is meant to be compact.
// To get the XML in pretty, human-readable, indented form,
// load into the Chilkat XML object an then retrieve:
loo_XmlObj = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_XmlObj.ConnectToNewObject("Chilkat.Xml")

li_Success = loo_XmlObj.LoadXml(ls_AsnXml)
ls_AsnXml = loo_XmlObj.GetXml()

Write-Debug ls_AsnXml


destroy loo_ChilkatGlob
destroy loo_Pem
destroy loo_AsnRoot
destroy loo_XmlObj