Sample code for 30+ languages & platforms
Perl

Decrypt S/MIME using a Certificate with Private Key Access

See more MIME Examples

Loads a CMS/PKCS #7 encrypted S/MIME message and decrypts it back to the original MIME content.

DecryptUsingCert takes a single certificate that already has access to its associated private key, for example a certificate loaded from a PFX.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background. A public-only certificate is insufficient for decryption. The certificate passed to DecryptUsingCert must be linked to its private key, as happens when it is loaded from a PFX/P12 file.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$mime = chilkat::CkMime->new();
$success = $mime->LoadMimeFile("qa_data/encrypted.eml");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  Decrypt using a certificate that already provides access to its private key (for example loaded
#  from a PFX).  The only argument is the certificate.
$pfxPassword = "myPfxPassword";
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/recipient.pfx",$pfxPassword);
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

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

$body = $mime->getBodyDecoded();
if ($mime->get_LastMethodSuccess() == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print $body . "\r\n";