(PowerBuilder) 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

integer li_rc
oleobject loo_Xml
oleobject loo_Xdsig
integer 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
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
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
// Use "Chilkat_9_5_0.XmlDSig" for versions of Chilkat < 10.0.0
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
// Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
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