Xbase++

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

See more CAdES Examples

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.

Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL oCert
LOCAL cPfxPath
LOCAL cPfxPassword
LOCAL oAttrs
LOCAL cInFile
LOCAL cOutFile

nSuccess := 0

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

oCrypt := CreateObject("Chilkat.Crypt2")

//  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.
oCert := CreateObject("Chilkat.Cert")

cPfxPath := "qa_data/pfx/myCertAndKey.p12"
cPfxPassword := "test123"

nSuccess := oCert:LoadPfxFile(cPfxPath, cPfxPassword)
IF (nSuccess != 1)
    ? oCert:LastErrorText
    oCrypt:destroy()
    oCert:destroy()
    RETURN
ENDIF

nSuccess := oCrypt:SetSigningCert(oCert)

//  Use SHA-256 rather than the default of SHA-1
oCrypt:HashAlgorithm := "sha256"

//  Create JSON that tells Chilkat what signing attributes to include:
oAttrs := CreateObject("Chilkat.JsonObject")
oAttrs:UpdateBool("contentType", 1)
oAttrs:UpdateBool("signingTime", 1)
oAttrs:UpdateBool("messageDigest", 1)
oAttrs:UpdateBool("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.
oAttrs:UpdateBool("timestampToken.enabled", 1)
oAttrs:UpdateString("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
oAttrs:UpdateString("timestampToken.tsaUsername", "arubaTsaUsername")
oAttrs:UpdateString("timestampToken.tsaPassword", "arubaTsaPassword")

oAttrs:UpdateBool("timestampToken.addNonce", 0)
oAttrs:UpdateBool("timestampToken.requestTsaCert", 1)
oAttrs:UpdateString("timestampToken.hashAlg", "sha256")

oCrypt:SigningAttributes := oAttrs:Emit()

cInFile := "qa_data/json/sample.json"
cOutFile := "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.
nSuccess := oCrypt:CreateP7M(cInFile, cOutFile)
IF (nSuccess != 1)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oCert:destroy()
    oAttrs:destroy()
    RETURN
ENDIF

? "Success."

oCrypt:destroy()
oCert:destroy()
oAttrs:destroy()