VBScript

RSA Encrypt and OpenSSL Decrypt

See more OpenSSL Examples

Demonstrates how to use Chilkat to RSA encrypt, and then use OpenSSL to decrypt. 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

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

set rsa = CreateObject("Chilkat.Rsa")

set privKey = CreateObject("Chilkat.PrivateKey")
success = rsa.GenKey(2048,privKey)
success = privKey.SavePkcs8PemFile("qa_output/privKey.pem")

set pubKey = CreateObject("Chilkat.PublicKey")
success = privKey.ToPublicKey(pubKey)

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

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