- 1
- 2
- 3
- 4
- 5
- 6
- 7
#!/bin/perl
use Crypt::Blowfish; use Crypt::CBC;
$encrypt_key= 'key';
$crypted_text = '53616c7465645f5fd56d1d101fb3adbf1d10cd5ce49b40868dd03da0de64c86bde6bfc3102e20aad6f4447b1fd1aacd8de66f6709cb643b56ebd16c8b8b6f86c0abc6dd6750ad3d71a558d7236102d8e730d11ded42a26d1';
$cipher_handle = new Crypt::CBC($encrypt_key,'Blowfish');
$text = $cipher_handle->decrypt_hex($crypted_text);
print $text;
striker 01.04.2011 05:18 # +4
bugmenot 01.04.2011 09:04 # 0
Lure Of Chaos 01.04.2011 09:58 # 0
bugmenot 01.04.2011 11:11 # 0
Lure Of Chaos 01.04.2011 11:13 # 0
Мистер Хэнки 01.04.2011 14:22 # +3
Если ты хотел, чтобы Я запустил твой код и прослушал "обращение к народу", то фейл.
у меня к примеру не установлены модули Crypt::Blowfish и Crypt::CBC, и инсталить их ради твоей хрени я не стану.
TheHamstertamer 22.05.2011 17:37 # 0
" "
пробелы, мои любимые
Tanger 23.05.2011 13:50 # −1
jabber 24.11.2011 21:22 # +3
dos_ 24.11.2011 21:30 # +2