Perl

Create Egypt ITIDA CAdES-BES .p7s Signature (File to File)

See more Egypt ITIDA Examples

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

use chilkat();

$success = 0;

# 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();
$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, which does not contain the data being signed.
$pathOfFileToSign = "someDir/someFile";
$outputPath = "outDir/someFile.p7s";
$success = $crypt->CreateP7S($pathOfFileToSign,$outputPath);
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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