AutoIt

Combine Timestamp Reply and Content File into a TimeStampData

See more ASN.1 Examples

Demonstrates how to combine a timestamp reply (RFC 3161) with a data file (any type of file) to create a TimeStampData structure (RFC 5544). AutoIt

Local $bSuccess = False

;  This example requires the Chilkat API to have been previously unlocked.
;  See Global Unlock Sample for sample code.

;  Also see this example:
;  Send a TimeStamp Request to a TimeStamp Authority and get the Response

;  Load a timestamp reply file
$oBdTsr = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdTsr.LoadFile("qa_data/tsd/sample.tsr")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load timestamp reply file." & @CRLF)
    Exit
EndIf

;  Load the tsr into an ASN.1 object.
$oAsnTsr = ObjCreate("Chilkat.Asn")
$bSuccess = $oAsnTsr.LoadEncoded($oBdTsr.GetEncoded("base64"),"base64")
If ($bSuccess <> True) Then
    ConsoleWrite($oAsnTsr.LastErrorText & @CRLF)
    Exit
EndIf

;  Get the timestamp reply as XML.
$oXmlTsr = ObjCreate("Chilkat.Xml")
$oXmlTsr.LoadXml($oAsnTsr.AsnToXml())

;  The timestamp reply XML begins like this:
;  We'll want to remove the 1st "sequence" subtree.

;      <?xml version="1.0" encoding="utf-8"?>
;      <sequence>
;          <sequence>       <---- Remove this sub-tree.
;              <int>00</int>
;              <sequence>
;                  <utf8>Operation Okay</utf8>
;              </sequence>
;          </sequence>
;          <sequence>   
;              <oid>1.2.840.113549.1.7.2</oid>
;              <contextSpecific tag="0" constructed="1">
;              ...

;  Remove the 1st sub-tree..
$oXmlTsr.RemoveChildByIndex 0

;  In this example, the data file we're combining with the timestamp into a timestampData is a .p7m.
;  However, it can be any type of file (text or binary), it doesn't matter..
$oBdContent = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdContent.LoadFile("qa_data/tsd/sample.p7m")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load content file." & @CRLF)
    Exit
EndIf

;  Begin building the TimeStampData.  
;  We'll build as XML and then convert to ASN.1
$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "sequence"
$oXml.UpdateChildContent "oid","1.2.840.113549.1.9.16.1.31"
$oXml.UpdateAttrAt("contextSpecific",True,"tag","0")
$oXml.UpdateAttrAt("contextSpecific",True,"constructed","1")
$oXml.UpdateChildContent "contextSpecific|sequence|int","01"
$oXml.UpdateChildContent "contextSpecific|sequence|octets",$oBdContent.GetEncoded("base64")
$oXml.UpdateAttrAt("contextSpecific|sequence|contextSpecific",True,"tag","0")
$oXml.UpdateAttrAt("contextSpecific|sequence|contextSpecific",True,"constructed","1")

Local $oXContext = $oXml.GetChildWithTag("contextSpecific|sequence|contextSpecific")
$oXContext.AddChildTree($oXmlTsr)

;  Convert the XML to ASN.1
$oTsd = ObjCreate("Chilkat.Asn")
$oTsd.LoadAsnXml($oXml.GetXml())

;  Write the timestamped data to a file.
$bSuccess = $oTsd.WriteBinaryDer("qa_output/sample.tsd")

;  Alternatively, get the tsd ASN.1 as base64..
Local $sTsdBase64 = $oTsd.GetEncodedDer("base64_mime")
ConsoleWrite($sTsdBase64 & @CRLF)