B4X Requires Chilkat v11.0.0+

RSA Encrypt and OpenSSL Decrypt

See more OpenSSL Examples

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

Dim success As Boolean = False

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

Dim rsa As ChilkatRsa
rsa.Initialize

Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = rsa.GenKey(2048, privKey)
success = privKey.SavePkcs8PemFile("qa_output/privKey.pem")

Dim pubKey As ChilkatPublicKey
pubKey.Initialize
privKey.ToPublicKey(pubKey)

rsa.EncodingMode = "base64"
Dim plainText As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890"
Dim bUsePrivateKey As Boolean = False
rsa.UsePublicKey(pubKey)
Dim encryptedStr As String = rsa.EncryptStringENC(plainText, bUsePrivateKey)

Dim bd As ChilkatBinData
bd.Initialize
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

Log("OK")