Foro - Perl en Español

por **BigBear** » 2009-12-24 21:19 @929

Hola.

Ando queriendo descodificar dos codificaciones, una en ASCII y otra en hexadecimal.

Pues tengo :

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

users = 117,115,101,114,115 # Ascii separado cada tres dígitos con comas

users = 0x7573657273        # HeXADecimalColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Mi pregunta es: ¿cómo hago para descodificar las dos codificaciones a su respectivo valor (users) en Perl?

#!/usr/bin/perl
 
$users = '117,115,101,114,115';
 
print "$users\n";
 
# Dividimos por las comas,
# y por cada número, lo pasamos a carácter, con chr().
# Finalmente, lo unimos todo con join()
$users = join q[], map { chr } split q[,], $users;
 
print "$users\n";
 
$users = '0x7573657273';
 
print "$users\n";
 
$users =~ s/^0x//;      # Quitamos el prefijo hexadecimal
 
# Por cada par de caracteres de $users,
# Lo pasamos a decimal con hex()
# Lo pasamos a carácter con chr()
# Y lo unimos todo con join()
$users = join q[], map { chr hex } $users =~ /../g;
 
print "$users\n";
 
__END__
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Aunque... en el tema de conversiones, siempre es mejor usar pack/unpack:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
$users = '117,115,101,114,115';
 
print "$users\n";
 
# Dividimos por las comas,
# pack empaqueta un conjunto de valores de caracteres, en caracteres.
$users = pack "C*", split q[,], $users;
 
print "$users\n";
 
$users = '0x7573657273';
 
print "$users\n";
 
# $users contiene un valor hexadecimal,
# y como tal, lo empaquetamos en sus valores binarios,
# dando la cadena de caracteres buscada.
$users = pack "H*", $users;
 
print "$users\n";
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problemas con descodificación

Problemas con descodificación

Publicidad

Re: Problemas con desencriptación

¿Quién está conectado?