Perl

PKCS7 Decrypt MIME

See more MIME Examples

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

use chilkat();

$success = 0;

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