Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Encrypt XML Node Content
Encrypt the contents of an XML node. 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() |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.