PureBasic
PureBasic
Calculate HRMC IRMark
See more XML Digital Signatures Examples
Demonstrates how to calculate an IRmark for an HMRC GovTalkMessage XML document.Chilkat PureBasic Downloads
IncludeFile "CkXml.pb"
IncludeFile "CkXmlDSig.pb"
IncludeFile "CkCrypt2.pb"
Procedure ChilkatExample()
; 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.
xml.i = CkXml::ckCreate()
If xml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(xml, "GovTalkMessage")
CkXml::ckAddAttribute(xml,"xmlns","http://www.govtalk.gov.uk/CM/envelope")
CkXml::ckUpdateAttrAt(xml,"Body|Message",1,"xmlns","urn:g3.ge:dea:call:SendDocument:v1")
CkXml::ckUpdateChildContent(xml,"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>
Debug CkXml::ckGetXml(xml)
; Canonicalize the XML (using C14N)
xdsig.i = CkXmlDSig::ckCreate()
If xdsig.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
withComments.i = 0
canonXml.s = CkXmlDSig::ckCanonicalizeXml(xdsig,CkXml::ckGetXml(xml),"C14N",withComments)
; Return the base64 SHA-1 HASH of the canonical XML.
crypt.i = CkCrypt2::ckCreate()
If crypt.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkCrypt2::setCkHashAlgorithm(crypt, "sha1")
CkCrypt2::setCkEncodingMode(crypt, "base64")
irmark.s = CkCrypt2::ckHashStringENC(crypt,canonXml)
Debug "IRMark = " + irmark
CkXml::ckDispose(xml)
CkXmlDSig::ckDispose(xdsig)
CkCrypt2::ckDispose(crypt)
ProcedureReturn
EndProcedure