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

[FaTaL]

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

[Stilet]

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

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

[FaTaL]

Stilet, спасибо. Всё получилось.

[Stilet]

Красава )
...

[Акима]

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

[FaTaL]

Сообщение от Акима

CertCreateCertificateContext() и как из pCertInfo^.NotAfter вывести дату , вы считай последняя надежда

Еле нашёл свой старый, поросший мхом проект.

// Получение даты сертификата
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;

Использовал модуль Wcrypt2.pas

[Акима]

Спасибо огромное , теперь осталось это в с++ перевести так еще в MFC запилить ,любит наш декан шутить над нами )