Convertir texto normal a hexadecimal : Intermedio

Publicidad

Convertir texto normal a hexadecimal

Publicar una respuesta

8 mensajes • Página 1 de 1

Convertir texto normal a hexadecimal

por BigBear » 2009-06-16 17:42 @779

Hi!

Ando buscando en todos lados cómo convertir texto normal a hexadecimal, pero no encuentro ningún módulo para eso.

ejemplo: 0x2f6574632f67726f7570 = “/etc/group”

Agradecería cualquier ayuda...

BigBear: Perlero frecuente; Mensajes: 981; Registrado: 2009-03-01 18:39 @818

Publicidad

por explorer » 2009-06-17 04:45 @240

No necesitas usar ningún módulo. Con printf lo tienes resuelto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$x="/etc/group";

$hex='0x';

for(split//,$x){
$hex.=sprintf"%x",ord;
}

print"$hex\n";Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES

explorer: Administrador; Mensajes: 14480; Registrado: 2005-07-24 18:12 @800; Ubicación: Valladolid, España

por BigBear » 2009-06-17 12:59 @583

Hecho..... gracias explorer

BigBear: Perlero frecuente; Mensajes: 981; Registrado: 2009-03-01 18:39 @818

por explorer » 2009-06-17 13:24 @600

Casi mejor usar unpack()

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$x="/etc/group";

$hex='0x'.unpack"H*",$x;

Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES

explorer: Administrador; Mensajes: 14480; Registrado: 2005-07-24 18:12 @800; Ubicación: Valladolid, España

por BigBear » 2009-06-18 13:31 @605

Y ¿cómo seria desencriptando un palabra hex a texto normal sin usar unpack()?

BigBear: Perlero frecuente; Mensajes: 981; Registrado: 2009-03-01 18:39 @818

por explorer » 2009-06-18 14:19 @638

Resuelto en el perlfaq9, How do I decode or create those %-encodings on the web?.

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES

explorer: Administrador; Mensajes: 14480; Registrado: 2005-07-24 18:12 @800; Ubicación: Valladolid, España

por BigBear » 2009-06-21 14:05 @628

Espero no estar molestando mucho pero, ¿cómo hago para desencriptar como me dijiste, con el encode?

Con estos datos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

s/([^\w()'*~!.-])/sprintf '%%%02x', ord $1/eg;# encode

s/%([A-Fa-f\d]{2})/chr hex $1/eg;# decode
s/%([[:xdigit:]]{2})/chr hex $1/eg;# same thingColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

BigBear: Perlero frecuente; Mensajes: 981; Registrado: 2009-03-01 18:39 @818

por explorer » 2009-06-21 14:16 @636

Ahí tienes la expresión regular que debes aplicar a tu cadena de caracteres (sin el prefijo '0x') para que quede transformada.

P.D. Estamos en el foro Intermedio

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES

explorer: Administrador; Mensajes: 14480; Registrado: 2005-07-24 18:12 @800; Ubicación: Valladolid, España

Publicar una respuesta

8 mensajes • Página 1 de 1

Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados