Tcl

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 Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Load a private key to export.
set privKey [new_CkPrivateKey]

set success [CkPrivateKey_LoadPemFile $privKey "qa_data/private.pem"]
if {$success == 0} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkPrivateKey $privKey
    exit
}

#  Save as unencrypted Chilkat-compatible XML (the same representation as GetXml).
set success [CkPrivateKey_SaveXmlFile $privKey "qa_output/private_key.xml"]
if {$success == 0} then {
    puts [CkPrivateKey_lastErrorText $privKey]
    delete_CkPrivateKey $privKey
    exit
}

puts "Saved."

delete_CkPrivateKey $privKey