(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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 Chilkat.Pem

pem.VerboseLogging = True
Dim success As Boolean
success = pem.LoadPemFile("qa_data/crl/sampleCrl.pem","password_not_used")
If (success <> True) Then
    System.DebugLog(pem.LastErrorText)
    Return
End If

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

Dim asn As New Chilkat.Asn
Dim xml As New Chilkat.Xml
While i < numCrls

    // Get the CRL as base64 (multi-line)
    Dim crlBase64 As String
    crlBase64 = pem.GetEncodedItem("crl","","base64_mime",i)
    If (pem.LastMethodSuccess <> True) Then
        System.DebugLog(pem.LastErrorText)
        Return
    End If

    System.DebugLog(crlBase64)

    success = asn.LoadEncoded(crlBase64,"base64")
    If (success <> True) Then
        System.DebugLog(asn.LastErrorText)
        Return
    End If

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

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

    System.DebugLog("-------------------------------------")
    i = i + 1
Wend