(AutoIt) Encrypting and Decrypting Content

Demonstrates how to encrypt and decrypt the content of an XML node using 128-bit CBC AES encryption.

The input XML, available at http://www.chilkatsoft.com/data/fox.xml, is this:

<root>
    <fox1>The quick brown fox jumps over the lazy dog</fox1>
    <fox2>The quick brown fox jumps over the lazy dog
        <child1>ABC</child1>
        <child2>XYZ</child2>
    </fox2>
</root>

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

$oXml = ObjCreate("Chilkat.Xml")

Local $bSuccess
; The sample input XML is available at http://www.chilkatsoft.com/data/fox.xml
$bSuccess = $oXml.LoadXmlFile("fox.xml")
If ($bSuccess <> True) Then
    ConsoleWrite($oXml.LastErrorText & @CRLF)
    Exit
EndIf

; Navigate to the "fox1" node, which is the 1st child:
$bSuccess = $oXml.FirstChild2()

; Encrypt the content:
$bSuccess = $oXml.EncryptContent("myPassword")

; Navigate back to the root:
$oXml.GetRoot2 

; Examine the new XML document:
ConsoleWrite($oXml.GetXml() & @CRLF)

; This is the XML w/ the encrypted content:
; <root>
;     <fox1>1hTtf7XmO+78H+OIr5eWHIuXxP78KPeYrZbsD0HX4negO9ZRqYMBY4s46sPNp+Q+
;     </fox1>
;     <fox2>The quick brown fox jumps over the lazy dog
;         <child1>ABC</child1>
;         <child2>XYZ</child2>
;     </fox2>
; </root>

; Now decrypt and show that the original content was restored:
$bSuccess = $oXml.FirstChild2()
$bSuccess = $oXml.DecryptContent("myPassword")
$oXml.GetRoot2 
ConsoleWrite($oXml.GetXml() & @CRLF)

; Now encrypt the content of the "fox2" node.
; First navigate to the "fox2" child.
$bSuccess = $oXml.FindChild2("fox2")
$bSuccess = $oXml.EncryptContent("myPassword")
$oXml.GetRoot2 
ConsoleWrite($oXml.GetXml() & @CRLF)

; This is the XML w/ the "fox2" encrypted content:

; <root>
;     <fox1>The quick brown fox jumps over the lazy dog</fox1>
;     <fox2>1hTtf7XmO+78H+OIr5eWHIuXxP78KPeYrZbsD0HX4negO9ZRqYMBY4s46sPNp+Q+
; 
;         <child1>ABC</child1>
;         <child2>XYZ</child2>
;     </fox2>
; </root>

; Notice that the *content* of the node is encrypted.  The child nodes are NOT encrypted.
; This is intentional.  To encrypt the content + the subtrees rooted at a given node, 
; one would call ZipTree to transform the content and subtrees
; to Base64-encoded compressed content, and then call
; EncryptContent to encrypt.

; Finally, decrypt the "fox2" content:
$bSuccess = $oXml.FindChild2("fox2")
$bSuccess = $oXml.DecryptContent("myPassword")
$oXml.GetRoot2 
ConsoleWrite($oXml.GetXml() & @CRLF)