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

Уведомление

Icon
Error

Опции
К последнему сообщению К первому непрочитанному
Offline Fire  
#1 Оставлено : 28 августа 2008 г. 19:26:10(UTC)
Fire

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

Группы: Участники
Зарегистрирован: 25.08.2008(UTC)
Сообщений: 4

Поможите с расшифровкой файла - при попытке импортировать сессионный ключ происходит NTE_BAD_DATA,
в массиве msg.CSK загружен сессионный ключ из файла, в pExchPubKeyBlob открытый ключ.

if not CryptAcquireContext(@hProv, PChar('ВВВ'), '', 75, 0) then showmessage('Error provider');
if not CryptGetUserKey(hProv, AT_KEYEXCHANGE, @TempKey)then ShowMessage('CryptGetUserKey: ' + ErrToStr(GetLastError));
if not CryptExportKey(TempKey, 0,PUBLICKEYBLOB, 0, nil, @dwPubBlobLen) then ShowMessage('CryptExportKey: ' + ErrToStr(GetLastError));
setlength(pExchPubKeyBlob,dwPubBlobLen);
if not CryptExportKey(TempKey, 0,PUBLICKEYBLOB, 0, @pExchPubKeyBlob[0], @dwPubBlobLen) then ShowMessage('CryptExportKey: ' + ErrToStr(GetLastError));
if not CryptGetUserKey(hProv, AT_KEYEXCHANGE, @hK)then ShowMessage('CryptGetUserKey: ' + ErrToStr(GetLastError));
if not CryptImportKey(hProv, @pExchPubKeyBlob[0], dwPubBlobLen, hk, CRYPT_EXPORTABLE, @KeyExchKey) then ShowMessage('Ошибка импорта ключа: ' + ErrToStr(GetLastError));
if not CryptImportKey(hProv, @msg.CSK[0],msg.LenCSK, KeyExchKey, 0, @SessionKey) then ShowMessage('Ошибка импорта ключа: ' + ErrToStr(GetLastError));
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
Guest
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.