128-Bit AES XML Encryption in Visual Basic

Download Chilkat XML ActiveX

Source Code Listing

' 128-bit AES Encrypt the contents of an XML node.
Private Sub Command5_Click()
    Dim xml As ChilkatXml
    Set xml = New ChilkatXml
    success = xml.LoadXmlFile("test.xml")
    xml.EncryptNode "myPassword"
    xml.SaveXml "testEncrypted.xml"
End Sub

' Decrypt an XML node.
Private Sub Command6_Click()
    Dim xml As ChilkatXml
    Set xml = New ChilkatXml
    success = xml.LoadXmlFile("testEncrypted.xml")
    xml.DecryptNode "myPassword"
    xml.SaveXml "testDecrypted.xml"
End Sub