Generate RSA Public/Private Key Pair and Export to PEM

VBScript example code showing how to generate an RSA public/private key pair and export to PEM files.

Download Chilkat RSA ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set rsa = CreateObject("Chilkat.Rsa")

success = rsa.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox "RSA component unlock failed"
    WScript.Quit
End If

'  Generate a 1024-bit key.  Chilkat RSA supports
'  key sizes ranging from 512 bits to 4096 bits.
success = rsa.GenerateKey(1024)
If (success <> 1) Then
    MsgBox rsa.LastErrorText
    WScript.Quit
End If

'  Keys are exported in XML format:
publicKeyXml = rsa.ExportPublicKey()
outFile.WriteLine(publicKeyXml)

privateKeyXml = rsa.ExportPrivateKey()
outFile.WriteLine(privateKeyXml)

'  Save the private key in PEM format:
set privKey = CreateObject("Chilkat.PrivateKey")
privKey.LoadXml privateKeyXml
privKey.SaveRsaPemFile "privateKey.pem"

'  Save the public key in PEM format:
set pubKey = CreateObject("Chilkat.PublicKey")
pubKey.LoadXml publicKeyXml
pubKey.SaveOpenSslPemFile "publicKey.pem"
outFile.Close