Foro - Perl en Español

por **BigBear** » 2011-06-15 11:27 @519

Ando queriendo saber si el módulo HTTP::Proxy me podría dar la posibilidad
de capturar el contenido de la web cargada para poder realizar una modificación para
posteriormente devolver ese resultado a la página. Sería como el funcionamiento del famoso
programa achilles.

El código que tengo es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use HTTP::Proxy;
 
my $test = HTTP::Proxy->new(port=>8080);
$test->host();
$test->start();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

En la documentación no he encontrado lo que quería o, más bien, mi inglés no es muy bueno...

¿ Es posible realizar esto ?

Los filtros debes programarles; y les agregas al módulo con la función push_filter(), como aparece en la sección FILTERS, en la documentación del módulo.

Hay otro módulo llamado HTTP::Proxy::BodyFilter::htmltext, que, en teoría, debería facilitar la creación de esos filtros, pero tiene poca documentación.

No sé si es esto lo que quieres hacer.

por **BigBear** » 2013-03-10 20:39 @902

Perdón por revivir un tema viejo pero me había olvidado de este proyecto. Por eso no te respondí. Lo que quiero es que una vez el servidor proxy capture la información de la página es poder tenerla en una variable para modificarla y después de eso terminar de responder a la página marcada:

La información que necesito es algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Host: localhost

User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:19.0) Gecko/20100101 Firefox/19.0

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

Accept-Language: es-ar,es;q=0.8,en-us;q=0.5,en;q=0.3

Accept-Encoding: gzip, deflate

Cookie: __utma=111872281.314525818.1360496478.1360496478.1360759913.2; __utmz=11

1872281.1360496478.1.1.utmccn=(direct)|utmcsr=(direct)|utmcmd=(none)

Connection: keep-aliveColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Aunque también serviría para modificar los valores de los formularios.

¿ Se podrá hacer lo que quiero ?

PD : Encontré este código en Ruby que hace lo quiero :

Sintáxis: [ Descargar ] [ Ocultar ]

Using ruby Syntax Highlighting

#!/usr/bin/env ruby
# A quick and dirty implementation of an HTTP proxy server in Ruby
# because I did not want to install anything.
#
# Copyright (C) 2009 Torsten Becker <[email protected]>
 
require 'socket'
require 'uri'
 
 
class Proxy
def run port
begin
# Start our server to handle connections (will raise things on errors)
@socket = TCPServer.new port
# Handle every request in another thread
loop do
s = @socket.accept
Thread.new s, &method(:handle_request)
end
# CTRL-C
rescue Interrupt
puts 'Got Interrupt..'
# Ensure that we release the socket on errors
ensure
if @socket
@socket.close
puts 'Socked closed..'
end
puts 'Quitting.'
end
end
def handle_request to_client
request_line = to_client.readline
verb = request_line[/^\w+/]
url = request_line[/^\w+\s+(\S+)/, 1]
version = request_line[/HTTP\/(1\.\d)\s*$/, 1]
uri = URI::parse url
# Show what got requested
puts((" %4s "%verb) + url)
to_server = TCPSocket.new(uri.host, (uri.port.nil? ? 80 : uri.port))
to_server.write("#{verb} #{uri.path}?#{uri.query} HTTP/#{version}\r\n")
content_len = 0
loop do
line = to_client.readline
if line =~ /^Content-Length:\s+(\d+)\s*$/
content_len = $1.to_i
end
# Strip proxy headers
if line =~ /^proxy/i
next
elsif line.strip.empty?
to_server.write("Connection: close\r\n\r\n")
if content_len >= 0
to_server.write(to_client.read(content_len))
end
break
else
print line
to_server.write(line)
end
end
buff = ""
loop do
to_server.read(4048, buff)
to_client.write(buff)
break if buff.size < 4048
end
# Close the sockets
to_client.close
to_server.close
end
end
 
 
# Get parameters and start the server
if ARGV.empty?
port = 8008
elsif ARGV.size == 1
port = ARGV[0].to_i
else
puts 'Usage: proxy.rb [port]'
exit 1
end
 
