Invalid length key (Crypt::Blowfish)

[Siechfred]

Guten Abend,

wieder einmal versuche ich mich durch Perl zu wühlen und bin dabei auf folgendes Problem gestoßen:

Das Script sieht wie folgt aus:

#!/usr/bin/perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Crypt::Blowfish;

$query = new CGI;
$stringtocrypt = $query->param('pwd');
@chars = (0..9, 'A'..'Z', 'a'..'z');
$key_str = "";
$i = 1;

for($i < 16) {
  $n = int(rand(62)+1);
  $key_str = $key_str.$chars[$n];
  $i++;
}

$key = pack("b8", "01234567");
$cipher = new Crypt::Blowfish $key;
$ciphertext = $cipher->encrypt($stringtocrypt);

Wenn ich das Script ausführe, kommt die Fehlermeldung, dass der Key nicht die richtige Länge habe. Wo liegt das Problem?

mfg Torsten