(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# 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
$bdTsr = chilkat::CkBinData->new();
$success = $bdTsr->LoadFile("qa_data/tsd/sample.tsr");
if ($success != 1) {
    print "Failed to load timestamp reply file." . "\r\n";
    exit;
}

# Load the tsr into an ASN.1 object.
$asnTsr = chilkat::CkAsn->new();
$success = $asnTsr->LoadEncoded($bdTsr->getEncoded("base64"),"base64");
if ($success != 1) {
    print $asnTsr->lastErrorText() . "\r\n";
    exit;
}

# Get the timestamp reply as XML.
$xmlTsr = chilkat::CkXml->new();
$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..
$bdContent = chilkat::CkBinData->new();
$success = $bdContent->LoadFile("qa_data/tsd/sample.p7m");
if ($success != 1) {
    print "Failed to load content file." . "\r\n";
    exit;
}

# Begin building the TimeStampData.  
# We'll build as XML and then convert to ASN.1
$xml = chilkat::CkXml->new();
$xml->put_Tag("sequence");
$xml->UpdateChildContent("oid","1.2.840.113549.1.9.16.1.31");
$xml->UpdateAttrAt("contextSpecific",1,"tag","0");
$xml->UpdateAttrAt("contextSpecific",1,"constructed","1");
$xml->UpdateChildContent("contextSpecific|sequence|int","01");
$xml->UpdateChildContent("contextSpecific|sequence|octets",$bdContent->getEncoded("base64"));
$xml->UpdateAttrAt("contextSpecific|sequence|contextSpecific",1,"tag","0");
$xml->UpdateAttrAt("contextSpecific|sequence|contextSpecific",1,"constructed","1");

# xContext is a Xml
$xContext = $xml->GetChildWithTag("contextSpecific|sequence|contextSpecific");
$xContext->AddChildTree($xmlTsr);

# Convert the XML to ASN.1
$tsd = chilkat::CkAsn->new();
$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");
print $tsdBase64 . "\r\n";