(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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rsa")
set rsa = CreateObject("Chilkat.Rsa")

' Generate a 2048-bit key.
success = rsa.GenerateKey(2048)
If (success = 0) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

' privKey is a Chilkat.PrivateKey
Set privKey = rsa.ExportPrivateKeyObj()
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.
' pubKey is a Chilkat.PublicKey
Set pubKey = rsa.ExportPublicKeyObj()
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