Perl

Save a Private Key as an XML File

Demonstrates the Chilkat PrivateKey.SaveXmlFile method, which saves the key as unencrypted Chilkat-compatible XML (the same representation as GetXml). The only argument is the destination path.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This writes the .NET/XML-DSIG-style key file, for interoperating with software built around XML key values. It is the file form of GetXml and, like it, is plaintext — so the saved .xml must be protected like any unencrypted key material.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Load a private key to export.
$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadPemFile("qa_data/private.pem");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

#  Save as unencrypted Chilkat-compatible XML (the same representation as GetXml).
$success = $privKey->SaveXmlFile("qa_output/private_key.xml");
if ($success == 0) {
    print $privKey->lastErrorText() . "\r\n";
    exit;
}

print "Saved." . "\r\n";