(Lianja) Calculate HRMC IRMark

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

Chilkat Lianja Extension Download

Chilkat Lianja Extension

//  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.
loXml = createobject("CkXml")
loXml.Tag = "GovTalkMessage"
loXml.AddAttribute("xmlns","http://www.govtalk.gov.uk/CM/envelope")
loXml.UpdateAttrAt("Body|Message",.T.,"xmlns","urn:g3.ge:dea:call:SendDocument:v1")
loXml.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>

? loXml.GetXml()

//  Canonicalize the XML (using C14N)
loXdsig = createobject("CkXmlDSig")
llWithComments = .F.
lcCanonXml = loXdsig.CanonicalizeXml(loXml.GetXml(),"C14N",llWithComments)

//  Return the base64 SHA-1 HASH of the canonical XML.
loCrypt = createobject("CkCrypt2")
loCrypt.HashAlgorithm = "sha1"
loCrypt.EncodingMode = "base64"
lcIrmark = loCrypt.HashStringENC(lcCanonXml)

? "IRMark = " + lcIrmark


release loXml
release loXdsig
release loCrypt