Classic ASP

Create an Opaque (Attached) S/MIME Signature

Demonstrates the Chilkat Mime.ConvertToSigned method, which creates an opaque (attached) S/MIME signature. The only argument is the signing Cert. On success the entity is replaced by a CMS/PKCS #7 signed-data structure that wraps the content inside the signature.

Note: 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: An opaque signature bundles the content inside the CMS structure, so the message is a single application/pkcs7-mime blob that only S/MIME-aware software can read. It is more tamper-resistant in transit — nothing can alter the content without breaking the wrapper — at the cost of the backward compatibility a detached signature offers. Use it when every recipient is known to support S/MIME.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

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 signed.")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

'  Load the signing certificate (which must have access to its private key) from a PFX file.
'  The PFX password should come from a secure source rather than being hard-coded.
pfxPassword = "myPfxPassword"
set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/signer.pfx",pfxPassword)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

'  Create an OPAQUE (attached) S/MIME signature.  The entity is replaced by a CMS/PKCS #7
'  signed-data structure that wraps the content inside the signature.
success = mime.ConvertToSigned(cert)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

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

Response.Write "<pre>" & Server.HTMLEncode( "Message converted to an opaque signed message.") & "</pre>"

%>
</body>
</html>