Xbase++

Create a CAdES-T Signature

See more CAdES Examples

Demonstrates how to create a signature with an external timestamp that certifies the time of signing. This requires an online TSA (Time Stamping Authority) service that is capable of producing RFC 3161 compliant timestamps.

Note: This example requires Chilkat v9.5.0.78 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.
//  Except for the TSA URL, the options shown here are typically what you would need.
oAttrs:UpdateBool("timestampToken.enabled", 1)
oAttrs:UpdateString("timestampToken.tsaUrl", "https://freetsa.org/tsr")
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()