The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Симметричное шифрование блока данных на Perl.
use Crypt::Blowfish;
use Crypt::CBC;
my $cipher = new Crypt::CBC("Секретный ключ для шифрования",'Blowfish');
my $crypted_block = $cipher->encrypt_hex($text);
my $text = $cipher->decrypt_hex($crypted_block);
$cipher->finish();
 
26.02.2004
Ключи: crypt, perl / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

Обсуждение [ RSS ]
  • 1, zenka (??), 18:53, 15/07/2010 [ответить]  
  • +/
    Дык для написанной тобой функции Crypt::Blowfish не нужен :)
     
     
  • 2, Аноним (-), 21:02, 15/07/2010 [^] [^^] [^^^] [ответить]  
  • +/
    > my $cipher = new Crypt::CBC("Секретный ключ для шифрования",'Blowfish');

    Еще как нужен, обрати внимание на последнее слово в отквоченной строке.

     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру