(Xojo Plugin) Calculate HRMC IRMark

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

Chilkat Xojo Plugin Download

Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

//  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.
Dim xml As New Chilkat.Xml
xml.Tag = "GovTalkMessage"
success = xml.AddAttribute("xmlns","http://www.govtalk.gov.uk/CM/envelope")
success = xml.UpdateAttrAt("Body|Message",True,"xmlns","urn:g3.ge:dea:call:SendDocument:v1")
xml.UpdateChildContent "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>

System.DebugLog(xml.GetXml())

//  Canonicalize the XML (using C14N)
Dim xdsig As New Chilkat.XmlDSig
Dim withComments As Boolean
withComments = False
Dim canonXml As String
canonXml = xdsig.CanonicalizeXml(xml.GetXml(),"C14N",withComments)

//  Return the base64 SHA-1 HASH of the canonical XML.
Dim crypt As New Chilkat.Crypt2
crypt.HashAlgorithm = "sha1"
crypt.EncodingMode = "base64"
Dim irmark As String
irmark = crypt.HashStringENC(canonXml)

System.DebugLog("IRMark = " + irmark)