Delphi DLL

X509Certificate GetCertHash SHA256

See more Certificates Examples

Shows how to get the SHA256 hash of a certificate. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Cert, BinData;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
cert: HCkCert;
bdDer: HCkBinData;
certHash: PWideChar;

begin
success := False;

cert := CkCert_Create();

// 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 := CkCert_LoadFromFile(cert,'qa_data/certs/cert_test123.cer');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

// Get the binary DER of the certificae, and compute the SHA256 hash:
bdDer := CkBinData_Create();
CkCert_ExportCertDerBd(cert,bdDer);

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

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

CkCert_Dispose(cert);
CkBinData_Dispose(bdDer);

end;