Lianja

RSA Encrypt and OpenSSL Decrypt

See more OpenSSL Examples

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

llSuccess = .F.

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

loRsa = createobject("CkRsa")

loPrivKey = createobject("CkPrivateKey")
llSuccess = loRsa.GenKey(2048,loPrivKey)
llSuccess = loPrivKey.SavePkcs8PemFile("qa_output/privKey.pem")

loPubKey = createobject("CkPublicKey")
loPrivKey.ToPublicKey(loPubKey)

loRsa.EncodingMode = "base64"
lcPlainText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890"
llBUsePrivateKey = .F.
loRsa.UsePublicKey(loPubKey)
lcEncryptedStr = loRsa.EncryptStringENC(lcPlainText,llBUsePrivateKey)

loBd = createobject("CkBinData")
loBd.AppendEncoded(lcEncryptedStr,"base64")
llSuccess = 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