(Perl) Decrypt2

Demonstrates how to decrypt MIME using a certificate and private key where the certificate and its corresponding private key are stored in separate files -- a .cer for the certificate, and a .pem for the private key.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$mime = chilkat::CkMime->new();

# Load the certificate from a .cer file.
$cert = chilkat::CkCert->new();
$success = $cert->LoadFromFile("aaworkarea/myCert.cer");
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Load the private key from an encrypted PEM file.
# (A private key can be loaded from other file formats also..)
$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadEncryptedPemFile("aaworkarea/myPrivateKey.pem","myPassword");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

$success = $mime->LoadMimeFile("aaworkarea/encryptedMime.txt");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

# Decrypt using the cert and associated private key
$success = $mime->Decrypt2($cert,$privKey);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

# Save the S/MIME to a file.
$success = $mime->SaveMime("aaworkarea/decryptedMime.txt");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print "success!" . "\r\n";