Filtrar palabras de un código fuente
Publicado: 2009-06-24 15:10 @673
Hola gente, ¿qué tal?, Para empezar soy nuevo en este foro así que antes que nada felicitarlos.
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í:
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.
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.004 segundos, usando GeSHi 1.0.8.4