[cheburator]

Доброго времени суток. Пишу программу контроля сроков действия сертификатов ЭЦП: то есть имея дату начала и дату конца сертификата, мы можем вычислить, сколько времени осталось до его истечения. Выводить из базы данных владельцев с возможностью отправки уведомления на e-mail, указанный в сертификате. Так вот мне нужно научиться самому и научить свою программу вытягивать нужные мне данные из сертификата при загрузке. (сертификаты в cer-кодировке). Нашел листинг прогаммного получения серийного номера из серта, но вот понять что к чему там не могу.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149

unit Unit1;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;   type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;   CRYPTOAPI_BLOB = packed record cbData: DWORD; pbData: PByte; end;   CRYPT_INTEGER_BLOB = CRYPTOAPI_BLOB; CRYPT_OBJID_BLOB = CRYPTOAPI_BLOB; CERT_NAME_BLOB = CRYPTOAPI_BLOB;   CRYPT_ALGORITHM_IDENTIFIER = packed record pszObjId: LPSTR; Parameters: CRYPT_OBJID_BLOB; end;   CRYPT_BIT_BLOB = packed record cbData: DWORD; pbData: PBYTE; cUnusedBits: DWORD; end;   CERT_PUBLIC_KEY_INFO = packed record Algorithm: CRYPT_ALGORITHM_IDENTIFIER; PublicKey: CRYPT_BIT_BLOB; end;   CERT_EXTENSION = packed record pszObjId: LPSTR; fCritical: BOOL; Value: CRYPT_OBJID_BLOB; end; PCERT_EXTENSION = ^CERT_EXTENSION; TARR_CERT_EXTENSION = PCERT_EXTENSION;   CERT_INFO = packed record dwVersion: DWORD; SerialNumber: CRYPT_INTEGER_BLOB; SignatureAlgorithm: CRYPT_ALGORITHM_IDENTIFIER; Issuer: CERT_NAME_BLOB; NotBefore: FILETIME; NotAfter: FILETIME; Subject: CERT_NAME_BLOB; SubjectPublicKeyInfo: CERT_PUBLIC_KEY_INFO; IssuerUniqueId: CRYPT_BIT_BLOB; SubjectUniqueId: CRYPT_BIT_BLOB; cExtension: DWORD; rgExtension: TARR_CERT_EXTENSION; end; PCERT_INFO = ^CERT_INFO;   HCERTSTORE = Pointer; HCRYPTPROV = ULONG;   CERT_CONTEXT = packed record dwCertEncodingType: DWORD; pbCertEncoded: PBYTE; cbCertEncoded: DWORD; pCertInfo: PCERT_INFO; hCertStore: HCERTSTORE; end; PCERT_CONTEXT = ^CERT_CONTEXT; PCCERT_CONTEXT = ^CERT_CONTEXT;   function CertFreeCertificateContext(pCertContext: PCCERT_CONTEXT): BOOL; stdcall external 'crypt32.dll';   function CertCreateCertificateContext(dwCertEncodingType: DWORD; pbCertEncoded: PBYTE; cbCertEncoded: DWORD): PCCERT_CONTEXT; stdcall external 'crypt32.dll';   const X509_ASN_ENCODING = $00000001; PKCS_7_ASN_ENCODING = $00010000;   var Form1: TForm1;   implementation   {$R *.dfm}   function ByteArrayToStr(pbData: PByte; cbData: DWORD): String; var I, J: Integer; S: String; begin Result := ''; if not Assigned(pbData) or (cbData <= 0) then Exit; for I := 0 to cbData - 1 do begin J := PByteArray(pbData)^[i]; S := IntToHex(J, 2); if (I > 0) and (I and 1 = 0) then S := S + ' '; Result := S + Result; end; end;   function GetSerialNumber(CertInfo: PCCERT_CONTEXT): String; begin Result := ByteArrayToStr(CertInfo.pCertInfo.SerialNumber.pbData, CertInfo.pCertInfo.SerialNumber.cbData); end;   procedure TForm1.Button1Click(Sender: TObject); var Context: PCCERT_CONTEXT; M: TMemoryStream; begin if OpenDialog1.Execute then begin M := TMemoryStream.Create; try M.LoadFromFile(OpenDialog1.FileName); Context := CertCreateCertificateContext(X509_ASN_ENCODING or PKCS_7_ASN_ENCODING, M.Memory, M.Size); if Assigned(Context) then try ShowMessage(GetSerialNumber(Context)); finally if not CertFreeCertificateContext(Context) then ShowMessage(SysErrorMessage(GetLastError)); end; finally M.Free; end; end; end;   end.

Админ: Пользуемся тегами для оформления кода!

Прошу знающих людей помочь в данном вопросе. Прокомментировать ключевые строки. Что где когда берется и как это реализовывается. Если кто может написать процедуру по моему заданию, будет замечательно. В долгу не останусь. Обсуждение суммы в лс или по асе:352587850