PowerBuilder

Encrypting and Decrypting Content

See more XML Examples

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>

PowerBuilder

integer li_rc
long li_Success
oleobject loo_Xml

li_Success = 0

loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  The sample input XML is available at http://www.chilkatsoft.com/data/fox.xml
li_Success = loo_Xml.LoadXmlFile("fox.xml")
if li_Success <> 1 then
    Write-Debug loo_Xml.LastErrorText
    destroy loo_Xml
    return
end if

//  Navigate to the "fox1" node, which is the 1st child:
li_Success = loo_Xml.FirstChild2()

//  Encrypt the content:
li_Success = loo_Xml.EncryptContent("myPassword")

//  Navigate back to the root:
loo_Xml.GetRoot2()

//  Examine the new XML document:
Write-Debug loo_Xml.GetXml()

//  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:
li_Success = loo_Xml.FirstChild2()
li_Success = loo_Xml.DecryptContent("myPassword")
loo_Xml.GetRoot2()
Write-Debug loo_Xml.GetXml()

//  Now encrypt the content of the "fox2" node.
//  First navigate to the "fox2" child.
li_Success = loo_Xml.FindChild2("fox2")
li_Success = loo_Xml.EncryptContent("myPassword")
loo_Xml.GetRoot2()
Write-Debug loo_Xml.GetXml()

//  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:
li_Success = loo_Xml.FindChild2("fox2")
li_Success = loo_Xml.DecryptContent("myPassword")
loo_Xml.GetRoot2()
Write-Debug loo_Xml.GetXml()


destroy loo_Xml