Perl
Perl
MIME S/MIME Encryption Algorithm Properties
See more MIME Examples
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 Perl Downloads
use chilkat();
$success = 0;
$mime = chilkat::CkMime->new();
$success = $mime->SetBodyFromPlainText("This message will be encrypted.");
if ($success == 0) {
print $mime->lastErrorText() . "\r\n";
exit;
}
# Pkcs7CryptAlg is the symmetric content-encryption algorithm. Supported values are aes, aes-gcm,
# des, 3des, and rc2. The default is aes.
$mime->put_Pkcs7CryptAlg("aes");
# Pkcs7KeyLength is the content-encryption key length in bits. The default is 128.
$mime->put_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->put_OaepPadding(1);
$mime->put_OaepHash("sha256");
$mime->put_OaepMgfHash("sha256");
# Load the recipient certificate (public key is sufficient for encrypting).
$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("qa_data/recipient.cer");
if ($success == 0) {
print $cert->lastErrorText() . "\r\n";
exit;
}
# Encrypt using the algorithm settings configured above.
$success = $mime->Encrypt($cert);
if ($success == 0) {
print $mime->lastErrorText() . "\r\n";
exit;
}
print "Encrypted with " . $mime->pkcs7CryptAlg() . " " . $mime->get_Pkcs7KeyLength() . "-bit key." . "\r\n";