VBScript

Generate an RSA Key and Save to Encrypted PEM

See more RSA Examples

Demonstrates how to generate an RSA key and save to an encrypted PEM file. 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

set rsa = CreateObject("Chilkat.Rsa")

' Generate a 2048-bit key.
set privKey = CreateObject("Chilkat.PrivateKey")
success = rsa.GenKey(2048,privKey)
If (success = 0) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

password = "secret"
' Saving to a relative path (from the current working directory of the process).
path = "rsaKeys/myTestRsaPrivate.pem"
' Encrypt the PEM using 256-bit AES encryption.
privKey.Pkcs8EncryptAlg = "aes256"
success = privKey.SavePkcs8EncryptedPemFile(password,path)
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

' 

' We can also save the public key.
' There is no need to encrypt public keys.
set pubKey = CreateObject("Chilkat.PublicKey")
success = privKey.ToPublicKey(pubKey)

path = "rsaKeys/myTestRsaPublic.pem"
' Choose PKCS1 or PKCS8
' We'll choose PKCS8.
preferPkcs1 = 0
success = pubKey.SavePemFile(preferPkcs1,path)
If (success = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

' 

outFile.WriteLine("Success.")

outFile.Close