open FL, "text";              # abre al archivo...
my @lines = <FL>;             # guarda toda la info del archivo en el array @lines
my $aline;                     
my $a = 0;                    # crea 2 variables que se utilizarán luego
close FL;                     # cierra el archivo

foreach(0 .. $@lines) {$aline = "$aline$lines[$a++]";}  # deja toda la info del archivo en un string $aline (modifiqué un error que había en el código)

my $palabras = unpack("b*", $aline);  # desencripta la info...
print "$palabras\n";                  # imprime la info en Humano
my $all = pack("b*", $palabras);      # vuelve a encriptar la info para luego guardarla en el archivo

open QT, "+>txt.dat";
print QT "$all";
close QT;

foreach(0 .. $#lines) {$aline = "$aline$lines[$a++]";}

#!Perl
use Crypt::Blowfish;

my $clave = 'asquerRs';                   # Clave para cifrar/descifrar

#########################################################################
print "Codificando:\n";
my $cifra = Crypt::Blowfish->new($clave);

# Abrimos el fichero
open my $fh, '<', 'usuarios.txt'
    or die "ERROR: no puedo abrir el fichero de usuarios original: $!\n";

# Escribimos en el fichero de salida
open my $ch, '>', 'usuarios.blw'
    or die "ERROR: no puedo escribir en el fichero de salida: $!\n";

# lo leemos línea a línea, encriptando
while ( <$fh> ) {

    chomp;

    next if m/^ \s* \#/ximo;    # Obviamos líneas vacías o comentarios

    if ( my ($usuario,$contrasena) = split q{:} ) {

        print "$usuario:$contrasena=>";
        $usuario    = codifica( $usuario );
        $contrasena = codifica( $contrasena );
        print "$usuario:$contrasena\n";

        # Lo escribimos. El resultado siempre es de 8 caracteres cada uno
        print $ch "$usuario$contrasena\n";
    }
}

# Fin de la codificación
close $fh;
close $ch;

print "\n";

#########################################################################
print "Decodificando:\n";
my $descifra = Crypt::Blowfish->new($clave);

# Abrimos el fichero codificado
open my $dh, '<', 'usuarios.blw'
    or die "ERROR: no puedo abrir el fichero codificado: $!\n";

# lo leemos línea a línea, desencriptando
while ( <$dh> ) {

    chomp;

    # Las líneas son dos bloques de 8 caracteres cada uno
    if ( my ($usuario,$contrasena) = unpack "A8 A8", $_ ) {

        print "$usuario:$contrasena=>";
        $usuario    = decodifica( $usuario );    # Decodificamos
        $contrasena = decodifica( $contrasena ); # Decodificamos
        print "$usuario:$contrasena\n";
    }
}

# Fin de la decodificación
close $dh;

#########################################################################
sub codifica {
    my $que = shift;
    $que = substr $que."\0"x8,0,8;               # Ajustamos a 8 caracteres, relleno con ceros
    return $cifra->encrypt($que);                # Codificamos y devolvemos el resultado
}

sub decodifica {
    my $que = shift;
    $que = $descifra->decrypt($que);             # Decodifica
    $que =~ s/\0+$//;                            # y quitamos los ceros de relleno
    return $que;
}
__END__