(Perl) Sign JSON to Create CAdES P7S Bytes

Demonstrates how to sign JSON using a certificate + private key from a .p12/.pfx to create a CAdES P7S byte array.

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

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$crypt = chilkat::CkCrypt2->new();

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

# Tell the crypt component to use this cert.
$success = $crypt->SetSigningCert($cert);
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

# The CadesEnabled property applies to all methods that create PKCS7 signatures. 
# To create a CAdES-BES signature, set this property equal to true. 
$crypt->put_CadesEnabled(1);

$crypt->put_HashAlgorithm("sha256");

$jsonSigningAttrs = chilkat::CkJsonObject->new();
$jsonSigningAttrs->UpdateInt("contentType",1);
$jsonSigningAttrs->UpdateInt("signingTime",1);
$jsonSigningAttrs->UpdateInt("messageDigest",1);
$jsonSigningAttrs->UpdateInt("signingCertificateV2",1);
$crypt->put_SigningAttributes($jsonSigningAttrs->emit());

# By default, all the certs in the chain of authentication are included in the signature.
# If desired, we can choose to only include the signing certificate:
$crypt->put_IncludeCertChain(0);

# Create the CAdES-BES attached signature, which contains the original data.
$crypt->put_Charset("utf-8");
$cadesP7s = chilkat::CkByteData->new();
$success = $crypt->OpaqueSignString("{ \"abc\": 123}",$cadesP7s);
if ($crypt->get_LastMethodSuccess() == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

# Verify the signature and extract the original JSON:
$originalJson = $crypt->opaqueVerifyString($cadesP7s);
if ($crypt->get_LastMethodSuccess() == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Original JSON: " . $originalJson . "\r\n";

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