Xbase++

Sign String to create a CAdES-T Signature

See more CAdES Examples

This example will sign a string to create a CAdEST-T signature.

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

Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL oCert
LOCAL oAttrs
LOCAL cStrToSign
LOCAL oBd

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 the certificate + private key currently inserted into a smartcard reader.
oCert := CreateObject("Chilkat.Cert")

//  If we wish to provide the smartcard PIN (otherwise the user will be prompted by the operating system).
oCert:SmartCardPin := "000000"
nSuccess := oCert:LoadFromSmartcard("")
IF (nSuccess != 1)
    ? oCert:LastErrorText
    oCrypt:destroy()
    oCert:destroy()
    RETURN
ENDIF

//  Note: It is also possible to use certs from .pfx/.p12, .pem, or other sources such as 
//  pre-installed Windows certificates.

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()

cStrToSign := "THIS IS MY ID"

oBd := CreateObject("Chilkat.BinData")
oBd:AppendString(cStrToSign, "utf-8")

//  This creates the CAdES-T signature.  During the signature creation, it
//  communicates with the TSA to get a timestampToken.
//  The contents of bd are signed and replaced with the CAdES-T signature (which embeds the original content).
nSuccess := oCrypt:OpaqueSignBd(oBd)
IF (nSuccess != 1)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    oCert:destroy()
    oAttrs:destroy()
    oBd:destroy()
    RETURN
ENDIF

//  Get the signature in base64 format:
? oBd:GetEncoded("base64_mime")

//  Or save the signature to a file.
oBd:WriteFile("qa_output/cades-t_sample.p7m")

? "Success."

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