Xojo Plugin

RSA Encrypt and OpenSSL Decrypt

See more OpenSSL Examples

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

Dim success As Boolean
success = False

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

Dim rsa As New Chilkat.Rsa

Dim privKey As New Chilkat.PrivateKey
success = rsa.GenKey(2048,privKey)
success = privKey.SavePkcs8PemFile("qa_output/privKey.pem")

Dim pubKey As New Chilkat.PublicKey
success = privKey.ToPublicKey(pubKey)

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

Dim bd As New Chilkat.BinData
success = 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

System.DebugLog("OK")