Xbase++

Sign String to create a CAdES-T Signature, using HTTP Proxy to Access Timestamp Server

This example will sign a string to create a CAdEST-T signature. It will use an HTTP proxy to access the timestamp server. Xbase++

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

nSuccess := 0

oCrypt := CreateObject("Chilkat.Crypt2")

oCert := CreateObject("Chilkat.Cert")
oCert:SmartCardPin := "123456"
nSuccess := oCert:LoadFromSmartcard("")
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()

cStrToSign := "Hello World!"

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

//  -------------------------------------------------------------------------
//  The purpose of this example is to show how an HTTP object with custom
//  settings can be used to access the Internet when signing.
//  Access to the Internet is needed to communicate with the timestamp server.
oHttp := CreateObject("Chilkat.Http")
//  This can be a domain name, hostname, or IP address.
oHttp:ProxyDomain := "172.16.16.56"
oHttp:ProxyPort := 808
oHttp:ProxyLogin := "myProxyLogin"
oHttp:ProxyPassword := "myProxyPassword"
oCrypt:SetTsaHttpObj(oHttp)
//  -------------------------------------------------------------------------

//  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()
    oHttp:destroy()
    RETURN
ENDIF

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

? "Success."

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