(Visual Basic 6.0) 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.

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

' 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 New ChilkatPem

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

Dim numCrls As Long
numCrls = pem.NumCrls
Dim i As Long
i = 0

Dim asn As New ChilkatAsn
Dim xml As New ChilkatXml
Do While i < numCrls

    ' Get the CRL as base64 (multi-line)
    Dim crlBase64 As String
    crlBase64 = pem.GetEncodedItem("crl","","base64_mime",i)
    If (pem.LastMethodSuccess <> 1) Then
        Debug.Print pem.LastErrorText
        Exit Sub
    End If

    Debug.Print crlBase64

    success = asn.LoadEncoded(crlBase64,"base64")
    If (success <> 1) 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