Xbase++

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). Xbase++

LOCAL nSuccess
LOCAL oBdTsr
LOCAL oAsnTsr
LOCAL oXmlTsr
LOCAL oBdContent
LOCAL oXml
LOCAL oXContext
LOCAL oTsd
LOCAL cTsdBase64

nSuccess := 0

//  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 := CreateObject("Chilkat.BinData")
nSuccess := oBdTsr:LoadFile("qa_data/tsd/sample.tsr")
IF (nSuccess != 1)
    ? "Failed to load timestamp reply file."
    oBdTsr:destroy()
    RETURN
ENDIF

//  Load the tsr into an ASN.1 object.
oAsnTsr := CreateObject("Chilkat.Asn")
nSuccess := oAsnTsr:LoadEncoded(oBdTsr:GetEncoded("base64"), "base64")
IF (nSuccess != 1)
    ? oAsnTsr:LastErrorText
    oBdTsr:destroy()
    oAsnTsr:destroy()
    RETURN
ENDIF

//  Get the timestamp reply as XML.
oXmlTsr := CreateObject("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 := CreateObject("Chilkat.BinData")
nSuccess := oBdContent:LoadFile("qa_data/tsd/sample.p7m")
IF (nSuccess != 1)
    ? "Failed to load content file."
    oBdTsr:destroy()
    oAsnTsr:destroy()
    oXmlTsr:destroy()
    oBdContent:destroy()
    RETURN
ENDIF

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

oXContext := oXml:GetChildWithTag("contextSpecific|sequence|contextSpecific")
oXContext:AddChildTree(oXmlTsr)
oXContext:destroy()

//  Convert the XML to ASN.1
oTsd := CreateObject("Chilkat.Asn")
oTsd:LoadAsnXml(oXml:GetXml())

//  Write the timestamped data to a file.
nSuccess := oTsd:WriteBinaryDer("qa_output/sample.tsd")

//  Alternatively, get the tsd ASN.1 as base64..
cTsdBase64 := oTsd:GetEncodedDer("base64_mime")
? cTsdBase64

oBdTsr:destroy()
oAsnTsr:destroy()
oXmlTsr:destroy()
oBdContent:destroy()
oXml:destroy()
oTsd:destroy()