Encrypt XML Subtree

Encrypt an entire subtree within an XML document

Download Chilkat Perl Module

use chilkat;


$xml = new chilkat::CkXml();

#  First, build a sample XML document:

$xml = new chilkat::CkXml();

$xml->put_Tag("stocks");

$xmlM = $xml->NewChild("Microsoft","");
$xmlM->NewChild2("symbol","MSFT");
$xmlM->NewChild2("recentPrice","34.50");

$xmlG = $xml->NewChild("Google","");
$xmlG->NewChild2("symbol","GOOG");
$xmlG->NewChild2("recentPrice","679.00");

#  Display the unencrypted XML:
print $xml->getXml() . "\r\n";

#  This is the XML displayed:
#  <stocks>
#      <Microsoft>
#          <symbol>MSFT</symbol>
#          <recentPrice>34.50</recentPrice>
#      </Microsoft>
#      <Google>
#          <symbol>GOOG</symbol>
#          <recentPrice>679.00</recentPrice>
#      </Google>
#  </stocks>

#  The goal is to encrypt the "Microsoft" sub-tree.
#  The EncryptContent method encryptes the content
#  within a single XML node (not an entire sub-tree).
#  Therefore, to encrypt a sub-tree,  you must first
#  compress it into a single node, and then encrypt it.
$xmlM->ZipTree();

#  Now encrypt the content using 128-bit AES encryption:
$xmlM->EncryptContent("secretPassword");

#  Display the XML with the encrypted sub-tree:
print $xml->getXml() . "\r\n";

#  This is displayed:
#  <stocks>
#      <Microsoft><![CDATA
#  [JkiMcoK3Mi198rT30KvicDEzu5WuJgMH+8KS0UZbcRE
#  2CtdXplphV0iCdPMYnS01O6Ly6S4QCQSReMCshG/V3
#  8btJIZv/VLG9JZRsQk0bBafMhx7B2fQfm8YENke/JIM
#  ]]>    </Microsoft>
#      <Google>
#          <symbol>GOOG</symbol>
#          <recentPrice>679.00</recentPrice>
#      </Google>
#  </stocks>

#  Now decrypt and unzip:
$xmlM->DecryptContent("secretPassword");

$success = $xmlM->UnzipTree();
if ($success != 1) {
    print "Failed to unzip tree" . "\r\n";
}

#  Display the restored document:
print $xml->getXml() . "\r\n";