Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

Криптография в Windows (Crypto API)   Найти похожие ветки 

 
ShPRO_TT   (2006-04-14 18:17) [0]

Приветствую всех!
Пишу универсальный менеджер криптопровайдеров Windows.
Возникает ошибка NTE_BAD_DATA при вызове CryptDecrypt.
ICQ#: 283-816-077
Шифрую следующим образом:

procedure Encrypt(in_,out_:TFileName);
var inp_file,out_file:file;
   pbBuffer:PByte;
   dwBlockLen:DWORD;
   dwBufferLen:DWORD;
   dwCount:DWORD;
begin
           AssignFile(inp_file,in_);
           AssignFile(out_file,out_);
           Reset(inp_file,1);
           Rewrite(out_file,1);
           dwBlockLen:=1000 - 1000 mod ENCRYPT_BLOCK_SIZE;
           if AlgTypeToStr(CurPar.cAlg_EN.aiAlgid)<>"&#239;&#238;&#242;&#238;&#247;&#237;&#251 ;&#233;" then
           dwBufferLen:=dwBlockLen+ENCRYPT_BLOCK_SIZE else
           dwBufferLen:=dwBlockLen;
           GetMem(pbBuffer,dwBufferLen);
           while not Eof(inp_file) do
             begin
             BlockRead(inp_file,pbBuffer^,dwBlockLen,dwCount);
             if CryptEncrypt(key,0,eof(inp_file),0,pbBuffer,@dwCount,dwBufferLen) then
             BlockWrite(out_file,pbBuffer^,dwCount) else
             ShowErrorMes(GetLastError);
             end;
            FreeMem(pbBuffer);
            CloseFile(inp_file);
            CloseFile(out_file);
            CryptDestroyKey(key);
end;

Расшифрование:

procedure Decrypt(in_,out_:TFileName);
var inp_file,out_file:file;
   pbBuffer:PByte;
   dwBlockLen:DWORD;
   dwBufferLen:DWORD;
   dwCount:DWORD;
begin
           AssignFile(inp_file,in_);
           AssignFile(out_file,out_);
           Reset(inp_file,1);
           Rewrite(out_file,1);
           dwBlockLen:=1000 - 1000 mod ENCRYPT_BLOCK_SIZE;
          dwBufferLen:=dwBlockLen;
           GetMem(pbBuffer,dwBufferLen);
           while not Eof(inp_file) do
             begin
             BlockRead(inp_file,pbBuffer^,dwBlockLen,dwCount);
             if CryptDecrypt(key,0,eof(inp_file),0,pbBuffer,@dwCount) then //ошибка возникает здесь!!!
             BlockWrite(out_file,pbBuffer^,dwCount) else
             ShowErrorMes(GetLastError);
             end;
            FreeMem(pbBuffer);
            CloseFile(inp_file);
            CloseFile(out_file);
            CryptDestroyKey(key);

end;


 
Chlavik ©   (2006-04-21 15:26) [1]

А где у тебя вызов CryptGenKey? Да и если уж юзаеш WinAPi то юзай CreateFile вместо AssignFile


 
ShPRO_TT   (2006-04-25 20:12) [2]

Создаю сессионный ключ по паролю.
CryptCreateHash(CPROV.cProvContext, CPROV.cAlg_HS.aiAlgid, 0, 0, @hash);
CryptHashData(hash, @passWD, length(PassWD), 0);
CryptDeriveKey(CPROV.cProvContext, CPROV.cAlg_EN.aiAlgid, hash, 0, @hkey);
А в CreateFile смысла нет!

У меня горит курсовик по Компьютерной безопасности. Не знаю что делать!
П-о-м-о-г-и-т-е!!!!!



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.045 c
3-1150133766
kaif
2006-06-12 21:36
2006.08.20
Обрезание имен UTF-8 при добавлении юзера в IBSecurityService


6-1142006821
safo
2006-03-10 19:07
2006.08.20
Существуют ли функции для работы с файлом HOSTS?


11-1131533055
Ефременко Алексей
2005-11-09 13:44
2006.08.20
Модули, требующиеся для компиляции mirror.pas


2-1154011575
Footballer
2006-07-27 18:46
2006.08.20
Как с помощью Delphi узнать номер процессора на компе?


15-1153167812
Loginov Dmitry
2006-07-18 00:23
2006.08.20
Прошу заценить новую статью





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский