(Delphi ActiveX) RSA OAEP Padding

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

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;
publicKey: WideString;
success: Integer;
plainText: WideString;
usePrivateKey: Integer;
encryptedStr: WideString;

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

rsa := TChilkatRsa.Create(Self);

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

success := 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;