Proxy.new.run port
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-03-11 16:44 @739

Sí que se puede.

Aquí hay un ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl -w
#############################
# proxy-adkiller
# Mike Schilli, 2012
#   ([email protected])
#############################
use strict;
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;
use HTTP::Request::Common;
 
my $proxy = HTTP::Proxy->new(
    host => "192.168.1.123",
    port => 9999
);
 
my $repl = "http://perlmeister.com/test/" . "sandy-beach.jpg";
 
$proxy->push_filter(
    request => HTTP::Proxy::HeaderFilter::simple->new(
        sub {
            my ( $self, $headers, $req ) = @_;
 
            if ( $req->uri() =~ /eviladserver\.com/ ) {
                $_[2] = GET $repl;
            }
        }
    )
);
 
$proxy->start;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Este programa crea un proxy, escuchando en la IP 192.168.1.126, y en el puerto 9999. Los usuarios se conectan a ese proxy para salir a Internet. Si alguien pide algo del dominio eviladserver.com, la petición es cambiada por una petición a una imagen jpeg de una bonita playa de arena.

Ejemplo sacado del artículo "Manipulación de contenidos Web", en la Linux Magazine 88.

por **BigBear** » 2013-03-13 16:22 @723

Tengo una duda porque no puedo mostrar por pantalla el resultado.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl -w
#############################
# proxy-adkiller
# Mike Schilli, 2012
#   ([email protected])
#############################
use strict;
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;
use HTTP::Proxy::BodyFilter::complete;
 
my $proxy = HTTP::Proxy->new( port => 8080 );
 
$proxy->push_filter(
    request => HTTP::Proxy::HeaderFilter::simple->new(
        sub {
            my ( $self, $headers, $req ) = @_;
 
            print $_[2];
            print $self;
            print $headers;
            print $req;
 
            }
 
    )
);
 
$proxy->start;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ Qué estoy haciendo mal ?

por **explorer** » 2013-03-14 20:08 @880

Quizás no puedas sacar nada hacia la salida estándar porque se use para responder a las peticiones del cliente.

Prueba a grabar esos datos en un archivo...

por **BigBear** » 2013-03-15 18:10 @799

¡Qué desgracia! Voy a tener que hacer el proxy desde cero. En el camino tuve problemas con las expresiones regulares. Mira:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $valor = "[request] : GET http://localhost/shell.php?upload= HTTP/1.1 dsadsad";
 
#[ver] : GET
#[url] : http://localhost/shell.php?upload=
#[version] : 1.1
 
#verb = request_line[/^\w+/]
#url = request_line[/^\w+\s+(\S+)/, 1]
#version = request_line[/HTTP\/(1\.\d)\s*$/, 1]
 
if($valor=~/^\w+/) {
print $1;
}
 
if($valor=~/^\w+\s+(\S+)/) {
print $2;
}
 
if($valor=~/HTTP\/(1\.\d)\s*$/) {
print $2;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿ Qué estoy haciendo mal en las expresiones regulares ?

P.D.: normalmente las expresiones regulares que uso en Perl sirven en Ruby.

por **explorer** » 2013-03-15 20:06 @879

Las variables especiales $1, $2, $3, etc. guardan los valores capturados por los grupos de paréntesis que están dentro de las expresiones regulares, así que

en la primera exp. reg. quieres sacar el valor de $1 correspondiente al primer par de paréntesis dentro del patrón, pero no hay paréntesis
en las dos siguientes, quieres sacar el valor de $2, pero en el patrón solo hay un par de paréntesis de captura, así que deberías usar $1

Foro - Perl en Español

Duda con módulo HTTP::Proxy

Duda con módulo HTTP::Proxy

Publicidad

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

Re: Duda con módulo HTTP::Proxy

¿Quién está conectado?