(Perl) Sign a File to Create a .p7s (Detached Signature)

Perl example to create a detached signature file (.p7s) for any type file. The signature can be verified by calling VerifyP7S and passing the original filename and the .p7s filename.

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 .p7s as output:
$inFile = "/Users/chilkat/testData/pdf/sample.pdf";
$sigFile = "/Users/chilkat/testData/p7s/sample.p7s";

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

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

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