Bueno, vamos al grano. He realizado un pequeño script en Perl, el cual FUNCIONA.
Pero necesito ajustar más los parámetros... El script lo que hace es muy simple: ingreso un HASH md5; y éste lo ingresa en una base de datos: una web donde contiene muchos hash con sus 'valores' desencriptados.
Es decir, el user ingresa un hash, y le devolvería algo así:
- Código: Seleccionar todo
098f6bcd4621d373cade4e832627b4f6 - test
Esto es lo que yo quiero hacer, pero al realizar el script, me devuelve TODO EL CÓDIGO FUENTE.
¿Hay alguna forma de intentar que mediante expresiones regulares o algún tipo de filtro me deje la palabra solamente?
Les dejo mi humilde código.
Using perl Syntax Highlighting
#!/usr/bin/perl
####################################################################
# Testea si un hash en md5 previamente fue crackeado, en una base de datos
# Confused
####################################################################
use LWP::UserAgent;
use HTTP::Request;
#Input para almacenar el Hash MD5.
system("clear");
print "-> Ingrese hash: ";
$hash =<STDIN>;
chomp($hash);
#Base de Datos G-DATA Online
$url = "http://gdataonline.com/qkhash.php?mode=txt&hash=$hash";
#Definiendo UserAgent nuevo.
my $ua = LWP::UserAgent->new();
$ua->agent("Morcilla/4.0");
#Definiendo Request.
my $req = HTTP::Request->new(POST => $url);
my $respuesta = $ua->request($req);
my $contenido = $respuesta->content(); #contenido de la respuesta
print "$contenido\n";
####################################################################
# Testea si un hash en md5 previamente fue crackeado, en una base de datos
# Confused
####################################################################
use LWP::UserAgent;
use HTTP::Request;
#Input para almacenar el Hash MD5.
system("clear");
print "-> Ingrese hash: ";
$hash =<STDIN>;
chomp($hash);
#Base de Datos G-DATA Online
$url = "http://gdataonline.com/qkhash.php?mode=txt&hash=$hash";
#Definiendo UserAgent nuevo.
my $ua = LWP::UserAgent->new();
$ua->agent("Morcilla/4.0");
#Definiendo Request.
my $req = HTTP::Request->new(POST => $url);
my $respuesta = $ua->request($req);
my $contenido = $respuesta->content(); #contenido de la respuesta
print "$contenido\n";
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
