CryptoAPI (Delphi 2010, XP SP3) [D7, WinXP]
tytus © (2010-07-06 12:36:00)
Добрый день мастера.
Вот решил разобраться с шифрованием файлов паролем.
с шифрованием все ок. А вот при дешифровке 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
whilenot EOF(FOrig)
do
begin
BlockRead(FOrig, Data^, 512, d);
ifCryptEncrypt(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;
// Дешифрование
// все тоже самое, только
ifCryptDecrypt(Key, 0, EOF(FOrig), 0, data, @d) = true
then
FTempStream.WriteBuffer(data^, d);
Подскажите - как с этим бороться.
tytus (2010-07-06 13:36:00) [1]
Дошло, блин..
Зашифрованые данные я выводил в MemoryStream а потом в
TRichEdit, и сохранял RichEdit.Lines.SaveToFile(aFileName);
А нужно было сохранять - MemoryStream.SaveToFile(aFileName);
Теперь все нормально.
Возможно дело в отличии кодировок исходного файла и
RichEdit.
Наверх 
ЧАТ |
Орешник |
|
