(AutoIt) 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.
$oPem = ObjCreate("Chilkat.Pem")

$oPem.VerboseLogging = True
Local $bSuccess = $oPem.LoadPemFile("qa_data/crl/sampleCrl.pem","password_not_used")
If ($bSuccess <> True) Then
    ConsoleWrite($oPem.LastErrorText & @CRLF)
    Exit
EndIf

Local $iNumCrls = $oPem.NumCrls
Local $i = 0

$oAsn = ObjCreate("Chilkat.Asn")
$oXml = ObjCreate("Chilkat.Xml")
While $i < $iNumCrls

    ; Get the CRL as base64 (multi-line)
Local $sCrlBase64 = $oPem.GetEncodedItem("crl","","base64_mime",$i)
    If ($oPem.LastMethodSuccess <> True) Then
        ConsoleWrite($oPem.LastErrorText & @CRLF)
        Exit
    EndIf

    ConsoleWrite($sCrlBase64 & @CRLF)

    $bSuccess = $oAsn.LoadEncoded($sCrlBase64,"base64")
    If ($bSuccess <> True) Then
        ConsoleWrite($oAsn.LastErrorText & @CRLF)
        Exit
    EndIf

    ; Convert ASN.1 to XML and load into xml and re-emit for pretty printing..
    $oXml.LoadXml($oAsn.AsnToXml())
    ConsoleWrite($oXml.GetXml() & @CRLF)

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

    ConsoleWrite("-------------------------------------" & @CRLF)
    $i = $i + 1
Wend