Perl

AddDetachedSignaturePk

See more MIME Examples

Demonstrates how to add a detached signature using a certifcate and it's corresponding private key. The easiest way of doing it is when both the certificate and private key are contained together within a PFX (.pfx or .p12) file. This example demonstrates how to use the certificate and its corresponding private key when they 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->SetBodyFromPlainText('This is the plain-text MIME body.');

# Sign the MIME (adds a PKCS7 detached signature)
$success = $mime->AddDetachedSignaturePk($cert, $privKey);
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

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

print "success!\n";