B4X

Convert CRL PEM to XML

See more PEM Examples

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.

B4X

Dim success As Boolean = False

'  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 ChilkatPem
pem.Initialize

pem.VerboseLogging = True
success = pem.LoadPemFile("qa_data/crl/sampleCrl.pem", "password_not_used")
If success <> True Then
    Log(pem.LastErrorText)
    Return
End If


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

Dim asn As ChilkatAsn
asn.Initialize
Dim xml As ChilkatXml
xml.Initialize
Do While i < numCrls

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


    Log(crlBase64)

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


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

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

    Log("-------------------------------------")
    i = i + 1
Loop