Lianja

Calculate HRMC IRMark

See more XML Digital Signatures Examples

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

Chilkat Lianja Downloads

Lianja

// 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