(Perl) Create .p7s using Smart Card or USB Token

Demonstrates how to create a .p7s using a certificate stored on a smart card or USB token.

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

use chilkat();

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

# Provide the smartcard PIN.
$cert->put_SmartCardPin("000000");

# Load the certificate on the smartcard currently in the reader (or on the USB token).
$success = $cert->LoadFromSmartcard("");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

# 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.
$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.p7s";

# Create the .p7s, which is a signature file that does not embed the original data.
# (To create a signature file that also embeds the original data, call CreateP7M instead)
$success = $crypt->CreateP7S($inFile,$sigFile);
if ($success == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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