Sample code for 30+ languages & platforms
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

Perl
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";