(Classic ASP) Load .crl, Convert to XML, Get Revoked Serial Numbers and Dates

Load a binary .crl file (Certificate Revocation List), converts to XML, and then gets the revoked certificate serial numbers and revocation dates.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' Load a binary .crl file.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdCrl = Server.CreateObject("Chilkat.BinData")
success = bdCrl.LoadFile("qa_data/crl/ca1.crl")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load CRL file.") & "</pre>"
    Response.End
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set asn = Server.CreateObject("Chilkat.Asn")
success = asn.LoadBd(bdCrl)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( asn.LastErrorText) & "</pre>"
    Response.End
End If

' Convert ASN.1 to XML and load into xml and re-emit for pretty printing..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadXml(asn.AsnToXml())
success = xml.SaveXml("qa_output/crl.xml")

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

' Here's code to parse the XML.  This code was generated by the above tool,
' and then we modified it by removing unneeded code and changing some names

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dt = Server.CreateObject("Chilkat.CkDateTime")

i = 0
count_i = xml.NumChildrenHavingTag("sequence")
Do While i < count_i
    xml.I = i

    j = 0
    count_j = xml.NumChildrenHavingTag("sequence[i]|sequence")
    Do While j < count_j
        xml.J = j

        k = 0
        count_k = xml.NumChildrenHavingTag("sequence[i]|sequence[j]|sequence")
        Do While k < count_k
            xml.K = k

            ' Get the revoked certificate's serial number in uppercase hex.
            revokedCertSerialHex = xml.GetChildContent("sequence[i]|sequence[j]|sequence[k]|int")
            Response.Write "<pre>" & Server.HTMLEncode( "serial number: " & revokedCertSerialHex) & "</pre>"

            ' Get the date/time revoked.  It will be a string formatted as "YYMMDDhhmmssZ", such as "181023093028Z"
            dateRevoked = xml.GetChildContent("sequence[i]|sequence[j]|sequence[k]|utctime")

            ' Starting in Chilkat v9.5.0.77, date/time strings formatted as YYMMDDhhmmssZ can be parsed as follows:
            success = dt.SetFromTimestamp(dateRevoked)
            Response.Write "<pre>" & Server.HTMLEncode( "date revoked: " & dt.GetAsRfc822(0)) & "</pre>"

            k = k + 1
        Loop
        j = j + 1
    Loop
    i = i + 1
Loop

%>
</body>
</html>