(Classic ASP) 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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' 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")
set xml = Server.CreateObject("Chilkat.Xml")
xml.Tag = "GovTalkMessage"
success = xml.AddAttribute("xmlns","http://www.govtalk.gov.uk/CM/envelope")
success = xml.UpdateAttrAt("Body|Message",1,"xmlns","urn:g3.ge:dea:call:SendDocument:v1")
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>

Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

' Canonicalize the XML (using C14N)
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.XmlDSig")
set xdsig = Server.CreateObject("Chilkat.XmlDSig")
withComments = 0
canonXml = xdsig.CanonicalizeXml(xml.GetXml(),"C14N",withComments)

' Return the base64 SHA-1 HASH of the canonical XML.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = Server.CreateObject("Chilkat.Crypt2")
crypt.HashAlgorithm = "sha1"
crypt.EncodingMode = "base64"
irmark = crypt.HashStringENC(canonXml)

Response.Write "<pre>" & Server.HTMLEncode( "IRMark = " & irmark) & "</pre>"

%>
</body>
</html>