(Perl) Create Egypt ITIDA CAdES-BES .p7s Signature (with strings in-memory)

See more Egypt ITIDA Examples

Demonstrates how to create a .p7s signature that fits Egypt's ITIDA requirements.

Note: This example requires Chilkat v9.5.0.75 or greater.

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

# There are many ways to load the certificate.  
# This example was created for a customer using an ePass2003 USB token.
# Assuming the USB token is the only source of a hardware-based private key..
$success = $cert->LoadFromSmartcard("");
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;
}

$cmsOptions = chilkat::CkJsonObject->new();
# Setting "DigestData" causes OID 1.2.840.113549.1.7.5 (digestData) to be used.
$cmsOptions->UpdateBool("DigestData",1);
$cmsOptions->UpdateBool("OmitAlgorithmIdNull",1);
$crypt->put_CmsOptions($cmsOptions->emit());

# The CadesEnabled property applies to all methods that create CMS/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);

# Make sure we sign the utf-8 byte representation of the JSON string
$crypt->put_Charset("utf-8");

# Create the CAdES-BES signature.
$textToSign = "\"issuer\"\"address\"\"branchID\"\"0\"\"country\"\"EG\"\"regionCity...";

$crypt->put_EncodingMode("base64");
$sigBase64 = $crypt->signStringENC($textToSign);
if ($crypt->get_LastMethodSuccess() == 0) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

print "Base64 signature:" . "\r\n";
print $sigBase64 . "\r\n";