Create S/MIME Detached Signature with PFX

How to use a PFX to create a signed S/MIME message.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();


$mime = new chilkat::CkMime();

$success = $mime->UnlockComponent("Anything for 30-day trial");
if ($success == 0) {
    print "Failed to unlock component" . "\n";
    exit;
}

$mime->AddHeaderField("Subject","This is a test");
$mime->AddHeaderField("Abc","123");

$mime->SetBodyFromPlainText("This is the body");

$certStore = new chilkat::CkCertStore();

$password = "myPassword";
$success = $certStore->LoadPfxFile("chilkat.pfx",$password);
if ($success == 0) {
    print $certStore->lastErrorText() . "\n";
    exit;
}

$cert = $certStore->FindCertBySubjectCN("Chilkat Software, Inc.");
if ($cert eq null ) {
    print "Failed to find certificate!" . "\n";
    exit;
}

#  Display the full distinguished name of the cert.
print $cert->subjectDN() . "\r\n";

$success = $mime->AddDetachedSignature($cert);
if ($success == 0) {
    print $mime->lastErrorText() . "\n";
    exit;
}

print $mime->getMime() . "\r\n";