01.09.2003 15:38:00Ошибка Ответов: 1
Pavel
Почему-то созданный ключ не подходит для шифрования. Исходный код:
if not CryptAcquireContext(hProv, nil, CP_DEF_PROV, PROV_GOST_DH, 0) then
ShowMessage(IntToStr(GetLastError) + ’ CryptAcquireContext’);


If not CryptGenKey(hProv,CALG_G28147,CRYPT_EXPORTABLE,expKey) then
ShowMessage(IntToStr(GetLastError) + ’ CryptGenKeyProc’);

pdwDataLen:= 496;
dwBufLen:= 512;
If not CryptEncrypt (expKey, 0, true, 0, @pbData, pdwDataLen,dwBufLen) then
Case int64(GetLastError) of
NTE_BAD_ALGID: ShowMessage(’1’);
End;

Выскакивает на ошибку NTE_BAD_ALGID. Никто не подскажет, как с этим бороться?
 
Ответы:
01.09.2003 16:08:08Василий
Пришлите, плз полный текст исходника примера, при работе которого возникает ошибка.