Hex 2 ASCII y viceversa

He estado jugando un poco con redes inalámbricas y cuando logras romper alguna de 64 bits la llave te sale en Hexadecimal. Se me ocurrió que a lo mejor podría significar algo en ASCII asi que pensé en hacerme un pequeño script para convertirlo rápidamente. Encontrar un ejemplo práctico fue difícil asi que comparto este script para el deleite de otro g33k.

ascii2hex.pl

#!/usr/bin/perl
# Script editado por Adrian Puente Z.

use strict;
use warnings;

if ( $#ARGV == -1 )
{
        print "Sintaxis: ascii2hex.pl [cadena ASCII]\\n";
        exit;
}


my $testchars = $ARGV[0];
my $hexchars = '';
foreach my $c (split(//,$testchars)) {
        $hexchars .= sprintf "%x", ord($c);
}
print "$hexchars\\n";

Este Script hace lo contrario pero con otra aproximación:

hex2ascii.pl

#!/usr/bin/perl
# Script editado por Adrian Puente Z.

use strict;
use warnings;

if ( $#ARGV == -1 )
{
        print "Sintaxis: hex2ascii.pl [cadena HEX]\\n";
        exit;
}

my $s = $ARGV[0];
$s =~ s/://g;
$s =~ s/ //g;
my $l=length $s;
my @a=pack "H$l",$s;
print "@a\\n"

El truco del hex2ascii es que cuando tienes una cadena de tipo AE:34:DF:12 quita los caracteres : y lo convierte con la función pack de perl. Es cosa de checar la documentación para poder cambiar de otros formatos como binario a ASCII o HEX.

Ah, y no, no significan nada en ASCII, los que yo encontré. Normalmente en los routers 2WIRE de Prodigy tienen una clave en la parte inferior del dispositivo que, por lo que he visto, son siempre números facilitando mucho el rompimiento de la llave de la red.

Adrián Puente Z.