Xbase++

Calculate HRMC IRMark

See more XML Digital Signatures Examples

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

Chilkat Xbase++ Downloads

Xbase++

LOCAL oXml
LOCAL oXdsig
LOCAL nWithComments
LOCAL cCanonXml
LOCAL oCrypt
LOCAL cIrmark

//  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 := CreateObject("Chilkat.Xml")
oXml:Tag := "GovTalkMessage"
oXml:AddAttribute("xmlns", "http://www.govtalk.gov.uk/CM/envelope")
oXml:UpdateAttrAt("Body|Message", 1, "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>

? oXml:GetXml()

//  Canonicalize the XML (using C14N)
oXdsig := CreateObject("Chilkat.XmlDSig")
nWithComments := 0
cCanonXml := oXdsig:CanonicalizeXml(oXml:GetXml(), "C14N", nWithComments)

//  Return the base64 SHA-1 HASH of the canonical XML.
oCrypt := CreateObject("Chilkat.Crypt2")
oCrypt:HashAlgorithm := "sha1"
oCrypt:EncodingMode := "base64"
cIrmark := oCrypt:HashStringENC(cCanonXml)

? "IRMark = " + cIrmark

oXml:destroy()
oXdsig:destroy()
oCrypt:destroy()