RSA OAEP Padding

Demonstrates how to use OAEP padding with the RSA encryption algorithm. More information about OAEP Padding.

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;
plainText: String;
usePrivateKey: Integer;
encryptedStr: String;

begin
rsa := TChilkatRsa.Create(Self);

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

  end;

//  RSA public key in XML format:
publicKey := '<RSAKeyValue><Modulus>of3im3mRgd2NLXIGoK6uYLg6jj0Ug2b42rnqa5Tbwz2ieFqMJqt+++x2oqLYGurlz49nt+7/785g3XYWqoka4u9c9zul6YubIjnBM72dQy7rEkEfbUxgjcxqXyjZFx+FpaxFUecLu688XEu+9UA42VKiCgcl+E7TrqnfeeYpNXc=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue>';

rsa.ImportPublicKey(publicKey);

//  To use Optimal Asymmetric Encryption Padding (OAEP) padding,
//  simply set the OaepPadding property:
rsa.OaepPadding := 1;

//  Encrypt a string and return the encrypted data base64-encoded:
rsa.EncodingMode := 'base64';

plainText := 'RSA Encryption should be easy.';

usePrivateKey := 0;
encryptedStr := rsa.EncryptStringENC(plainText,usePrivateKey);
Memo1.Lines.Add(encryptedStr);
end;