(Classic ASP) 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

<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.

' This example requires Chilkat v9.5.0.77 or greater.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pem")
set pem = Server.CreateObject("Chilkat.Pem")

pem.VerboseLogging = 1
success = pem.LoadPemFile("qa_data/crl/sampleCrl.pem","password_not_used")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( pem.LastErrorText) & "</pre>"
    Response.End
End If

numCrls = pem.NumCrls
i = 0

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set asn = Server.CreateObject("Chilkat.Asn")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")
Do While i < numCrls

    ' Get the CRL as base64 (multi-line)
    crlBase64 = pem.GetEncodedItem("crl","","base64_mime",i)
    If (pem.LastMethodSuccess <> 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( pem.LastErrorText) & "</pre>"
        Response.End
    End If

    Response.Write "<pre>" & Server.HTMLEncode( crlBase64) & "</pre>"

    success = asn.LoadEncoded(crlBase64,"base64")
    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..
    success = xml.LoadXml(asn.AsnToXml())
    Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

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

    Response.Write "<pre>" & Server.HTMLEncode( "-------------------------------------") & "</pre>"
    i = i + 1
Loop

%>
</body>
</html>