(VBScript) XML Inclusive Canonicalization

Demonstrates how to convert XML to the Inclusive XML Canonicalization form as specified in http://www.w3.org/TR/xml-c14n/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' The XML digital signature verification class provides utility methods for
' XML canonicalization.  This example demonstrates how to do inclusive XML canonicalization.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbXml = CreateObject("Chilkat.StringBuilder")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.XmlDSig")
set canon = CreateObject("Chilkat.XmlDSig")

' Use inclusive XML canonicalization.
canonVersion = "C14N"
withComments = 0

url = "https://www.chilkatsoft.com/exampleData/c14n/test7.xml"
success = http.QuickGetSb(url,sbXml)

' This is the input XML:
' The XML comment is referring to when exclusive XML canonicalization is applied.  With inclusive canonicalization, the namespace nodes
' are kept, as we'll see below..

' <doc>
' <!-- A namespace node N is ignored if the nearest ancestor element of the node's parent element that is in the node-set has a namespace node in the node-set with the same local name and value as N. -->
' 	<animal xmlns:aa="https://www.animal.com/">
' 		<reptile xmlns:bb="https://www.reptile.com/">
'   			<lizard xmlns="" type="african fat tailed" abc="xyz" xmlns:aa="https://www.animal.com/" />
'   			<snake type="poisonous rattler" xmlns:bb="https://www.reptile.com/" >
'   			</snake>
'   		</reptile>
'   	</animal>
' </doc>

xmlInclCanon = canon.CanonicalizeXml(sbXml.GetAsString(),canonVersion,withComments)
outFile.WriteLine(xmlInclCanon)

' The C14N (inclusive) canonicalization is:

' <doc>
' 
' 	<animal xmlns:aa="https://www.animal.com/">
' 		<reptile xmlns:bb="https://www.reptile.com/">
'   			<lizard abc="xyz" type="african fat tailed"></lizard>
'   			<snake type="poisonous rattler">
'   			</snake>
'   		</reptile>
'   	</animal>
' </doc>

' To see the difference, let's do exclusive canonicalization..
canonVersion = "EXCL_C14N"

xmlExclCanon = canon.CanonicalizeXml(sbXml.GetAsString(),canonVersion,withComments)
outFile.WriteLine(xmlExclCanon)

' // The C14N (exclusive) canonicalization is:
' 
' <doc>
' 
' 	<animal>
' 		<reptile>
'   			<lizard abc="xyz" type="african fat tailed"></lizard>
'   			<snake type="poisonous rattler">
'   			</snake>
'   		</reptile>
'   	</animal>
' </doc>

outFile.Close