Есть такая замечательная библиотека Chipher, в ней много функций для хеширования и шифрования данных многими алгоритмами. Мне нужен лишь Blowfish. Просто модуля я не нашёл(для Паскаля, кстати, имеется), может, можно как то вытащить из Cipher? Смотрел её исходник - конкретно функции нужной не увидел..
Если точнее - зовётся она Delphi Encryption Compendium Part I-III , если нужно, могу выложить исходники с описанием.
Сообщение отредактировано: Unconnected -
--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
Что значит "не увидел"? Есть класс: TCipher_Blowfish = class(TCipher), описанный в файле Cipher.pas... В примерах использования библиотеки показано, как шифровать данные...
Взял немного другую библиотеку в итоге, DPCrypt, шифрую и дешифрую как показано в хелпе:
Код
procedure TForm1.btnEncryptClick(Sender: TObject); var i: integer; Cipher: TDCP_BlowFish; //TDCP_RC4 здесь заменил на TDCP_BlowFish KeyStr: string; begin KeyStr:= ''; if InputQuery('Passphrase','Enter passphrase',KeyStr) then // get the passphrase begin Cipher:= TDCP_blowfish.Create(Self); Cipher.InitStr(KeyStr,TDCP_sha1); // initialize the cipher with a hash of the passphrase for i:= 0 to Memo1.Lines.Count-1 do // encrypt the contents of the memo Memo1.Lines[i]:= Cipher.EncryptString(Memo1.Lines[i]); Cipher.Burn; Cipher.Free; end; end;
procedure TForm1.btnDecryptClick(Sender: TObject); var i: integer; Cipher: TDCP_BlowFish; // //TDCP_RC4 здесь заменил на TDCP_BlowFish KeyStr: string; begin KeyStr:= ''; if InputQuery('Passphrase','Enter passphrase',KeyStr) then // get the passphrase begin Cipher:= TDCP_blowfish.Create(Self); Cipher.InitStr(KeyStr,TDCP_sha1); // initialize the cipher with a hash of the passphrase for i:= 0 to Memo1.Lines.Count-1 do // decrypt the contents of the memo Memo1.Lines[i]:= Cipher.DecryptString(Memo1.Lines[i]); Cipher.Burn; Cipher.Free; end; end;
Проблема в том, что при шифровании и дешифровке маленьких строк получаются кракозябры такого же размера, а при этом же процессе с длинными строками нормально дешифруется лишь вторая половина фразы. Перед расшифровкой строка передаётся по сети.
Сообщение отредактировано: Unconnected -
--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
при шифровании и дешифровке маленьких строк получаются кракозябры такого же размера, а при этом же процессе с длинными строками нормально дешифруется лишь вторая половина фразы. Перед расшифровкой строка передаётся по сети.
Проблему локализуй для начала... Оставь в покое передачу по сети, пробуй просто шифровать/дешифровать строки. Если все работает, значит будешь пытать передачу по сети, проблема там... Если нет - значит, шифруешь (или дешифруешь) неправильно...