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

For more information, see https://www.ietf.org/rfc/rfc3161.txt

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

// 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_9_5_0.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_9_5_0.Http")

loo_RequestToken = create oleobject
li_rc = loo_RequestToken.ConnectToNewObject("Chilkat_9_5_0.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 = loo_Http.PBinaryBd("POST",ls_TsaUrl,loo_RequestToken,"application/timestamp-query",0,0)
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Crypt
    destroy loo_Http
    destroy loo_RequestToken
    return
end if

// Get the timestamp reply from the HTTP response object.
loo_TimestampReply = create oleobject
li_rc = loo_TimestampReply.ConnectToNewObject("Chilkat_9_5_0.BinData")

loo_Resp.GetBodyBd(loo_TimestampReply)
destroy loo_Resp

// Convert the binary timestamp reply to XML
loo_Asn = create oleobject
li_rc = loo_Asn.ConnectToNewObject("Chilkat_9_5_0.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_TimestampReply
    destroy loo_Asn
    return
end if

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat_9_5_0.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_9_5_0.BinData")

loo_BdTstInfo.AppendEncoded(ls_TstInfoBase64,"base64")

loo_AsnTstInfo = create oleobject
li_rc = loo_AsnTstInfo.ConnectToNewObject("Chilkat_9_5_0.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_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_9_5_0.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_9_5_0.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_TimestampReply
destroy loo_Asn
destroy loo_Xml
destroy loo_BdTstInfo
destroy loo_AsnTstInfo
destroy loo_XmlTstInfo
destroy loo_SbGenTime