Generate RSA Public/Private Key Pair for Encryption (Key Exchange)

Delphi example code showing how to generate an RSA public/private key pair for encrypting.

Download Chilkat RSA ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATRSALib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
rsa: TChilkatRsa;
success: Integer;
publicKey: String;
privateKey: String;

begin
rsa := TChilkatRsa.Create(Self);

success := rsa.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage('RSA component unlock failed');
    Exit;
  end;

//  Generate a 1024-bit key.  Chilkat RSA supports
//  key sizes ranging from 512 bits to 4096 bits.
success := rsa.GenerateKey(1024);
if (success <> 1) then
  begin
    ShowMessage(rsa.LastErrorText);
    Exit;
  end;

//  Keys are exported in XML format:
publicKey := rsa.ExportPublicKey();
Memo1.Lines.Add(publicKey);

privateKey := rsa.ExportPrivateKey();
Memo1.Lines.Add(privateKey);


end;