Generate RSA Public/Private Key

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

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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.LastErrorText);
    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;