(Visual FoxPro) 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

LOCAL loXml
LOCAL loXdsig
LOCAL lnWithComments
LOCAL lcCanonXml
LOCAL loCrypt
LOCAL lcIrmark

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "GovTalkMessage"
loXml.AddAttribute("xmlns","http://www.govtalk.gov.uk/CM/envelope")
loXml.UpdateAttrAt("Body|Message",1,"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)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.XmlDSig')
loXdsig = CreateObject('Chilkat.XmlDSig')
lnWithComments = 0
lcCanonXml = loXdsig.CanonicalizeXml(loXml.GetXml(),"C14N",lnWithComments)

* Return the base64 SHA-1 HASH of the canonical XML.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.HashAlgorithm = "sha1"
loCrypt.EncodingMode = "base64"
lcIrmark = loCrypt.HashStringENC(lcCanonXml)

? "IRMark = " + lcIrmark

RELEASE loXml
RELEASE loXdsig
RELEASE loCrypt