(Perl) Create PKCS7 Signed File (.p7m)

Demonstrates how to sign a file to create a .p7m that contains both the file contents and the signature.

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();

$certStore = chilkat::CkCertStore->new();

# Load a PFX file into a certificate store object.
$success = $certStore->LoadPfxFile("myPfx.pfx","pfxPassword");
if ($success != 1) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Get the certificate by subject common name.
# This should be the cert within the PFX that also
# has a private key (also stored within the PFX).
$jsonCN = chilkat::CkJsonObject->new();
$jsonCN->UpdateString("CN","myCert");
$cert = chilkat::CkCert->new();
$success = $certStore->FindCert($jsonCN,$cert);
if ($success == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Tell the crypt object to use the certificate for signing:
$success = $crypt->SetSigningCert($cert);

# Sign a file, producing a .p7m as output.
# The input file is unchanged, the test.p7m contains the 
# contents of the input file and the signature.
$inFile = "test.txt";
$outFile = "testp7m";
$success = $crypt->CreateP7M($inFile,$outFile);
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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