1. Perl / Говнокод #6174

    −127

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 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;

    Не говнокод.

    Запостил: Tanger, 01 Апреля 2011

    Комментарии (10) RSS

    Добавить комментарий