(Xojo Plugin) RSA Encrypt and OpenSSL Decrypt
Demonstrates how to use Chilkat to RSA encrypt, and then use OpenSSL to decrypt.
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim rsa As New Chilkat.Rsa
Dim success As Boolean
success = rsa.GenerateKey(2048)
Dim privKey As Chilkat.PrivateKey
privKey = rsa.ExportPrivateKeyObj()
success = privKey.SavePkcs8PemFile("qa_output/privKey.pem")
rsa.EncodingMode = "base64"
Dim plainText As String
plainText = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890"
Dim bUsePrivateKey As Boolean
bUsePrivateKey = False
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")
|
