Delphi ActiveX

X509Certificate GetCertHash SHA256

See more Certificates Examples

Shows how to get the SHA256 hash of a certificate. 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;
cert: TChilkatCert;
bdDer: TChilkatBinData;
certHash: WideString;

begin
success := 0;

cert := TChilkatCert.Create(Self);

// Load a certificate object with a certificate.
// The certificate object could have come from any source,
// or perhaps was obtained from another Chilkat function.
// The source does not matter.  What matters is that we have
// a cert object loaded with the certificate..
success := cert.LoadFromFile('qa_data/certs/cert_test123.cer');
if (success <> 1) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

// Get the binary DER of the certificae, and compute the SHA256 hash:
bdDer := TChilkatBinData.Create(Self);
cert.ExportCertDerBd(bdDer.ControlInterface);

// Get the base64 representation of the SHA256 hash.
certHash := bdDer.GetHash('sha256','base64');

Memo1.Lines.Add('Certificate hash in base64 = ' + certHash);
end;