Hola forer@s!
Hace rato hice un encriptador/decryptador que hacía su función por caracteres, ahora lo quiero hacer por bits.
Entonces mi pregunta es la siguiente:
¿Cómo encripto por bits, SIN usar algún módulo de CPAN?
Gracias.
open FL, "text";
my @lines = <FL>;
my $aline;
my $a = 0;
close FL;
foreach(0 .. $#lines) {$aline = "$aline$lines[$a++]";}
my $palabras = unpack("b*", $aline);
print "$palabras\n";
my $all = pack("b*", $palabras);
open QT, "+>txt.dat";
print QT "$all";
close QT;
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados