(Perl) Sign a File to Create a .p7m File (using a PFX)

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.

Note: This example requires Chilkat v10.1.2 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$crypt = chilkat::CkCrypt2->new();

# Use a digital certificate and private key from a PFX file (.pfx or .p12).
$signingCertSubject = "Acme Inc";
$pfxFilename = "/Users/chilkat/testData/pfx/acme.pfx";
$pfxPassword = "test123";

$certStore = chilkat::CkCertStore->new();
$success = $certStore->LoadPfxFile($pfxFilename,$pfxPassword);
if ($success != 1) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

$jsonCN = chilkat::CkJsonObject->new();
$jsonCN->UpdateString("CN",$signingCertSubject);

$cert = chilkat::CkCert->new();
$success = $certStore->FindCert($jsonCN,$cert);
if ($success == 0) {
    print "Failed to find certificate by subject common name." . "\r\n";
    exit;
}

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

# We can sign any type of file, creating a .p7m as output:
$inFile = "/Users/chilkat/testData/pdf/sample.pdf";
$outputFile = "/Users/chilkat/testData/p7m/sample.pdf.p7m";
$success = $crypt->CreateP7M($inFile,$outputFile);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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

$inFile = $outputFile;
$outputFile = "/Users/chilkat/testData/pdf/restored.pdf";

$success = $crypt->VerifyP7M($inFile,$outputFile);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Success!" . "\r\n";