Sign a File to Create a .p7m File

Perl example to sign a file creating a .p7m file as output. The .p7m contains the signed contents of the original file. It can be verified and restored by calling VerifyP7M.

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

use chilkat();

$crypt = new chilkat::CkCrypt2();

#  Any string argument automatically begins the 30-day trial.
$success = $crypt->UnlockComponent("30-day trial");
if ($success != 1) {
    print "Crypt component unlock failed" . "\n";
    exit;
}

#  Find our digital certificate from the Current User certificate store.
$ccs = new chilkat::CkCreateCS();

$certStore = $ccs->OpenCurrentUserStore();

$cert = $certStore->FindCertBySubjectCN("Chilkat Software, Inc.");
if ($cert eq null ) {
    print $cert->lastErrorText() . "\n";

    exit;
}

#  Tell the crypt component to use this cert.
$crypt->SetSigningCert($cert);

#  We can sign any type of file, creating a .p7s as output:
$success = $crypt->CreateP7M("test.xml","test.p7m");
if ($success == 0) {
    print $crypt->lastErrorText() . "\n";

    exit;
}

#  Verify and restore the original file:
$crypt->SetVerifyCert($cert);

$success = $crypt->VerifyP7M("test.p7m","testRestored.xml");
if ($success == 0) {
    print $crypt->lastErrorText() . "\n";

    exit;
}

print "Success!" . "\n";