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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $crypt = Chilkat2::Crypt2->new;

my $cert = Chilkat2::Cert->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..
my $success = $cert->LoadFromSmartcard('');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

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

my $cmsOptions = Chilkat2::JsonObject->new;
$cmsOptions->UpdateBool('DigestData', 1);
$cmsOptions->UpdateBool('OmitAlgorithmIdNull', 1);
$crypt->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->CadesEnabled(1);

$crypt->HashAlgorithm('sha256');

my $jsonSigningAttrs = Chilkat2::JsonObject->new;
$jsonSigningAttrs->UpdateInt('contentType', 1);
$jsonSigningAttrs->UpdateInt('signingTime', 1);
$jsonSigningAttrs->UpdateInt('messageDigest', 1);
$jsonSigningAttrs->UpdateInt('signingCertificateV2', 1);
$crypt->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->IncludeCertChain(0);

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

# Create the CAdES-BES signature, which does not contain the data being signed.
my $pathOfFileToSign = 'someDir/someFile';
my $outputPath = 'outDir/someFile.p7s';
$success = $crypt->CreateP7S($pathOfFileToSign, $outputPath);
if (!$success) {
    print $crypt->LastErrorText, "\n";
    exit;
}

print "Success!\n";