(Perl) Create CAdES-BES .p7m using Smart Card or USB Token

Demonstrates how to create a CAdES BES invoice.xml.p7m using a certificate stored on a smart card or USB token.

Note: This example requires Chilkat v9.5.0.77 and at the time of this writing is restricted to the Windows operating system.

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

use chilkat();

# Note: Requires Chilkat v9.5.0.77 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 certificate on a smartcard or USB token.
$cert = chilkat::CkCert->new();
# Load the certificate on the smartcard currently in the reader (or on the USB token).
# Pass an empty string to allow Chilkat to automatically choose the CSP (Cryptographi Service Provider).
# See Load Certificate on Smartcard for information about explicitly selecting a particular CSP.
$success = $cert->LoadFromSmartcard("");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# Provide the smartcard PIN.
# If the PIN is not explicitly provided here, the Windows OS should
# display a dialog for the PIN.
$cert->put_SmartCardPin("000000");

# Provide the certificate for signing.
$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";