AutoIt

Calculate HRMC IRMark

See more XML Digital Signatures Examples

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

Chilkat AutoIt Downloads

AutoIt

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

ConsoleWrite($oXml.GetXml() & @CRLF)

;  Canonicalize the XML (using C14N)
$oXdsig = ObjCreate("Chilkat.XmlDSig")
Local $bWithComments = False
Local $sCanonXml = $oXdsig.CanonicalizeXml($oXml.GetXml(),"C14N",$bWithComments)

;  Return the base64 SHA-1 HASH of the canonical XML.
$oCrypt = ObjCreate("Chilkat.Crypt2")
$oCrypt.HashAlgorithm = "sha1"
$oCrypt.EncodingMode = "base64"
Local $sIrmark = $oCrypt.HashStringENC($sCanonXml)

ConsoleWrite("IRMark = " & $sIrmark & @CRLF)