(VBScript) RSA Encrypt and OpenSSL Decrypt

Demonstrates how to use Chilkat to RSA encrypt, and then use OpenSSL to decrypt.

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)

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

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

success = rsa.GenerateKey(2048)

' privKey is a Chilkat.PrivateKey
Set privKey = rsa.ExportPrivateKeyObj()
success = privKey.SavePkcs8PemFile("qa_output/privKey.pem")

rsa.EncodingMode = "base64"
plainText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890"
bUsePrivateKey = 0
encryptedStr = rsa.EncryptStringENC(plainText,bUsePrivateKey)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = CreateObject("Chilkat.BinData")
success = bd.AppendEncoded(encryptedStr,"base64")
success = bd.WriteFile("qa_output/enc.dat")

' The OpenSSL command to decrypt is:
' openssl pkeyutl -in enc.dat -inkey privKey.pem -keyform PEM -pkeyopt rsa_padding_mode:pkcs1 -decrypt

outFile.WriteLine("OK")

outFile.Close