(AutoIt) Calculate HRMC IRMark

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

; 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)