Classic ASP

MIME S/MIME Encryption Algorithm Properties

Demonstrates the properties that control S/MIME encryption: Pkcs7CryptAlg (the symmetric content-encryption algorithm), Pkcs7KeyLength (the content-encryption key length in bits), OaepPadding (whether RSAES-OAEP key transport is used instead of RSAES-PKCS1-v1_5), and the OAEP hash settings OaepHash and OaepMgfHash. The properties are configured before calling Encrypt.

Background. CMS/PKCS #7 encryption uses a symmetric algorithm to protect the content and an RSA key-transport scheme to protect the symmetric key. The defaults (aes, 128-bit, PKCS1-v1_5 padding) work broadly; these properties tune the algorithms and padding.

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

'  Pkcs7CryptAlg is the symmetric content-encryption algorithm.  Supported values are aes, aes-gcm,
'  des, 3des, and rc2.  The default is aes.
mime.Pkcs7CryptAlg = "aes"

'  Pkcs7KeyLength is the content-encryption key length in bits.  The default is 128.
mime.Pkcs7KeyLength = 256

'  OaepPadding selects the RSA key-transport padding.  The default is 0 (RSAES-PKCS1-v1_5).
'  Set 1 to use RSAES-OAEP, in which case the OAEP hash settings apply.
mime.OaepPadding = 1
mime.OaepHash = "sha256"
mime.OaepMgfHash = "sha256"

'  Load the recipient certificate (public key 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 using the algorithm settings configured above.
success = mime.Encrypt(cert)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Encrypted with " & mime.Pkcs7CryptAlg & " " & mime.Pkcs7KeyLength & "-bit key.") & "</pre>"

%>
</body>
</html>