(Classic ASP) Convert ASN.1 to/from Binary DER, XML, and Base64

Demonstrates how to convert ASN.1 from and to any of the following formats: binary DER, Base64, and XML.

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>
<%
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set asn = Server.CreateObject("Chilkat.Asn")

' Begin with loading ASN.1 from a binary DER/BER format file.
success = asn.LoadBinaryFile("/Users/chilkat/testData/p7b/test.p7b")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( asn.LastErrorText) & "</pre>"
    Response.End
End If

' Convert ASN.1 to XML:
strXml = asn.AsnToXml()
If (asn.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( asn.LastErrorText) & "</pre>"
    Response.End
End If

' The XML returned by AsnToXml will be compact and not pretty-formatted.
' Use Chilkat XML to format the XML better:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadXml(strXml)
' Assuming success for this example..
' This is formatted better for human viewing:
Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

' Now get the ASN.1 in base64 format.  Any encoding supported
' by Chilkat can be passed, such as "hex", "uu", "quoted-printable", "base32", "modbase64", etc.
strBase64 = asn.GetEncodedDer("base64")

' Load the ASN.1 from XML:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set asn2 = Server.CreateObject("Chilkat.Asn")
success = asn2.LoadAsnXml(xml.GetXml())
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( asn2.LastErrorText) & "</pre>"
    Response.End
End If

' Load the ASN.1 from an encoded string, such as base64:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set asn3 = Server.CreateObject("Chilkat.Asn")
success = asn3.LoadEncoded(strBase64,"base64")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( asn3.LastErrorText) & "</pre>"
    Response.End
End If


%>
</body>
</html>