Perl

Decrypt2

See more MIME Examples

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

use strict;
use warnings;
use Chilkat2;

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

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

# Load the certificate from a .cer file.
my $cert = Chilkat2::Cert->new;
my $success = $cert->LoadFromFile('aaworkarea/myCert.cer');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

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

$success = $mime->LoadMimeFile('aaworkarea/encryptedMime.txt');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

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

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

print "success!\n";