S/MIME Signed Message

Create an S/MIME signed (PKCS7) 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 $mime->lastErrorText() . "\n";
    exit;
}

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

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

$cert = new chilkat::CkCert();
#  Load a certificate that has already been installed (from a .pfx)
#  on the computer:
$success = $cert->LoadByEmailAddress('thawte@chilkatsoft.com');
if ($success == 0) {
    print $cert->lastErrorText() . "\n";
    exit;
}

#  Convert to a signed message.
$success = $mime->ConvertToSigned($cert);
if ($success == 0) {
    print $mime->lastErrorText() . "\n";
    exit;
}

#  Display the signed MIME:
print $mime->getMime() . "\r\n";

print "----" . "\r\n";

#  Unwrap to restore the original MIME.
$success = $mime->UnwrapSecurity();
if ($success == 0) {
    print $mime->lastErrorText() . "\n";
    exit;
}

#  Display the restored (unsigned) MIME:
print $mime->getMime() . "\r\n";