Foro - Perl en Español

por **BigBear** » 2014-01-02 17:03 @752

Hola, necesito establecer un control en este código. La idea es que en el proxy server se detecte que si una URL tiene un "?", o sea, está haciendo un formulario, se modifique por Google y termine. El tema es que necesito establecer un control porque después detecta de nuevo el GET mandado, o sea, Google. Mi idea es hacer un control y que no detecte la URL a la que cual redirecciono.

El código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

elsif ( $ARGV[0] =~ /g/ ) {
 
    my $urlfinal;
    my $control_get;
 
    $control_get = 1;
 
    if ( $message->uri =~ /(.*)\?(.*)/ and $control_get eq 1 ) {
 
        $control_get = 0;
 
        print "\n######################\n";
        print "[+] GET : " . $message->uri;
        print "\n######################\n";
 
        $message->uri("http://www.google.com");
 
        next;
 
        $control_get = 1;
 
    }
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Acá está el problema:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

######################

[+] GET : http://localhost:8080/labs/get.php?prob ... con=forear

######################

######################

[+] GET : http://www.google.com.ar/?gfe_rd=cr&ei= ... 8QeazYCoDA

######################Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿ Alguien me puede ayudar ?

use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;
use Data::Dumper;
 
my $server = HTTP::Proxy->new( port => 8080 );
$server->host();
 
$server->push_filter( mime => undef, response => HTTP::Proxy::BodyFilter::complete->new() );
 
$server->push_filter(
    mime     => undef,
    request  => HTTP::Proxy::BodyFilter::simple->new( \&enable ),
    response => HTTP::Proxy::BodyFilter::simple->new( \&enable2 )
);
 
$server->start();
 
sub enable {
 
    my ( $self, $dataref, $message, $protocol, $buffer ) = @_;
 
    my $urlfinal;
    my $control_get;
 
    $control_get = 1;
 
    if ( $message->uri =~ /(.*)\?(.*)/ and $control_get eq 1 ) {
 
        $control_get = 0;
 
        print "\n######################\n";
        print "[+] GET : " . $message->uri;
        print "\n######################\n";
 
        $message->uri("http://www.google.com");
 
        next;
 
        $control_get = 1;
 
    }
}
 
 
 
sub enable2 {
    my ( $j, $k, $l, $m, $n ) = @_;
    savefile( $logs, "\n\n[START]\n\n" . $$k . "\n\n[END]\n" ) if $$k ne "";
}
 
sub savefile {
    open( SAVE, ">>" . $_[0] );
    print SAVE $_[1] . "\n";
    close SAVE;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2014-01-02 18:57 @831

La variable $control_get no te sirve de nada, porque es una variable local, dentro de la subrutina: es creada al llamar a la subrutina, destruida al salir de ella, y desconocida para el resto del programa. Debes usar algo global.

No conozco HTTP::Proxy, pero juraría que la llamada al método uri() es la que hace que se ejecute por segunda vez... o es que quizás, el que hace la segunda petición, es el cliente web, al recibir la URI del proxy. No lo sé.

En la carpeta de ejemplos de HTTP::Proxy hay uno parecido a lo que quieres hacer, me parece.

Foro - Perl en Español

Establecer un control

Establecer un control

Publicidad

Re: Establecer un control

Re: Establecer un control

Re: Establecer un control

¿Quién está conectado?