(Perl) Duplicate openssl smime -decrypt -in some_file.dat.enc -binary -inform DER -inkey private.key -out some_file.dat

Demonstrates how to decrypt binary DER that was encrypted using 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

use chilkat();

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

# Duplicates the following openssl command:
# openssl smime -decrypt -in hello.txt.enc -binary -inform DER -inkey private.key -out hello.txt

$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/EE.key");
# Assuming success..

$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadAnyFormat($bd,"");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

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

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

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