(Tcl) Calculate HRMC IRMark

Demonstrates how to calculate an IRmark for an HMRC GovTalkMessage XML document.

Chilkat Tcl Extension Downloads

Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# First build a sample (but incomplete) GovTalkMessage.
# You can replace this code with a call to LoadXml or LoadXmlFile..
# 
# Note: The online tool at https://tools.chilkat.io/xmlCreate.cshtml
# can be used to generate XML code that creates a given XML document.
set xml [new_CkXml]

CkXml_put_Tag $xml "GovTalkMessage"
CkXml_AddAttribute $xml "xmlns" "http://www.govtalk.gov.uk/CM/envelope"
CkXml_UpdateAttrAt $xml "Body|Message" 1 "xmlns" "urn:g3.ge:dea:call:SendDocument:v1"
CkXml_UpdateChildContent $xml "Body|Message" "................"

# This is the XML created:
# <?xml version="1.0" encoding="utf-8" ?>
# <GovTalkMessage xmlns="http://www.govtalk.gov.uk/CM/envelope">
#     <Body>
#         <Message xmlns="urn:g3.ge:dea:call:SendDocument:v1">................</Message>
#     </Body>
# </GovTalkMessage>

puts [CkXml_getXml $xml]

# Canonicalize the XML (using C14N)
set xdsig [new_CkXmlDSig]

set withComments 0
set canonXml [CkXmlDSig_canonicalizeXml $xdsig [CkXml_getXml $xml] "C14N" $withComments]

# Return the base64 SHA-1 HASH of the canonical XML.
set crypt [new_CkCrypt2]

CkCrypt2_put_HashAlgorithm $crypt "sha1"
CkCrypt2_put_EncodingMode $crypt "base64"
set irmark [CkCrypt2_hashStringENC $crypt $canonXml]

puts "IRMark = $irmark"

delete_CkXml $xml
delete_CkXmlDSig $xdsig
delete_CkCrypt2 $crypt