(Visual FoxPro) RSA Encrypt and OpenSSL Decrypt

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

Note: This example requires Chilkat v11.0.0 or greater.

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

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

lnSuccess = 0

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

loRsa = CreateObject('Chilkat.Rsa')

loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loRsa.GenKey(2048,loPrivKey)
lnSuccess = loPrivKey.SavePkcs8PemFile("qa_output/privKey.pem")

loPubKey = CreateObject('Chilkat.PublicKey')
loPrivKey.ToPublicKey(loPubKey)

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

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 loPrivKey
RELEASE loPubKey
RELEASE loBd