(Unicode C) 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.

For more information, see https://www.ietf.org/rfc/rfc3161.txt

Chilkat C/C++ Library Downloads
MS Visual C/C++ Linux/CentOS C/C++ Alpine Linux C/C++ MAC OS X C/C++	armhf/aarch64 C/C++ C++ Builder iOS C/C++ Android C/C++	Solaris C/C++ MinGW C/C++

#include <C_CkCrypt2W.h>
#include <C_CkHttpW.h>
#include <C_CkBinDataW.h>
#include <C_CkHttpResponseW.h>
#include <C_CkAsnW.h>
#include <C_CkXmlW.h>
#include <C_CkStringBuilderW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkCrypt2W crypt;
    const wchar_t *base64Hash;
    HCkHttpW http;
    HCkBinDataW requestToken;
    const wchar_t *optionalPolicyOid;
    BOOL addNonce;
    BOOL requestTsaCert;
    const wchar_t *tsaUrl;
    HCkHttpResponseW resp;
    HCkBinDataW timestampReply;
    HCkAsnW asn;
    HCkXmlW xml;
    const wchar_t *tstInfoBase64;
    HCkBinDataW bdTstInfo;
    HCkAsnW asnTstInfo;
    HCkXmlW xmlTstInfo;
    HCkStringBuilderW sbGenTime;

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

    crypt = CkCrypt2W_Create();
    CkCrypt2W_putHashAlgorithm(crypt,L"sha256");
    CkCrypt2W_putEncodingMode(crypt,L"base64");
    base64Hash = CkCrypt2W_hashFileENC(crypt,L"qa_data/hamlet.xml");

    http = CkHttpW_Create();

    requestToken = CkBinDataW_Create();
    optionalPolicyOid = L"";
    addNonce = FALSE;
    requestTsaCert = TRUE;

    // Create a time-stamp request token
    success = CkHttpW_CreateTimestampRequest(http,L"sha256",base64Hash,optionalPolicyOid,addNonce,requestTsaCert,requestToken);
    if (success == FALSE) {
        wprintf(L"%s\n",CkHttpW_lastErrorText(http));
        CkCrypt2W_Dispose(crypt);
        CkHttpW_Dispose(http);
        CkBinDataW_Dispose(requestToken);
        return;
    }

    // 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
    tsaUrl = L"http://timestamp.digicert.com";
    resp = CkHttpW_PBinaryBd(http,L"POST",tsaUrl,requestToken,L"application/timestamp-query",FALSE,FALSE);
    if (CkHttpW_getLastMethodSuccess(http) == FALSE) {
        wprintf(L"%s\n",CkHttpW_lastErrorText(http));
        CkCrypt2W_Dispose(crypt);
        CkHttpW_Dispose(http);
        CkBinDataW_Dispose(requestToken);
        return;
    }

    // Get the timestamp reply from the HTTP response object.
    timestampReply = CkBinDataW_Create();
    CkHttpResponseW_GetBodyBd(resp,timestampReply);
    CkHttpResponseW_Dispose(resp);

    // Convert the binary timestamp reply to XML
    asn = CkAsnW_Create();
    success = CkAsnW_LoadBd(asn,timestampReply);
    if (success == FALSE) {
        wprintf(L"%s\n",CkAsnW_lastErrorText(asn));
        CkCrypt2W_Dispose(crypt);
        CkHttpW_Dispose(http);
        CkBinDataW_Dispose(requestToken);
        CkBinDataW_Dispose(timestampReply);
        CkAsnW_Dispose(asn);
        return;
    }

    xml = CkXmlW_Create();
    success = CkXmlW_LoadXml(xml,CkAsnW_asnToXml(asn));

    // 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  }

    tstInfoBase64 = CkXmlW_getChildContent(xml,L"sequence[1]|contextSpecific|sequence|sequence|contextSpecific|octets");

    bdTstInfo = CkBinDataW_Create();
    CkBinDataW_AppendEncoded(bdTstInfo,tstInfoBase64,L"base64");

    asnTstInfo = CkAsnW_Create();
    success = CkAsnW_LoadBd(asnTstInfo,bdTstInfo);
    if (success == FALSE) {
        wprintf(L"%s\n",CkAsnW_lastErrorText(asnTstInfo));
        CkCrypt2W_Dispose(crypt);
        CkHttpW_Dispose(http);
        CkBinDataW_Dispose(requestToken);
        CkBinDataW_Dispose(timestampReply);
        CkAsnW_Dispose(asn);
        CkXmlW_Dispose(xml);
        CkBinDataW_Dispose(bdTstInfo);
        CkAsnW_Dispose(asnTstInfo);
        return;
    }

    xmlTstInfo = CkXmlW_Create();
    success = CkXmlW_LoadXml(xmlTstInfo,CkAsnW_asnToXml(asnTstInfo));
    wprintf(L"%s\n",CkXmlW_getXml(xmlTstInfo));

    // 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

    sbGenTime = CkStringBuilderW_Create();
    CkStringBuilderW_DecodeAndAppend(sbGenTime,CkXmlW_getChildContent(xmlTstInfo,L"universal"),L"base64",L"utf-8");
    wprintf(L"%s\n",CkStringBuilderW_getAsString(sbGenTime));

    // Result:
    // 20230316115718Z


    CkCrypt2W_Dispose(crypt);
    CkHttpW_Dispose(http);
    CkBinDataW_Dispose(requestToken);
    CkBinDataW_Dispose(timestampReply);
    CkAsnW_Dispose(asn);
    CkXmlW_Dispose(xml);
    CkBinDataW_Dispose(bdTstInfo);
    CkAsnW_Dispose(asnTstInfo);
    CkXmlW_Dispose(xmlTstInfo);
    CkStringBuilderW_Dispose(sbGenTime);

    }