perl blowfish gebax

Remélem valaki tud segíteni, mert megmarom magam...

Van nekem saját használatra egy kis perl cgi cucc, nekem egy jelszóadatbázis. Rövid leírás, jelszó, mesterkulccsal meg blowfish-sel kódolja, beteszi mysql-be. Ha kell, mesterkulcsot megadom, dekódolja, kész. Eddig ment.
Namost a legutóbbi frissítés óta ez nem működik. Egy krix-krax jön vissza mindre. Tuti jó a mesterkulcs, az olyan, hogy csak akkor nem fogom már tudni, ha átmegy rajtam a villamos.

Aztán eszembe jutott, hogy még nem is frissítettem a chroot-ot (tehát ezekkel a libekkel (libmysql, perl libek), amivel korábban ment, most nem megy), jk_init, megcsinálta, ugyanúgy nem megy.

Érdekes még, hogy ha hozzáadok most egy újat, hozzáadja. De dekódolni azt se bírja, az is krix-krax.

A kód baromi egyszerű, ez a dekódolás (már kivettem egy külön fájlba, így próbálgattam, de persze így se jó):

#!/usr/bin/perl

use Crypt::CBC;
use DBD::mysql;

do "config.cgi";

$desc = 'akarmi';


                        $connect = DBI->connect("dbi:mysql:$dbname:$dbhost", $dbuser, $dbpass);
                        $pwquery = "SELECT pass FROM pwdb WHERE description='$desc'";
                        $handle = $connect->prepare($pwquery);
                        $handle->execute() || print "Adatbázis hiba: $DBI::errstr\n";
                        @row = $handle->fetchrow_array;
                        $encodedpass = $row[0];
                        $handle->finish;
                        $connect->disconnect;

                        $cipher = Crypt::CBC->new( -key    => 'mesterkulcs',
                                                   -cipher => 'Blowfish'
                                                 );
                        $pass = $cipher->decrypt($encodedpass);

print $pass . "\n";

Ez meg a kódolás és berakás:

                        $cipher = Crypt::CBC->new( -key    => $masterkey1,
                                                   -cipher => 'Blowfish'
                                                 );
                        $encodedpass = $cipher->encrypt($newpass1);

                        $connect = DBI->connect("dbi:mysql:$dbname:$dbhost", $dbuser, $dbpass);
                        $insert = "INSERT INTO pwdb (description,pass,owner) VALUES (\"$description\",\"$encodedpass\",$uid)";
                        $handle = $connect->prepare($insert);
                        $handle->execute() || print "Adatbázis hiba: $DBI::errstr";
                        $handle->finish;
                        $connect->disconnect;

                        $description = "";

Eddig ment, mi történhetett? Egy nyomorult blowfish nem ugyanúgy működik már, mint pár verzióval ezelőtt? Kezdek ideges lenni...