(Classic ASP) Example: Mime.GetDecryptCertInfo method

Demonstrates the GetDecryptCertInfo method.

Note: This example requires Chilkat v11.4.0 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>
<%
success = 0

set mime = Server.CreateObject("Chilkat.Mime")

' Load MIME that is has Content-Type like this:
' Content-Type: application/pkcs7-mime; smime-type="enveloped-data"; name="smime.p7m"; smime-type="enveloped-data"
success = mime.LoadMimeFile("qa_data/mime/enveloped_data.eml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

' Get information about the certificate that would be needed to decrypt.
' An enveloped-data can potentially be decrypted by multiple certificates if it was encrypted in a way that allows it,
' but in most cases, only a single certificate with associated private key (that of the message recipient) is possible.
set json = Server.CreateObject("Chilkat.JsonObject")
success = mime.GetDecryptCertInfo(json)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' Sample output:

' {
'   "recipientInfo": [
'     {
'       "serial": "****",
'       "issuerCN": "****"
'     }
'   ]
' }

' Get each certificate's information like this:

i = 0
count = json.SizeOfArray("recipientInfo")
Do While i < count
    json.I = i
    serial = json.StringOf("recipientInfo[i].serial")
    issuerCN = json.StringOf("recipientInfo[i].issuerCN")
    i = i + 1
Loop

%>
</body>
</html>