• Publicidad

Proxy en Post

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Proxy en Post

Notapor Azrack » 2007-07-09 01:03 @085

Hola. Quisiera saber si alguien sabe cómo implementar un proxy en el siguiente script. Yo no tengo ni idea y si se puede para que vaya cogiendo proxys desde un archivo texto mejor gracias.
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl

use IO::Socket;

$z = 0;

print q(
xxxx
);

print q(Host sin www | http://);
$host=<STDIN>;
chop ($host);

{

while($z != 9999)
{

$postit = "xxxxxxx";

$lrg = length $postit;

my $sock = new IO::Socket::INET (
                                 PeerAddr => "$host",
                                 PeerPort => "80",
                                 Proto => "tcp",
                                );
die "\n xD: $!\n" unless $sock;

print $sock "POST /index.PHP HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Accept: image/gif, image/x-xbitmap, image/jpeg,

image/pjpeg, application/x-shockwave-flash,

application/vnd.ms-excel, application/vnd.ms-powerpoint,

application/msword, */*\n"
;
print $sock "Referer: $host\n";
print $sock "Accept-Language: en-us\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "Accept-Encoding: gzip, deflate\n";
print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US;

rv:1.7.<img src="
http://perlenespanol.com/foro/images/smilies/icon_cool.gif" alt="8)" title="Cool" /> Gecko/20050511 Firefox/1.0.4\n";
print $sock "Connection: Keep-Alive\n";
print $sock "Cache-Control: no-cache\n";
print $sock "Content-Length: $lrg\n\n";
print $sock "$postit\n";
close($sock);

syswrite STDOUT, ".";

$z++;
}

}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Azrack
Perlero nuevo
Perlero nuevo
 
Mensajes: 19
Registrado: 2007-04-14 13:42 @613

Publicidad

Notapor kidd » 2007-07-09 08:50 @409

Hola:

Checa el siguiente módulo:
http://search.cpan.org/search?query=HTT ... y&mode=all

Y lo puedes usar junto con la técnica descrita en el siguiente tutorial:
http://perlenespanol.com/tutoriales/mod ... _http.html


Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor Azrack » 2007-07-09 11:22 @515

disculpa man pero ahi yo estoy leendo datos yo quiero enviar datos usando un proxy.
Azrack
Perlero nuevo
Perlero nuevo
 
Mensajes: 19
Registrado: 2007-04-14 13:42 @613


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot] y 2 invitados

cron