(Perl) Create CAdES-BES .p7m for FatturaPA XML Invoice

Demonstrates how to create a CAdES BES invoice.xml.p7m for the Italian FatturaPA exchange system.

Note: This example requires Chilkat v9.5.0.75.

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

use chilkat();

# Note: Requires Chilkat v9.5.0.75 or greater.

# This 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).
$pfxPath = "qa_data/pfx/cert_test123.pfx";
$pfxPassword = "test123";

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

# Provide the signing cert (with associated private key).
$success = $crypt->SetSigningCert($cert);
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

# Indicate that SHA-256 should be used.
$crypt->put_HashAlgorithm("sha256");

# Specify the signed attributes to be included.
# (This is what makes it CAdES-BES compliant.)
$jsonSignedAttrs = chilkat::CkJsonObject->new();
$jsonSignedAttrs->UpdateInt("contentType",1);
$jsonSignedAttrs->UpdateInt("signingTime",1);
$jsonSignedAttrs->UpdateInt("messageDigest",1);
$jsonSignedAttrs->UpdateInt("signingCertificateV2",1);
$crypt->put_SigningAttributes($jsonSignedAttrs->emit());

$inFile = "qa_data/xml/IT01234567890_11002.xml";
$sigFile = "qa_output/IT01234567890_11002.xml.p7m";

# Create the CAdES-BES signature, which contains the original data.
$success = $crypt->CreateP7M($inFile,$sigFile);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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