Ключевое слово в защите информации
КЛЮЧЕВОЕ СЛОВО
в защите информации
Получить ГОСТ TLS-сертификат для домена (SSL-сертификат)
Добро пожаловать, Гость! Чтобы использовать все возможности Вход или Регистрация.

Уведомление

Icon
Error

Опции
К последнему сообщению К первому непрочитанному
Offline kast  
#1 Оставлено : 11 сентября 2008 г. 22:03:11(UTC)
kast

Статус: Новичок

Группы: Участники
Зарегистрирован: 11.09.2008(UTC)
Сообщений: 2
Откуда: Москва

здравствуйте. Новичок в данной сфере. но на работе припахали Whistle . Задача шифровать файл ЭЦП на Delphi, уже есть закрытый и открытый ключи в отдельных key-файлах, облазил весь инет, так и не нашёл толкового решения, подскажите или хотя бы направьте на решение.

есть примерно такой код, но он после первой строчке в переменной My возвращает nil. что делаю не так?!

My:=CertOpenStore(CERT_STORE_PROV_FILENAME_A,
PKCS_7_ASN_ENCODING or X509_ASN_ENCODING,
0,
0,
PWideChar(WideString('C:\delta_pub.key'))
);


CryptCreateHash(Prov,CALG_MD5,0,0,@Hash);
CryptHashData(Hash,PByte(Message),Length(Message),0);

BufLen:=0;
CryptSignHash(Hash,AT_SIGNATURE,nil,0,nil,@BufLen);


if BufLen>0 then begin
SetLength(Result,BufLen);
CryptSignHash(Hash,AT_SIGNATURE,nil,0,PByte(Result),@BufLen);
end;
CryptDestroyHash(Hash);
CryptReleaseContext(Prov,0);
Offline Kure  
#2 Оставлено : 12 сентября 2008 г. 13:26:41(UTC)
Kure

Статус: Администратор

Группы: Администраторы, Участники
Зарегистрирован: 13.12.2007(UTC)
Сообщений: 110
Откуда: Крипто-Про

Поблагодарили: 33 раз в 10 постах
Offline kast  
#3 Оставлено : 12 сентября 2008 г. 19:33:51(UTC)
kast

Статус: Новичок

Группы: Участники
Зарегистрирован: 11.09.2008(UTC)
Сообщений: 2
Откуда: Москва

Kure написал:
http://yandex.ru/yandsearch?stype=&nl=0&text=cryptoapi+delphi
http://www.google.com/se...&ie=utf8&oe=utf8


Спасибо конечно, но здесь опять таки общая информация. Хотелось бы найти что нибудь поконкретней на мой случай.
Offline Максим Коллегин  
#4 Оставлено : 13 сентября 2008 г. 3:58:51(UTC)
Максим Коллегин

Статус: Сотрудник

Группы: Администраторы
Зарегистрирован: 12.12.2007(UTC)
Сообщений: 6,094
Мужчина
Откуда: КРИПТО-ПРО

Сказал «Спасибо»: 19 раз
Поблагодарили: 613 раз в 546 постах
Для начала рекомендую посмотреть наши примеры из CSP SDK. Они на С, но ознакомиться стоит:)
Знания в базе знаний, поддержка в техподдержке
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.