Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Апр

Как узнать дату окончания сертификата

Posted by obzor under Delphi

Есть куча *.cer файлов. Как программно узнать дату окончания сертификата?

Stilet

Насколько я помню нужно:
1) Загрузить файл сертификата в Stream
2) Скормить его функции CertCreateCertificateContext()
3) Она верет указатель на PCCERT_CONTEXT, в котором есть поля
pCertInfo^.NotBefore — дата начала
pCertInfo^.NotAfter — Дата окончания

Ну и там же будет другая сопутствующая инфа.

Акима

А как можно в stream загрузить ссылку , как скормить ее
CertCreateCertificateContext() и как из pCertInfo^.NotAfter вывести дату?

FaTaL

Код:

// Получение даты сертификата
function GetDateCert(CertFullPath : string; Begining : Boolean): TDate;
var
  cFile : TMemoryStream;
  cert  : PCCERT_CONTEXT;
begin
  result := IncYear(now, -100);
  cFile := TMemoryStream.Create;
  cFile.LoadFromFile(CertFullPath);
  cert := CertCreateCertificateContext(X509_ASN_ENCODING or PKCS_7_ASN_ENCODING,
            cFile.Memory, cFile.Size);
  try
    try
    if Begining then
    result := FileTime2DateTime(cert^.pCertInfo^.NotBefore) else
    result := FileTime2DateTime(cert^.pCertInfo^.NotAfter);
    except
      on E : Exception do
        MessageBox (frmMainCertInfo.Handle, PChar('Ошибка чтения данных из сертификата: '
        +#13#10+ CertFullPath+#13#10 +'Тескт ошибки:'+#13#10 + E.Message), 'Ошибка', MB_OK or MB_ICONERROR);
    end;
  finally
    CertFreeCertificateContext(cert);
    cFile.Free;
  end;
end;

function FileTime2DateTime(FileTime: TFileTime): TDateTime;
 var
    LocalFileTime: TFileTime;
    SystemTime: TSystemTime;
 begin
    FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
    FileTimeToSystemTime(LocalFileTime, SystemTime) ;
    Result := SystemTimeToDateTime(SystemTime) ;
 end;