(Perl) Decrypt a .p7m File (using a PFX)

Perl sample code showing how to decrypt a .p7m using a .p12 / .pfx certificate w/ private key.

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.

$crypt = chilkat::CkCrypt2->new();

# Use a digital certificate and private key from a PFX file (.pfx or .p12).
$pfxPath = "myCertAndKey.pfx";
$pfxPassword = "test123";

$success = $crypt->AddPfxSourceFile($pfxPath,$pfxPassword);
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

# Set the  outPath to whatever is appropriate.
# If you are decrypting a PDF, your output might be "out.pdf"...
$inPath = "smime.p7m";
$outPath = "original.txt";

# Indicate that we're doing public key decryption (i.e. PKCS7)
$crypt->put_CryptAlgorithm("pki");

$success = $crypt->CkDecryptFile($inPath,$outPath);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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