(Delphi ActiveX) RSA Encrypt and OpenSSL Decrypt

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rsa: TChilkatRsa;
success: Integer;
privKey: IPrivateKey;
plainText: WideString;
bUsePrivateKey: Integer;
encryptedStr: WideString;
bd: TChilkatBinData;

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

rsa := TChilkatRsa.Create(Self);

success := rsa.GenerateKey(2048);

privKey := rsa.ExportPrivateKeyObj();
success := privKey.SavePkcs8PemFile('qa_output/privKey.pem');

rsa.EncodingMode := 'base64';
plainText := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890';
bUsePrivateKey := 0;
encryptedStr := rsa.EncryptStringENC(plainText,bUsePrivateKey);

bd := TChilkatBinData.Create(Self);
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

Memo1.Lines.Add('OK');
end;