(VB.NET UWP/WinRT) 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 Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' 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 = Await pem.LoadPemFileAsync("qa_data/crl/sampleCrl.pem","password_not_used")
If (success <> True) Then
    Debug.WriteLine(pem.LastErrorText)
    Exit Sub
End If


Dim numCrls As Integer = pem.NumCrls
Dim i As Integer = 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 = pem.GetEncodedItem("crl","","base64_mime",i)
    If (pem.LastMethodSuccess <> True) Then
        Debug.WriteLine(pem.LastErrorText)
        Exit Sub
    End If


    Debug.WriteLine(crlBase64)

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


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

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

    Debug.WriteLine("-------------------------------------")
    i = i + 1
End While