Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2016.07.24;
Скачать: CL | DM;

Вниз

CryptoAPI (Delphi 2010, XP SP3)   Найти похожие ветки 

 
tytus ©   (2010-07-06 12:36) [0]

Добрый день мастера.
Вот решил разобраться с шифрованием файлов паролем.
с шифрованием все ок. А вот при дешифровке GetLastError выдает $00000057 - параметр задан неверно.

var
 hProv: HCRYPTPROV;
 hash: HCRYPTHASH;
 key: HCRYPTKEY;
 FOrig: File;
 Data: PByte;
 d, dw: DWORD;
begin
//Шифрование
 CryptAcquireContextW(@hProv, nil, nil, PROV_RSA_FULL,
   CRYPT_VERIFYCONTEXT);
 CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash);
 CryptHashData(hash, @aPassw[1], Length(aPassw), 0);
 CryptDeriveKey(hProv, CALG_RC4, hash, 0, @key);
 FTempStream := TMemoryStream.Create;
 AssignFile(FOrig, FOrigFileName);
 Reset(FOrig, 1);
 GetMem(Data, 512);
 try
   while not EOF(FOrig) do
   begin
     BlockRead(FOrig, Data^, 512, d);
     if CryptEncrypt(Key, 0, EOF(FOrig){false}, 0, data, @d, d) = true then
       FTempStream.Write(data^, d);
   end;
 finally
   FreeMem(Data, 512);
 end;
 CloseFile(FOrig);
 FTempSTream.Seek(0, soFromBeginning);
 RE1.Lines.LoadFromStream(FTempStream);
 FTempStream.Free;

// Дешифрование
// все тоже самое, только
 if CryptDecrypt(Key, 0, EOF(FOrig), 0, data, @d) = true then
   FTempStream.WriteBuffer(data^, d);


Подскажите - как с этим бороться.


 
tytus ©   (2010-07-06 13:36) [1]

Дошло, блин..
Зашифрованые данные я выводил в MemoryStream а потом в TRichEdit, и сохранял RichEdit.Lines.SaveToFile(aFileName);

А нужно было сохранять - MemoryStream.SaveToFile(aFileName);

Теперь все нормально.

Возможно дело в отличии кодировок исходного файла и RichEdit.



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

Текущий архив: 2016.07.24;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.005 c
2-1414862984
Fox
2014-11-01 20:29
2016.07.24
Вращение карты


2-1414391990
JohnKorsh
2014-10-27 10:39
2016.07.24
Включение в программу номера версии.


15-1446845402
Юрий
2015-11-07 00:30
2016.07.24
С днем рождения ! 7 ноября 2015 суббота


15-1442015464
trenkin
2015-09-12 02:51
2016.07.24
Ошибка при открытии файла PDF из вложения


15-1443426766
Empleado
2015-09-28 10:52
2016.07.24
RAD Studio Upgrade + free tools





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский