Protocolos de conexión
Publicado: 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:
pero al abrir el socket, me pone:
¿Se pueden usar estos protocolos de esta manera?
Estoy intentando usar protocolos de conexión socks 4/5, http, entre otros.
Los datos los tengo en un archivo llamado source.list:
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:
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
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?