B4X

XML Inclusive Canonicalization

See more XML Digital Signatures Examples

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

Dim success As Boolean = False

'  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.

Dim http As ChilkatHttp
http.Initialize("http")
Dim sbXml As ChilkatStringBuilder
sbXml.Initialize
Dim canon As ChilkatXmlDSig
canon.Initialize

'  Use inclusive XML canonicalization.
Dim canonVersion As String = "C14N"
Dim withComments As Boolean = False

Dim url As String = "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>

Dim xmlInclCanon As String = canon.CanonicalizeXml(sbXml.GetAsString, canonVersion, withComments)
Log(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"

Dim xmlExclCanon As String = canon.CanonicalizeXml(sbXml.GetAsString, canonVersion, withComments)
Log(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>