VBScript

Export a Public Key as XML

Demonstrates the Chilkat PublicKey.GetXml method, which returns the public key in Chilkat XML format. It takes no arguments; the exact representation (for example an RSAPublicKey element) depends on the key type.

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 comes from the .NET/XML-DSIG world; exporting to it lets you hand a public key to .NET code or a system built around XML signatures. It is the inverse of LoadXml-style loading. Because a public key is not secret, this XML can be shared freely.

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 public key to export.  LoadFromFile inspects the content, so it accepts DER, PEM, XML,
'  JWK, and other supported representations.
set pubKey = CreateObject("Chilkat.PublicKey")
success = pubKey.LoadFromFile("qa_data/public.pem")
If (success = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

'  Export the public key in Chilkat XML format.  The representation depends on the key type (for
'  example an RSAPublicKey element for RSA).
xml = pubKey.GetXml()
If (pubKey.LastMethodSuccess = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(xml)

outFile.Close