Sample code for 30+ languages & platforms
Classic ASP

Encrypt MIME for a Recipient Certificate

See more MIME Examples

Demonstrates encrypting the current MIME entity for a single recipient using the Mime.Encrypt method. The entity is replaced with CMS/PKCS #7 encrypted S/MIME that only the holder of the recipient's private key can read.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background. S/MIME encryption uses the recipient's public certificate to protect a message so that only the matching private key can recover it. The recipient certificate must be RSA-based. Only the recipient's public key is needed to encrypt—the private key is required to decrypt.

Chilkat Classic ASP Downloads

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

set mime = Server.CreateObject("Chilkat.Mime")
success = mime.SetBodyFromPlainText("This message will be encrypted.")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

'  Load the recipient's certificate (public key only is sufficient for encrypting).
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadFromFile("qa_data/recipient.cer")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

'  Encrypt for the recipient.  The entity is replaced with CMS/PKCS #7 encrypted S/MIME that only
'  the holder of the recipient's private key can decrypt.  The certificate must be RSA-based.
success = mime.Encrypt(cert)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

success = mime.SaveMime("qa_output/encrypted.eml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

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

%>
</body>
</html>