(Perl) PKCS7 Decrypt MIME

Loads a PKCS7 encrypted MIME file and decrypts. The cert and private key used for decryption is loaded from a PFX file.

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.

$mime = chilkat::CkMime->new();

# Load the MIME
$success = $mime->LoadMimeFile("encryptedMime.txt");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

# The AddPfxSourceFile and/or AddPfxSourceData
# methods may be called one or more times (one per PFX)
# to add sources from which the MIME component will
# search for certificates and private keys when decrypting.
$pfxPassword = "myPassword";
$success = $mime->AddPfxSourceFile("myCertAndPrivateKey.pfx",$pfxPassword);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

# Decrypt...
$success = $mime->Decrypt();
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

# Display the decrypted MIME:
print $mime->getMime() . "\r\n";