Foro - Perl en Español

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.

Puedes utilizar las funciones pack, unpack y vec.

Hola.
No mira, yo lo que quiero es saber como encripto por entrada de bits, es decir:
Tengo un binario o un .elf, lo quiero encriptar, pero claro esta, tengo que saber el orden de bits por el que inicia hasta en el que termina el binario/elf.
Entonses como se por donde iniciar?
Cuantos bits escribir al decriptarlo?
El orden de los caracteles?
Yo se que estas funciones es para trabajar con ASCii, pero no se como guardar o escibir por orden bits, como un binario.
Gracias, de nuevo!

Que si, que si... que vec sirve para tratar bits en cadenas de bytes almacenadas en strings... y con pack/unpack puedes leer ristras de bytes.
Abres el fichero que quieres encriptar. Haces un bucle hasta el final del fichero. Leer una ristra de bits según unpack. Encriptas con vec. Almacenas en otro fichero con pack. Listo
Todo dependerá de tu método de encriptación.

OK, digamos que vec me solucione el prloblema, pero... Si quiero decriptarlo?
Bien, otra dudilla, la fincion crypt() es decriptable?
Gracias, salu2!

No, la función crypt() es una función solo de ida, no de vuelta...

Sirve mucho para por ejemplo encriptar passwords y luego verificas si el password es correcto encriptando el que coloca el usuario y comparrando ambos passwords encriptados...Pero no se puede desencriptar...

Saludos

Código: Seleccionar todo

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;

Funciona al 100%. ¡gracias a todos!
salu2

Podríais explicarme este código, por favor.
Por que lo que necesito es encriptar un fichero de texto pero no sé cómo hacerlo.

Mi script se encargará de leer la información desencriptando el fichero.

Un millón de gracias y un saludo.

Espero que te sirva

Saludos