(Excel) RSA Encrypt and OpenSSL Decrypt

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

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim rsa As Chilkat.Rsa
Set rsa = Chilkat.NewRsa


success = rsa.GenerateKey(2048)


Set privKey = rsa.ExportPrivateKeyObj()
success = privKey.SavePkcs8PemFile("qa_output/privKey.pem")

rsa.EncodingMode = "base64"

plainText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890"

bUsePrivateKey = False

encryptedStr = rsa.EncryptStringENC(plainText,bUsePrivateKey)

Dim bd As Chilkat.BinData
Set bd = Chilkat.NewBinData
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

Debug.Print "OK"