VBScript

Export a Private Key as XML

Demonstrates the Chilkat PrivateKey.GetXml method, which exports the key in Chilkat-compatible XML (for example an RSAKeyValue element). It takes no arguments; the XML is not encrypted.

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: The XML key format belongs to the .NET/XML-DSIG world, where keys are represented as XML elements. Exporting to it is what you do to hand a key to .NET code or a system built around XML signatures — the inverse of LoadXml. It is plaintext, so the exported XML must be protected like any unencrypted key.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Load a private key to export.
set privKey = CreateObject("Chilkat.PrivateKey")
success = privKey.LoadPemFile("qa_data/private.pem")
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

'  Export in Chilkat-compatible XML (for example an RSAKeyValue element).  The XML is not
'  encrypted.
xml = privKey.GetXml()
If (privKey.LastMethodSuccess = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(xml)

outFile.Close