(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i
    ; The sample input XML is available at http://www.chilkatsoft.com/data/fox.xml
    success = CkXml::ckLoadXmlFile(xml,"fox.xml")
    If success <> 1
        Debug CkXml::ckLastErrorText(xml)
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    ; Navigate to the "fox1" node, which is the 1st child:
    success = CkXml::ckFirstChild2(xml)

    ; Encrypt the content:
    success = CkXml::ckEncryptContent(xml,"myPassword")

    ; Navigate back to the root:
    CkXml::ckGetRoot2(xml)

    ; Examine the new XML document:
    Debug CkXml::ckGetXml(xml)

    ; 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:
    success = CkXml::ckFirstChild2(xml)
    success = CkXml::ckDecryptContent(xml,"myPassword")
    CkXml::ckGetRoot2(xml)
    Debug CkXml::ckGetXml(xml)

    ; Now encrypt the content of the "fox2" node.
    ; First navigate to the "fox2" child.
    success = CkXml::ckFindChild2(xml,"fox2")
    success = CkXml::ckEncryptContent(xml,"myPassword")
    CkXml::ckGetRoot2(xml)
    Debug CkXml::ckGetXml(xml)

    ; 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:
    success = CkXml::ckFindChild2(xml,"fox2")
    success = CkXml::ckDecryptContent(xml,"myPassword")
    CkXml::ckGetRoot2(xml)
    Debug CkXml::ckGetXml(xml)


    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure