(Tcl) Create CAdES-T Signature using Aruba TSA Server (servizi.arubapec.it)

Demonstrates how to create a signature with an external timestamp (using the Aruba TSA Server) that certifies the time of signing.

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

# This example will use a certificate + private key from a .pfx/.p12 file.
# On Windows systems, it is also possible to use certs on smartcards/usb tokens or certs pre-installed in the Windows registry.
set cert [new_CkCert]

set pfxPath "qa_data/pfx/myCertAndKey.p12"
set pfxPassword "test123"

set success [CkCert_LoadPfxFile $cert $pfxPath $pfxPassword]
if {$success != 1} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCrypt2 $crypt
    delete_CkCert $cert
    exit
}

set success [CkCrypt2_SetSigningCert $crypt $cert]

# Use SHA-256 rather than the default of SHA-1
CkCrypt2_put_HashAlgorithm $crypt "sha256"

# Create JSON that tells Chilkat what signing attributes to include:
set attrs [new_CkJsonObject]

CkJsonObject_UpdateBool $attrs "contentType" 1
CkJsonObject_UpdateBool $attrs "signingTime" 1
CkJsonObject_UpdateBool $attrs "messageDigest" 1
CkJsonObject_UpdateBool $attrs "signingCertificateV2" 1

# A CAdES-T signature is one that includes a timestampToken created by an online TSA (time stamping authority).
# We must include the TSA's URL, as well as a few options to indicate what is desired.
# This example uses the Aruba TSA server, which requires a login/password for the HTTPS request.
CkJsonObject_UpdateBool $attrs "timestampToken.enabled" 1
CkJsonObject_UpdateString $attrs "timestampToken.tsaUrl" "https://servizi.arubapec.it/tsa/ngrequest.php"

# The tsaUsername/tsaPassword feature was added in Chilkat v9.5.0.79.
# Make sure you are using a version of Chilkat that is no older than v9.5.0.79
CkJsonObject_UpdateString $attrs "timestampToken.tsaUsername" "arubaTsaUsername"
CkJsonObject_UpdateString $attrs "timestampToken.tsaPassword" "arubaTsaPassword"

CkJsonObject_UpdateBool $attrs "timestampToken.addNonce" 0
CkJsonObject_UpdateBool $attrs "timestampToken.requestTsaCert" 1
CkJsonObject_UpdateString $attrs "timestampToken.hashAlg" "sha256"

CkCrypt2_put_SigningAttributes $crypt [CkJsonObject_emit $attrs]

set inFile "qa_data/json/sample.json"
set outFile "qa_output/sample_cades_t.p7m"

# This creates the CAdES-T signature.  During the signature creation, it
# communicates with the TSA to get a timestampToken.
set success [CkCrypt2_CreateP7M $crypt $inFile $outFile]
if {$success != 1} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkCrypt2 $crypt
    delete_CkCert $cert
    delete_CkJsonObject $attrs
    exit
}

puts "Success."

delete_CkCrypt2 $crypt
delete_CkCert $cert
delete_CkJsonObject $attrs