PowerBuilder
PowerBuilder
Extract TSTInfo from RFC3161 Timestamp Reply
See more HTTP Examples
Sends an RFC 3161 timestamp request to a TSA (Timestamp Authority) server and converts the timestamp reply to XML, and then extracts the TSTInfo from the XML and converts it to XML.Chilkat PowerBuilder Downloads
integer li_rc
integer li_Success
oleobject loo_Crypt
string ls_Base64Hash
oleobject loo_Http
oleobject loo_RequestToken
string ls_OptionalPolicyOid
integer li_AddNonce
integer li_RequestTsaCert
string ls_TsaUrl
oleobject loo_Resp
oleobject loo_TimestampReply
oleobject loo_Asn
oleobject loo_Xml
string ls_TstInfoBase64
oleobject loo_BdTstInfo
oleobject loo_AsnTstInfo
oleobject loo_XmlTstInfo
oleobject loo_SbGenTime
li_Success = 0
// Note: Requires Chilkat v9.5.0.75 or greater.
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// First sha-256 hash the data that is to be timestamped.
// In this example, the data is the string "Hello World"
loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")
if li_rc < 0 then
destroy loo_Crypt
MessageBox("Error","Connecting to COM object failed")
return
end if
loo_Crypt.HashAlgorithm = "sha256"
loo_Crypt.EncodingMode = "base64"
ls_Base64Hash = loo_Crypt.HashFileENC("qa_data/hamlet.xml")
loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
loo_RequestToken = create oleobject
li_rc = loo_RequestToken.ConnectToNewObject("Chilkat.BinData")
ls_OptionalPolicyOid = ""
li_AddNonce = 0
li_RequestTsaCert = 1
// Create a time-stamp request token
li_Success = loo_Http.CreateTimestampRequest("sha256",ls_Base64Hash,ls_OptionalPolicyOid,li_AddNonce,li_RequestTsaCert,loo_RequestToken)
if li_Success = 0 then
Write-Debug loo_Http.LastErrorText
destroy loo_Crypt
destroy loo_Http
destroy loo_RequestToken
return
end if
// Send the time-stamp request token to the TSA.
// This is the equivalent of the following CURL command:
// curl -H "Content-Type: application/timestamp-query" --data-binary '@file.tsq' http://timestamp.digicert.com > file.tsr
ls_TsaUrl = "http://timestamp.digicert.com"
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")
li_Success = loo_Http.HttpBd("POST",ls_TsaUrl,loo_RequestToken,"application/timestamp-query",loo_Resp)
if li_Success = 0 then
Write-Debug loo_Http.LastErrorText
destroy loo_Crypt
destroy loo_Http
destroy loo_RequestToken
destroy loo_Resp
return
end if
// Get the timestamp reply from the HTTP response object.
loo_TimestampReply = create oleobject
li_rc = loo_TimestampReply.ConnectToNewObject("Chilkat.BinData")
loo_Resp.GetBodyBd(loo_TimestampReply)
// Convert the binary timestamp reply to XML
loo_Asn = create oleobject
li_rc = loo_Asn.ConnectToNewObject("Chilkat.Asn")
li_Success = loo_Asn.LoadBd(loo_TimestampReply)
if li_Success = 0 then
Write-Debug loo_Asn.LastErrorText
destroy loo_Crypt
destroy loo_Http
destroy loo_RequestToken
destroy loo_Resp
destroy loo_TimestampReply
destroy loo_Asn
return
end if
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
li_Success = loo_Xml.LoadXml(loo_Asn.AsnToXml())
// Extract the TSTInfo from the XML.
// The TSTInfo is this base64 encoded ASN.1
// TSTInfo ::= SEQUENCE {
// version INTEGER { v1(1) },
// policy TSAPolicyId,
// messageImprint MessageImprint,
// -- MUST have the same value as the similar field in
// -- TimeStampReq
// serialNumber INTEGER,
// -- Time-Stamping users MUST be ready to accommodate integers
// -- up to 160 bits.
// genTime GeneralizedTime,
// accuracy Accuracy OPTIONAL,
// ordering BOOLEAN DEFAULT FALSE,
// nonce INTEGER OPTIONAL,
// -- MUST be present if the similar field was present
// -- in TimeStampReq. In that case it MUST have the same value.
// tsa [0] GeneralName OPTIONAL,
// extensions [1] IMPLICIT Extensions OPTIONAL }
ls_TstInfoBase64 = loo_Xml.GetChildContent("sequence[1]|contextSpecific|sequence|sequence|contextSpecific|octets")
loo_BdTstInfo = create oleobject
li_rc = loo_BdTstInfo.ConnectToNewObject("Chilkat.BinData")
loo_BdTstInfo.AppendEncoded(ls_TstInfoBase64,"base64")
loo_AsnTstInfo = create oleobject
li_rc = loo_AsnTstInfo.ConnectToNewObject("Chilkat.Asn")
li_Success = loo_AsnTstInfo.LoadBd(loo_BdTstInfo)
if li_Success = 0 then
Write-Debug loo_AsnTstInfo.LastErrorText
destroy loo_Crypt
destroy loo_Http
destroy loo_RequestToken
destroy loo_Resp
destroy loo_TimestampReply
destroy loo_Asn
destroy loo_Xml
destroy loo_BdTstInfo
destroy loo_AsnTstInfo
return
end if
loo_XmlTstInfo = create oleobject
li_rc = loo_XmlTstInfo.ConnectToNewObject("Chilkat.Xml")
li_Success = loo_XmlTstInfo.LoadXml(loo_AsnTstInfo.AsnToXml())
Write-Debug loo_XmlTstInfo.GetXml()
// Here's the TSTInfo XML:
// <?xml version="1.0" encoding="utf-8"?>
// <sequence>
// <int>01</int>
// <oid>2.16.840.1.114412.7.1</oid>
// <sequence>
// <sequence>
// <oid>2.16.840.1.101.3.4.2.1</oid>
// <null/>
// </sequence>
// <octets>4sRRyWOzC7EOic4fQ9+Op1pa10DbgoBGjBvkq09LZmE=</octets>
// </sequence>
// <int>00AD2C86E49872597B60F87D5C54BCFFAE</int>
// <universal tag="24" constructed="0">MjAyMzAzMTYxMTQ5NTJa</universal>
// </sequence>
// The genTime (GeneralizedTime) is contained in the final "universal" XML element and is
// in base64. It is the time at which the time-stamp token has been created by
// the TSA. After decoding from base64, it is:
//
// The syntax is: YYYYMMDDhhmmss[.s...]Z
// Example: 19990609001326.34352Z
loo_SbGenTime = create oleobject
li_rc = loo_SbGenTime.ConnectToNewObject("Chilkat.StringBuilder")
loo_SbGenTime.DecodeAndAppend(loo_XmlTstInfo.GetChildContent("universal"),"base64","utf-8")
Write-Debug loo_SbGenTime.GetAsString()
// Result:
// 20230316115718Z
destroy loo_Crypt
destroy loo_Http
destroy loo_RequestToken
destroy loo_Resp
destroy loo_TimestampReply
destroy loo_Asn
destroy loo_Xml
destroy loo_BdTstInfo
destroy loo_AsnTstInfo
destroy loo_XmlTstInfo
destroy loo_SbGenTime