S/MIME Signed Message

Download Chilkat MIME ActiveX

Create an S/MIME signed (PKCS7) 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 mime.LastErrorText & "<br>"

End If

mime.AddHeaderField "Subject","This is a test"
mime.AddHeaderField "Abc","123"

mime.SetBodyFromPlainText "This is the body"

set cert = Server.CreateObject("Chilkat.Cert")
'  Load a certificate that has already been installed (from a .pfx)
'  on the computer:
success = cert.LoadByEmailAddress("thawte@chilkatsoft.com")
If (success = 0) Then
    Response.Write cert.LastErrorText & "<br>"

End If

'  Convert to a signed message.
success = mime.ConvertToSigned(cert)
If (success = 0) Then
    Response.Write mime.LastErrorText & "<br>"

End If

'  Display the signed MIME:
Response.Write Server.HTMLEncode( mime.GetMime()) & "<br>"

Response.Write Server.HTMLEncode( "----") & "<br>"

'  Unwrap to restore the original MIME.
success = mime.UnwrapSecurity()
If (success = 0) Then
    Response.Write mime.LastErrorText & "<br>"

End If

'  Display the restored (unsigned) MIME:
Response.Write Server.HTMLEncode( mime.GetMime()) & "<br>"

%>
</body>
</html>