(Perl) AddDetachedSignaturePk

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.

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

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->SetBodyFromPlainText("This is the plain-text MIME body.");

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

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

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