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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $mime = Chilkat2::Mime->new;

# Load the MIME
my $success = $mime->LoadMimeFile('encryptedMime.txt');
if (!$success) {
    print $mime->LastErrorText, "\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.
my $pfxPassword = 'myPassword';
$success = $mime->AddPfxSourceFile('myCertAndPrivateKey.pfx', $pfxPassword);
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# Decrypt...
$success = $mime->Decrypt();
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# Display the decrypted MIME:
print $mime->GetMime(), "\n";