Foro - Perl en Español

por **BigBear** » 2011-06-20 19:28 @853

Hola, estoy haciendo un script que genera palabras para formularios POST.
El problema es que los genera en una variable normal. Un ejemplo de cómo
queda es así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
 
my $tengo = qq({"probar" => "test","probarx" => "et","control" => "mandar"});
print $nave->post("http://localhost/test/a.php",$tengo)->content;
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Soy consciente de que sacando qq() el método POST lo va hacer bien pero
el generador que estoy haciendo deja así los datos porque cuando printeo se muestra
tal cual está encerrado en qq() pero en realidad no usa qq() porque es una demostración de que no puedo convertir la variable. Lo que necesito es: cómo puedo transformar dicha variable para que el método POST lo vea como un hash.

Por medio del POST, sí que puedes enviar una representación binaria de una estructura de datos... pero... es casi imposible que esa estructura sea regenerada en el receptor, ya que no coincidirán las direcciones virtuales de las referencias de las diversas estructuras con las estructuras de referencias de las direcciones virtuales del receptor (solo tienes que ejecutar varias veces un programa que vuelque un hash para comprobar que la dirección que hay dentro de HASH(...), cambia).

Lo que se hace en estos casos, es serializar la estructura, para que sea fácil su transporte y fácil su reconstrucción en destino.

por **BigBear** » 2011-06-21 08:38 @401

Pero entonces , ¿ cómo soluciono esta pesadilla ?

¿ No hay otra forma de enviar los datos con post para que mi variable sea aceptada ?

por **kidd** » 2011-06-21 08:46 @407

No entiendo muy bien el problema, teniendo tu hash:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

{"probar"=>"test","probarx"=>"et","control"=>"mandar"}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Quiéres enviar el hash tal cual por medio de post para que el receptor lo reciba como una variable hash? ¿O quiéres enviarlo de manera que cada llave del hash sea representado como un campo en el POST (probar=test&probarx=et&control=mandar)?

por **BigBear** » 2011-06-21 09:04 @419

Un poco de la primera pero mas de de la segunda pregunta.

por **kidd** » 2011-06-21 09:13 @426

Bueno si quieres enviar el hash como está, tal y como te decía Joaquin, tienes que serializarlo, para ello tienes varias opciones, por ejemplo JSON, con lo que harías:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
use JSON;

my$nave= LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my$tengo= to_json({"probar"=>"test","probarx"=>"et","control"=>"mandar"});
print$nave->post("http://localhost/test/a.cgi",hash=>$tengo)->content;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y luego en a.cgi:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI;
use JSON;

my$cgi=new CGI;

my$hash= from_json($cgi->param('hash'));

print$hash->{'probar'};#testColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora, si deseas enviar cada llave como un campo, es simple cuestión de modificar un poco tu código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;

my$nave= LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my%tengo=("probar"=>"test","probarx"=>"et","control"=>"mandar");
print$nave->post("http://localhost/test/a.php",%tengo)->content;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2011-06-21 09:34 @440

Perdón por tanto lío, pero necesito una solución que utilice los módulos
por defecto.

El código en realidad es este

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
#By Doddy HAckman
 
use LWP::UserAgent;
use HTML::Form;
 
my $nave = LWP::UserAgent->new;
$nave->agent(
    "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
scan("http://localhost/test/a.php");
 
sub scan {
 
    my $page = shift;
 
    my @strings = ( "yeah", "fuck" );
    my @testar = HTML::Form->parse( toma($page), "/" );
    my @botones_names;
    my @botones_values;
 
    my $valor = "doddyhackman";
 
    for my $test (@testar) {
        if ( $test->method eq "POST" ) {
            my @inputs = $test->inputs;
            for my $in (@inputs) {
                if ( $in->type eq "submit" ) {
                    if ( $in->name eq "" ) {
                        push( @botones_names, "submit" );
                    }
                    push( @botones_names,  $in->name );
                    push( @botones_values, $in->value );
                }
                else {
                    $orden .= '"' . $in->name . '" => "' . $valor . '",';
                }
            }
            chop($orden);
            for my $n ( 0 .. int(@botones_names) - 1 ) {
                my $partedos
                    = ',"'
                    . $botones_names[$n]
                    . '" => "'
                    . $botones_values[$n] . '"';
                my $final = $orden . $partedos;
                print tomar( $page, $final );
            }
        }
        else {                         #Fin de metodo POST
 
            my @inputs = $test->inputs;
            for my $in (@inputs) {
                if ( $in->type eq "submit" ) {
                    if ( $in->name eq "" ) {
                        push( @botones_names, "submit" );
                    }
                    push( @botones_names,  $in->name );
                    push( @botones_values, $in->value );
                }
                else {
                    $orden .= '' . $in->name . '=' . $valor . '&';
                }
            }
            chop($orden);
            for my $n ( 0 .. int(@botones_names) - 1 ) {
                my $partedos
                    = "&" . $botones_names[$n] . "=" . $botones_values[$n];
                my $final = $orden . $partedos;
                for my $strin (@strings) {
                    $final =~ s/doddyhackman/$strin/;
                    print $page. "?" . $final . "\n";
                }
 
            }
        }                              # Fin de metodo GET agregar ?
    }                                  #Fin de bucle principal
 
    #{"query" => $_[0], "submit" => " Crack "}
 
}                                      # Fin de scan
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

En realidad lo puse en una variable común porque después quería reemplazar los valores de
los inputs por cada palabra de un array.
Viendo el código solo me falta el método POST.

¿ No encuentran alguna solución ?

por **explorer** » 2011-06-21 11:12 @508

Los problemas que dicen "necesito una solución que utilice los módulos por defecto", me dan mucha pereza, porque eso indica que el programador no entiende lo que significa Perl. Con WWW::Mechanize se puede resolver un problema como el que planteas, en la tercera parte de las líneas que has escrito.

En cuanto a tu problema...

En la línea 91, el método post() necesita que el segundo argumento sea una referencia a un hash o un array, pero en realidad, estás haciendo una salvajada (convertir una cadena de caracteres que se ha construido en las líneas 38 a 48, en una referencia a un hash... y que además se lo pasas al método como una referencia a un array).

Lo que tienes que hacer es no usar una variable escalar, sino un array o un hash para guardar la información, y luego le pasas la referencia a esa variable al método post().

Las líneas 32, 34, 35, 38 y 41 a 48 se deben transformar en líneas que "construyan" ese hash o array.

Quizás te sea más fácil crear el array: solo tienes que guardar pares "nombre" / "valor" de lo que quieres enviar por el método POST.

por **BigBear** » 2011-06-21 11:27 @518

Perdón si me equivoco pero el orden del array que debería hacer debe quedar así

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@valores = ("nombre/test","submit/boton");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Estoy seguro que no es así :oops:

por **kidd** » 2011-06-21 11:32 @522

Tiene razón Joaquín, tienes que construir un array o un hash, en vez de crear una cadena, lo que estás queriendo hacer es pasar una cadena al post() en vez de pasar correctamente un array o hash.

Foro - Perl en Español

Envío de hash con método POST

Envío de hash con método POST

Publicidad

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

Re: Envío de hash con método POST

¿Quién está conectado?