srand(time ^ $$);
my @passset = ('a'..'k', 'm'..'n', 'p'..'z', '2'..'9');
my $passwrd1 = "";
for (my $i=0; $i<8; $i++) { $passwrd1 .= $passset[int(rand($#passset + 1))]; }

my $cryptedpass = crypt($passwrd1, substr($never_blank_value, 0, 2));

use Babel;
my $y = new Babel;
my $newpasswrd = $y->encode($cryptedpass, "$passwrd1");