| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CryptoApi & криптопровайдеры и информацыя о них [D7, WinXP]

Fl@sh ©   (2006-02-12 19:26:00) 

Доброе время суток.
Вот код взят из проекта delphiworld, кот. выдает информацыю об установленых криптопровайдерах в системе и об их параметрах:


type algInfo = record
algID: ALG_ID;
dwBits: DWORD;
dwNameLen: DWORD;
szName: array[0..100] of char;
end;
{вспомогательная функция, преобразующая тип провайдера в строку}
function ProvTypeToStr(provType: DWORD): string;
begin
case provType of
PROV_RSA_FULL: ProvTypeToStr := 'RSA full provider';
PROV_RSA_SIG: ProvTypeToStr := 'RSA signature provider';
PROV_DSS: ProvTypeToStr := 'DSS provider';
PROV_DSS_DH: ProvTypeToStr := 'DSS and Diffie-Hellman provider';
PROV_FORTEZZA: ProvTypeToStr := 'Fortezza provider';
PROV_MS_EXCHANGE: ProvTypeToStr := 'MS Exchange provider';
PROV_RSA_SCHANNEL: ProvTypeToStr := 'RSA secure channel provider';
PROV_SSL: ProvTypeToStr := 'SSL provider';
else ProvTypeToStr := 'Unknown provider';
end;
end;
{вспомогательная функция, преобразующая тип реализации в строку}
function ImpTypeToStr(it: DWORD): string;
begin
case it of
CRYPT_IMPL_HARDWARE: ImpTypeToStr := 'аппаратный';
CRYPT_IMPL_SOFTWARE: ImpTypeToStr := 'программный';
CRYPT_IMPL_MIXED: ImpTypeToStr := 'смешанный';
CRYPT_IMPL_UNKNOWN: ImpTypeToStr := 'неизвестен';
else ImpTypeToStr := 'неверное значение';
end;
end;
{процедура вывода информации о криптопровайдерах}
procedure TMainForm.InfoItemClick(Sender: TObject);
var i: DWORD;
dwProvType, cbName, DataLen: DWORD;
provName: array[0..200] of char;
vers: array[0..3] of byte;
impType: DWORD;
ai: algInfo;
err: string;
begin
i:= 0;
FileMemo.Clear;
while (CryptEnumProviders(i, nil, 0, {проверяем наличие еще одного}
@dwProvType, nil, @cbName)) do
begin
if CryptEnumProviders(i, nil, 0, {получаем имя CSP}
@dwProvType, @provName, @cbName) then
begin
FileMemo.Lines.Add('Криптопровайдер: '+provName);
FileMemo.Lines.Add('Тип: '+IntToStr(dwProvType)+' - '+
ProvTypeToStr(dwProvType));
if not CryptAcquireContext(@hProv, nil, provName, dwProvType,
CRYPT_VERIFYCONTEXT)
then
begin
{обработка ошибок}
end;
DataLen := 4;
if not CryptGetProvParam(hProv, PP_VERSION, (@vers), @DataLen, 0)
then
begin
{обработка ошибок}
end;
FileMemo.Lines.Add('Версия: ' + chr(vers[1]+) + '.' + chr(vers[0]+));
if not CryptGetProvParam(hProv, PP_IMPTYPE, @impType, @DataLen, 0)
then
begin
{обработка ошибок}
end;
FileMemo.Lines.Add('Тип реализации: '+ImpTypeToStr(impType));
FileMemo.Lines.Add('Поддерживает алгоритмы:');
DataLen := sizeof(ai);
if not CryptGetProvParam(hProv, PP_ENUMALGS, @ai, @DataLen, CRYPT_FIRST)
then
begin
{обработка ошибок}
end;
with ai do
FileMemo.Lines.Add(szName+#9+'длина ключа - '+IntToStr(dwBits)+
' бит' +#9+ 'ID: '+IntToStr(AlgID));
DataLen := sizeof(ai);
while CryptGetProvParam(hProv, PP_ENUMALGS, @ai, @DataLen, 0) do
begin
with ai do FileMemo.Lines.Add(szName+#9+'длина ключа - '
+IntToStr(dwBits)+' бит'+#9+'ID: '+IntToStr(AlgID));
DataLen := sizeof(ai);
end;
FileMemo.Lines.Add('');
CryptReleaseContext(hProv, 0);
end;
inc(i);
end;
end;


Так вот, информацыю об провайдерах выдает: назву, ти!
А вот тип реализацыи, алгоритмы не работает!!
Помогите разобраться:
Вот например эта строчка:


FileMemo.Lines.Add('Версия: ' + chr(vers[1] +)+ '.' + chr(vers[0] +));
Как это можно понять??
Я удалял "+" и вместо chr ставил IntToStr
если стоит chr, то после 'Версия в мемо дальше ничего не вставляет, хотя должно вставить хотя б '.'
Просветите метя.
Вот ссылка на ресурс, с какого взято, идентичен, что и на delphiworld:
http://cpp.com.ua/?in=kpp_show_article&kpp_art_ID=296&_by_id=2&_CATEGORY=3&_Theme_Name=%C1%E5%E7%EE%EF%E0%F1%ED%EE%F1%F2%FC

---

Fl@sh   (2006-02-12 21:53:00) [1]

> Eraser ©   (12.02.06 21:29) [3]


Спасибо!!!
Вот уже нашел ошибку:
вместо
FileMemo.Lines.Add('Версия: ' + chr(vers[1]+) + '.' + chr(vers[0]+));, (а так написано в трех разных экземплярах)
надо вот так:
FileMemo.Lines.Add('Âåðñèÿ: '+chr(vers[1]+$30)+'.'+chr(vers[0]+$30));

Буду разбираться..

---

Eraser   (2006-02-12 21:29:00) [2]

> Fl@sh ©

может это поможет
http://www.podgoretsky.com/ftp/Docs/Delphi/CryptoAPI/

---

Fl@sh   (2006-02-12 21:04:00) [3]

Неужели никто не занимался подобным вопросом??!
Поискал тут на яндексе, все одно и тоже :((
http://www.yandex.ru/yandsearch?text=%F3%E7%ED%E0%F2%FC+%E8%ED%F4%EE%F0%EC%E0%F6%E8%FE+%EE+%EA%F0%E8%EF%F2%EE%EF%F0%EE%E2%E0%E9%E4%E5%F0%E5+delphi&stype=www

---

Fl@sh   (2006-02-12 19:28:00) [4]

Может возможно как-то подругому узнать параметры провайдера?

---

Наверх