Visual FoxPro

RSA Encrypt and OpenSSL Decrypt

See more OpenSSL Examples

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

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