(Perl) Duplicate openssl smime -encrypt -binary -aes-256-cbc -in some_file.dat -out some_file.dat.enc -outform DER cert.crt

Demonstrates how to encrypt to binary DER using 256-bit AES (CBC mode) as the underlying symmetric encryption algorithm, to produce PKCS7 enveloped data (binary DER).

Duplicates the following openssl command:

openssl smime -encrypt -binary -aes-256-cbc -in some_file.dat -out some_file.dat.enc -outform DER cert.crt

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("qa_data/openssl/EE.cer");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$bd = chilkat::CkBinData->new();
$success = $bd->LoadFile("qa_data/openssl/hello.txt");
# Assuming success..

$crypt = chilkat::CkCrypt2->new();
$success = $crypt->SetEncryptCert($cert);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

$crypt->put_CryptAlgorithm("PKI");

# Indicate the underlying symmetric encryption to be used:
$crypt->put_Pkcs7CryptAlg("aes");
$crypt->put_KeyLength(256);
$crypt->put_CipherMode("cbc");

$success = $crypt->CkEncryptFile("qa_data/openssl/hello.txt","qa_output/hello.txt.enc");
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Success." . "\r\n";