( Kayapo | 2014. 07. 15., k – 07:52 )

Szerintem te ezt tűlspiráztad, nekem a lentebbi kód gond nélkül megy:

#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use Crypt::CBC;

local $| = 1;

my $hashed = get("http://users.atw.hu/vfero/hup/common");
exit 1 unless defined $hashed;

my $co = Crypt::CBC->new(
    -Cipher => 'Blowfish',
    -header => 'none',
    -literal_key => 1,
    -key => "x"x56,
    -iv => "o"x8
);

my $dpd = $co->decrypt($hashed);

print "$dpd\n";

A file tartalma egy %h nevű hash abban meg egy vicc van.

----
올드보이
http://molnaristvan.eu/