PowerBuilder

Calculate HRMC IRMark

See more XML Digital Signatures Examples

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

integer li_rc
oleobject loo_Xml
oleobject loo_Xdsig
long li_WithComments
string ls_CanonXml
oleobject loo_Crypt
string ls_Irmark

//  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.
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Xml.Tag = "GovTalkMessage"
loo_Xml.AddAttribute("xmlns","http://www.govtalk.gov.uk/CM/envelope")
loo_Xml.UpdateAttrAt("Body|Message",1,"xmlns","urn:g3.ge:dea:call:SendDocument:v1")
loo_Xml.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>

Write-Debug loo_Xml.GetXml()

//  Canonicalize the XML (using C14N)
loo_Xdsig = create oleobject
li_rc = loo_Xdsig.ConnectToNewObject("Chilkat.XmlDSig")

li_WithComments = 0
ls_CanonXml = loo_Xdsig.CanonicalizeXml(loo_Xml.GetXml(),"C14N",li_WithComments)

//  Return the base64 SHA-1 HASH of the canonical XML.
loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

loo_Crypt.HashAlgorithm = "sha1"
loo_Crypt.EncodingMode = "base64"
ls_Irmark = loo_Crypt.HashStringENC(ls_CanonXml)

Write-Debug "IRMark = " + ls_Irmark


destroy loo_Xml
destroy loo_Xdsig
destroy loo_Crypt