Blowfish&Chipher Опции

[Unconnected]

Есть такая замечательная библиотека Chipher, в ней много функций для хеширования и шифрования данных многими алгоритмами. Мне нужен лишь Blowfish. Просто модуля я не нашёл(для Паскаля, кстати, имеется), может, можно как то вытащить из Cipher? Смотрел её исходник - конкретно функции нужной не увидел..

Если точнее - зовётся она Delphi Encryption Compendium Part I-III , если нужно, могу выложить исходники с описанием.

Сообщение отредактировано: Unconnected - 18.02.2009 21:32

[Unconnected]

Дешифрует неправильно.. Я не вызываю cipher.burn(непонятно,зачем это вообще), может, это от этого зависит..

Добавлено через 8 мин.
Решилось, почитал исходник, был виноват Burn.

Код

  key:=edit4.text;
  Cipher.InitStr(key,TDCP_sha1);
  edit2.text:=cipher.encryptstring(edit1.text);
[b]  cipher.Burn;[/b]
  Cipher.InitStr(key,TDCP_sha1);
  edit3.text:=cipher.decryptstring(edit2.text);