Add S/MIME Signature using PFX

Add a digital signature to a MIME message using the certificate + private key from a PFX file.

 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 $mime->lastErrorText() . "\r\n";
    exit;
}

#  Load a PFX file into a certificate object.
$cert = new chilkat::CkCert();
$pfxFilepath = "pfxFiles/something.pfx";
$pfxPassword = "secret";
$success = $cert->LoadPfxFile($pfxFilepath,$pfxPassword);
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$mime->SetBodyFromPlainText("This is the plain-text MIME body.");

$mime->put_Charset("utf-8");
$mime->put_Encoding("quoted-printable");

#  Sign the MIME:
$success = $mime->AddDetachedSignature($cert);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

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

print "success!" . "\n";