Read out signed executable certificate possible?

[KodeZwerg 54]

Good day,

 

I would like to have ability in my project to show certificate details of signed executables. (From other executables)

 

Is that possible with Delphi?

 

Would love to get hints 'how-to'!

 

 

//edit

For now I have ability to get raw data thats appended to executables (overlay data) by simply check PE header for filesize and compare with real physical filesize.

Edited March 4, 2021 by KodeZwerg

[FPiette 385]

Probably what you are looking for is explained in Microsoft documentation.

[KodeZwerg 54]

Will try to follow those steps, thank you for link!

[Angus Robertson 577]

I have a component that checks signing certificates: https://www.magsys.co.uk/delphi/magtrustchk.asp

 

Angus

[davornik 4]

Maybe you can check if file is signed with this:

 

uses Winapi.ImageHlp;

function IsFileDigitallySigned(const FileName: string): Boolean;
var
  FileHandle: THandle;
  CertHeader: TWinCertificate;
begin
  Result := False;
  FileHandle := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
  if FileHandle <> INVALID_HANDLE_VALUE then
    try
      FillChar(CertHeader, SizeOf(CertHeader), 0);
      Result := ImageGetCertificateHeader(FileHandle, 0, CertHeader);
    finally
      CloseHandle(FileHandle);
    end;
end;

 

Edited April 29 by davornik

[Angus Robertson 577]

Beware TWinCertificate is only declared in Delphi 12, perhaps ImageHlp as well. 

 

But I'll look at those functions to allow verifying the signing chain using OpenSSL instead of the slow capicom.dll COM object used by my component at the moment, but not looked at the component for several years. 

 

Angus