(VBScript) Combine Timestamp Reply and Content File into a TimeStampData

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

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' 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
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdTsr = CreateObject("Chilkat.BinData")
success = bdTsr.LoadFile("qa_data/tsd/sample.tsr")
If (success <> 1) Then
    outFile.WriteLine("Failed to load timestamp reply file.")
    WScript.Quit
End If

' Load the tsr into an ASN.1 object.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set asnTsr = CreateObject("Chilkat.Asn")
success = asnTsr.LoadEncoded(bdTsr.GetEncoded("base64"),"base64")
If (success <> 1) Then
    outFile.WriteLine(asnTsr.LastErrorText)
    WScript.Quit
End If

' Get the timestamp reply as XML.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xmlTsr = CreateObject("Chilkat.Xml")
success = xmlTsr.LoadXml(asnTsr.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..
xmlTsr.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..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdContent = CreateObject("Chilkat.BinData")
success = bdContent.LoadFile("qa_data/tsd/sample.p7m")
If (success <> 1) Then
    outFile.WriteLine("Failed to load content file.")
    WScript.Quit
End If

' Begin building the TimeStampData.  
' We'll build as XML and then convert to ASN.1
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
xml.Tag = "sequence"
xml.UpdateChildContent "oid","1.2.840.113549.1.9.16.1.31"
success = xml.UpdateAttrAt("contextSpecific",1,"tag","0")
success = xml.UpdateAttrAt("contextSpecific",1,"constructed","1")
xml.UpdateChildContent "contextSpecific|sequence|int","01"
xml.UpdateChildContent "contextSpecific|sequence|octets",bdContent.GetEncoded("base64")
success = xml.UpdateAttrAt("contextSpecific|sequence|contextSpecific",1,"tag","0")
success = xml.UpdateAttrAt("contextSpecific|sequence|contextSpecific",1,"constructed","1")

' xContext is a Chilkat.Xml
Set xContext = xml.GetChildWithTag("contextSpecific|sequence|contextSpecific")
success = xContext.AddChildTree(xmlTsr)

' Convert the XML to ASN.1
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set tsd = CreateObject("Chilkat.Asn")
success = tsd.LoadAsnXml(xml.GetXml())

' Write the timestamped data to a file.
success = tsd.WriteBinaryDer("qa_output/sample.tsd")

' Alternatively, get the tsd ASN.1 as base64..
tsdBase64 = tsd.GetEncodedDer("base64_mime")
outFile.WriteLine(tsdBase64)

outFile.Close