Unwrap S/MIME Security Layers

Download Chilkat MIME ActiveX

Demonstrates how to unwrap the security layers of a signed and/or encrypted S/MIME message.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%


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

success = mime.UnlockComponent("Anything for 30-day trial")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

End If

'  Note: Your S/MIME file may have a different file extension.
success = mime.LoadMimeFile("smime.eml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

End If

'  Unwrap any security layers so that the resultant MIME
'  is the original message before signing and/or encrypting
'  was applied.  UnwrapSecurity returns 1 if
'  there was nothing to unwrap, or if all signatures were verified,
'  and all decryptions succeeded.
success = mime.UnwrapSecurity()
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

End If

'  Save the unwrapped S/MIME:
success = mime.SaveMime("unwrapped.eml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode(mime.LastErrorText) & "</pre>"

End If

'  Let's see if the MIME was signed, and if so whether
'  the signature(s) were verified.  Also, examine the certificate
'  used for signing.

'  Unwrapping the security sets the NumSignerCerts property.
'  If it is non-zero, then signatures were unwrapped...
Response.Write "<pre>" & Server.HTMLEncode( "Signer Certificates: ") & "</pre>"
numSignerCerts = mime.NumSignerCerts
If (numSignerCerts > 0) Then
    For i = 0 To numSignerCerts - 1
        ' cert is a Chilkat.Cert
        Set cert = mime.GetSignerCert(i)
        If (Not (cert Is Nothing )) Then
            '  Show the cert's common name.
            Response.Write "<pre>" & Server.HTMLEncode( cert.SubjectCN) & "</pre>"
        End If

    Next
End If

'  Now check to see if anything was decrypted.
Response.Write "<pre>" & Server.HTMLEncode( "Encryption Certificates: ") & "</pre>"
numEncryptCerts = mime.NumEncryptCerts
If (numEncryptCerts > 0) Then
    For i = 0 To numEncryptCerts - 1
        ' cert is a Chilkat.Cert
        Set cert = mime.GetEncryptCert(i)
        If (Not (cert Is Nothing )) Then
            '  Show the cert's common name.
            Response.Write "<pre>" & Server.HTMLEncode( cert.SubjectCN) & "</pre>"
        End If

    Next
End If


%>
</body>
</html>