Foro - Perl en Español

por **primitivo** » 2015-01-31 23:21 @015

Hola, perleros, un saludo.

Estoy intentando usar protocolos de conexión socks 4/5, http, entre otros.
Los datos los tengo en un archivo llamado source.list:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ROUTER:23
SOCKS4:559
HTTPPOST:3128
SOCKS4:1080
HTTP:8080
SOCKS5:1182
HTTP:3128
HTTPPOST:8080
SOCKS4:9999
HTTPPOST:80
SOCKS5:1080
HTTP:63000
HTTP:8000
HTTPPOST:808
HTTP:80
HTTPPOST:6588
HTTP:6588
SOCKS5:3128
SOCKS5:10080
HTTPPOST:4480
SOCKS4:6664
SOCKS4:63808
HTTP:6667
SOCKS4:19991
SOCKS4:1098
SOCKS4:10000
SOCKS4:4471
HTTP:65506
HTTP:63809
SOCKS5:9090
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

pero al abrir el socket, me pone:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

El nombre solicitado es válido pero no se encontraron datos del tipo solicitado.
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#Acá el sock.
use IO::Socket;
open(my $DATA,"source.list") or print $!;
my $ip = <STDIN>;
while (my $vector = <$DATA>)
{
        chomp($vector);
        @p = split(":",$vector);
        $p[1] =~ s/;//ig; 
        my $s = IO::Socket::INET->new(
                PeerAddr=>$ip,
                PeerPort=>$p[1],
                Proto=>$p[0]) or print "ERROR: $ip:$p[0] ($p[1]) -> $!\n";
        if (<$s>) {
                print " $_ \n";
        } 
}
close(DATA);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Se pueden usar estos protocolos de esta manera?

#!/usr/bin/perl
use autodie;
use IO::Socket;
 
print "IP: "; chomp(my $ip = <STDIN>);
 
open my $DATA, '<', "source.list";
 
while (my $vector = <$DATA>) {
    chomp($vector);
    
    my @p = split ":", $vector;
 
    my $s = IO::Socket::INET->new(
        PeerAddr => $ip,
        PeerPort => $p[1],
        Proto    => 'tcp', 
    );
 
    if ($s) {
        print "Conexión con [@p]\n";
    }
    else {
        warn "ERROR: $ip:@p -> $!\n";
    }
}
 
close $DATA;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **primitivo** » 2015-02-11 22:00 @958

Lo que deseo es ver conexiones proxy por puertos y protocolos de una IP dada.

por **explorer** » 2015-02-12 05:25 @267

No estoy seguro, pero creo que esa información no se transmite a nivel de TCP.

Por ejemplo, a nivel de HTTP, sí que se hace:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ip = $req->header('Client-IP') || $req->header('Remote-Addr');
if ($req->header('X-Forwarded-For')) {
        $proxy = $ip;
        $ip = $req->header('X-Forwarded-For');
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es decir: la IP original está indicada en una de las cabeceras HTTP que recibimos.

Lo más parecido que he encontrado es un módulo que no siquiera está en CPAN: ProxyChecker, que lo que hace es comparar la IP que se conecta con una lista de IP de proxies conocidos.

WWW::ProxyChecker permite comprobar si una lista de proxies están vivos. Lo mismo que proxyhunter.

Cosa distinta es que quieras montar tu propio proxy, y de esa manera, capturar peticiones externas para ver de dónde vienen. En ese caso, tienes unas cuantas opciones.

por **primitivo** » 2015-02-13 06:09 @298

Fenómeno, gracias

Foro - Perl en Español

Protocolos de conexión

Protocolos de conexión

Publicidad

Re: Protocolos de conexión

Re: Protocolos de conexión

Re: Protocolos de conexión

Re: Protocolos de conexión

¿Quién está conectado?