AutoIt Requires Chilkat v11.0.0+

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

Local $bSuccess = False

;  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"

$oCrypt = ObjCreate("Chilkat.Crypt2")
$oCrypt.HashAlgorithm = "sha256"
$oCrypt.EncodingMode = "base64"
Local $sBase64Hash = $oCrypt.HashFileENC("qa_data/hamlet.xml")

$oHttp = ObjCreate("Chilkat.Http")

$oRequestToken = ObjCreate("Chilkat.BinData")
Local $sOptionalPolicyOid = ""
Local $bAddNonce = False
Local $bRequestTsaCert = True

;  Create a time-stamp request token
$bSuccess = $oHttp.CreateTimestampRequest("sha256",$sBase64Hash,$sOptionalPolicyOid,$bAddNonce,$bRequestTsaCert,$oRequestToken)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

;  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
Local $sTsaUrl = "http://timestamp.digicert.com"
$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpBd("POST",$sTsaUrl,$oRequestToken,"application/timestamp-query",$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

;  Get the timestamp reply from the HTTP response object.
$oTimestampReply = ObjCreate("Chilkat.BinData")
$oResp.GetBodyBd($oTimestampReply)

;  Convert the binary timestamp reply to XML
$oAsn = ObjCreate("Chilkat.Asn")
$bSuccess = $oAsn.LoadBd($oTimestampReply)
If ($bSuccess = False) Then
    ConsoleWrite($oAsn.LastErrorText & @CRLF)
    Exit
EndIf

$oXml = ObjCreate("Chilkat.Xml")
$bSuccess = $oXml.LoadXml($oAsn.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  }

Local $sTstInfoBase64 = $oXml.GetChildContent("sequence[1]|contextSpecific|sequence|sequence|contextSpecific|octets")

$oBdTstInfo = ObjCreate("Chilkat.BinData")
$oBdTstInfo.AppendEncoded($sTstInfoBase64,"base64")

$oAsnTstInfo = ObjCreate("Chilkat.Asn")
$bSuccess = $oAsnTstInfo.LoadBd($oBdTstInfo)
If ($bSuccess = False) Then
    ConsoleWrite($oAsnTstInfo.LastErrorText & @CRLF)
    Exit
EndIf

$oXmlTstInfo = ObjCreate("Chilkat.Xml")
$bSuccess = $oXmlTstInfo.LoadXml($oAsnTstInfo.AsnToXml())
ConsoleWrite($oXmlTstInfo.GetXml() & @CRLF)

;  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

$oSbGenTime = ObjCreate("Chilkat.StringBuilder")
$oSbGenTime.DecodeAndAppend($oXmlTstInfo.GetChildContent("universal"),"base64","utf-8")
ConsoleWrite($oSbGenTime.GetAsString() & @CRLF)

;  Result:
;  20230316115718Z