(Visual FoxPro) 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

LOCAL loRsa
LOCAL lnSuccess
LOCAL loPrivKey
LOCAL lcPlainText
LOCAL lnBUsePrivateKey
LOCAL lcEncryptedStr
LOCAL loBd

* 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')
loRsa = CreateObject('Chilkat.Rsa')

lnSuccess = loRsa.GenerateKey(2048)

loPrivKey = loRsa.ExportPrivateKeyObj()
lnSuccess = loPrivKey.SavePkcs8PemFile("qa_output/privKey.pem")
RELEASE loPrivKey

loRsa.EncodingMode = "base64"
lcPlainText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890"
lnBUsePrivateKey = 0
lcEncryptedStr = loRsa.EncryptStringENC(lcPlainText,lnBUsePrivateKey)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
loBd.AppendEncoded(lcEncryptedStr,"base64")
lnSuccess = loBd.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

? "OK"

RELEASE loRsa
RELEASE loBd