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.

Download Chilkat Perl Module

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";