Encrypt XML Node Content

Encrypt the contents of an XML node.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim xml As New Chilkat.Xml()

'  The Chilkat XML component is freeware.

'  Load an XML document from a string:
xml.LoadXml("<company><name>Chilkat Software, Inc.</name><url>http://www.chilkatsoft.com/</url><phone>630-784-9670</phone></company>")

'  Get the "name" node:
Dim xmlName As Chilkat.Xml
xmlName = xml.FindChild("name")

'  Encrypt the contents using 128-bit AES:
xmlName.EncryptContent("secretPassword")

'  Display the new document, with the encrypted content:
TextBox1.Text = TextBox1.Text & "Encrypted:" & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & xml.GetXml() & vbCrLf
TextBox1.Refresh()

'  Now decrypt:
xmlName.DecryptContent("secretPassword")

'  Display it again...
TextBox1.Text = TextBox1.Text & "Decrypted:" & vbCrLf
TextBox1.Refresh()
TextBox1.Text = TextBox1.Text & xml.GetXml() & vbCrLf
TextBox1.Refresh()