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