Delphi ActiveX

RSA Hash Binary Data and Sign (and Verify)

See more RSA Examples

Demonstrates how to sign the hash of binary data. Also demonstrates how to verify the RSA signature. Delphi ActiveX

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
success: Integer;
privKey: TPrivateKey;
rsa: TChilkatRsa;
originalData: WideString;
bdData: TChilkatBinData;
bdSignature: TChilkatBinData;
pubKey: TPublicKey;
rsa2: TChilkatRsa;
bVerified: Integer;

begin
success := 0;

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

// Load an RSA private key for signing.
privKey := TPrivateKey.Create(Self);
success := privKey.LoadEncryptedPemFile('qa_data/pem/rsa_passwd.pem','passwd');
if (success = 0) then
  begin
    Memo1.Lines.Add(privKey.LastErrorText);
    Exit;
  end;

rsa := TChilkatRsa.Create(Self);
rsa.UsePrivateKey(privKey.ControlInterface);

// We have some binary data (in hex) to sign
originalData := '0102030405060708090A';
bdData := TChilkatBinData.Create(Self);
bdData.AppendEncoded(originalData,'hex');

// Hash (SHA-256) and sign the hash:
bdSignature := TChilkatBinData.Create(Self);
success := rsa.SignBd(bdData.ControlInterface,'sha256',bdSignature.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(rsa.LastErrorText);
    Exit;
  end;

// Show the RSA signature in base64
Memo1.Lines.Add(bdSignature.GetEncoded('base64'));

// ------------------------------------------
// Get the public key from the private key
pubKey := TPublicKey.Create(Self);
privKey.ToPublicKey(pubKey.ControlInterface);

// Verify the signature..
rsa2 := TChilkatRsa.Create(Self);
rsa2.UsePublicKey(pubKey.ControlInterface);

bVerified := rsa2.VerifyBd(bdData.ControlInterface,'sha256',bdSignature.ControlInterface);
Memo1.Lines.Add('signature verified: ' + IntToStr(Ord(bVerified)));
end;