(Excel) Convert CRL PEM to XML

Loads a CRL (Certificate Revocation List) from the PEM file format and converts to XML to allow for visual examination and parsing.

Note: This example requires Chilkat v9.5.0.77 or greater.

Download Excel Class Modules Chilkat Excel Class Modules

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' This example requires Chilkat v9.5.0.77 or greater.
Dim pem As Chilkat.Pem
Set pem = Chilkat.NewPem

pem.VerboseLogging = True

success = pem.LoadPemFile("qa_data/crl/sampleCrl.pem","password_not_used")
If (success <> True) Then
    Debug.Print pem.LastErrorText
    Exit Sub
End If


numCrls = pem.NumCrls

i = 0

Dim asn As Chilkat.Asn
Set asn = Chilkat.NewAsn
Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
Do While i < numCrls

    ' Get the CRL as base64 (multi-line)

    crlBase64 = pem.GetEncodedItem("crl","","base64_mime",i)
    If (pem.LastMethodSuccess <> True) Then
        Debug.Print pem.LastErrorText
        Exit Sub
    End If

    Debug.Print crlBase64

    success = asn.LoadEncoded(crlBase64,"base64")
    If (success <> True) Then
        Debug.Print asn.LastErrorText
        Exit Sub
    End If

    ' Convert ASN.1 to XML and load into xml and re-emit for pretty printing..
    success = xml.LoadXml(asn.AsnToXml())
    Debug.Print xml.GetXml()

    ' Use this online tool to generate parsing code from CRL XML: 
    ' Generate Parsing Code from XML

    Debug.Print "-------------------------------------"
    i = i + 1
Loop