Decrypt MIME with PFX

Demonstrates how to decrypt MIME using a PFX (containing a digital certificate with private key). The content-type of an encrypted MIME message looks like this:

Content-Type: application/x-pkcs7-mime;
	name="smime.p7m"

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$mime = new chilkat::CkMime();

$success = $mime->UnlockComponent("Anything for 30-day trial");
if ($success == 0) {
    print "Failed to unlock component" . "\n";
    exit;
}

$success = $mime->LoadMimeFile("encryptedEmail.eml");
if ($success != 1) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

$certStore = new chilkat::CkCertStore();
$success = $certStore->LoadPfxFile("myPfx.pfx","myPfxPassword");
if ($success != 1) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

#  Find the certificate by email address.  There are many
#  ways to find certificates within a Chilkat certificate store
#  object...

# cert is a CkCert
$cert = $certStore->FindCertBySubjectE('support@chilkatsoft.com');
if ($cert eq null ) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# privKey is a CkPrivateKey
$privKey = $cert->ExportPrivateKey();
if ($privKey eq null ) {
    print $cert->lastErrorText() . "\r\n";

    exit;
}

$success = $mime->Decrypt2($cert,$privKey);
if ($success != 1) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

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