Faltou o texto :D<br>Essa busca foi so .br, ainda tem <a href="http://org.br">org.br</a> .<a href="http://com.br">com.br</a> .<a href="http://net.br">net.br</a> enfim .. <br><br><a href="http://www.google.com.br/search?hl=pt-BR&q=site%3A.br&btnG=Pesquisa+Google&meta=" target="_blank">http://www.google.com.br/search?hl=pt-BR&q=site%3A.br&btnG=Pesquisa+Google&meta=</a><br>
<br><div class="gmail_quote">2008/5/1 Lorn <<a href="mailto:lorn.br@gmail.com">lorn.br@gmail.com</a>>:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<a href="http://www.google.com.br/search?hl=pt-BR&q=site%3A.br&btnG=Pesquisa+Google&meta=" target="_blank">http://www.google.com.br/search?hl=pt-BR&q=site%3A.br&btnG=Pesquisa+Google&meta=</a><br><br>
<div class="gmail_quote">
2008/5/1 Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk" target="_blank">luismottacampos@yahoo.co.uk</a>>:<div><div></div><div class="Wj3C7c"><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Luis Motta Campos wrote:<br>
> Alguém se habilita para o código?<br>
<br>
Eu me habilito :D<br>
<br>
> Eu sugiro:<br>
><br>
> LWP<br>
> Iterator<br>
> Net::IP<br>
<br>
Sugestão quase toda aceita. O Net::IP tem um iterador incorporado, não é<br>
preciso usar o módulo Iterator. ;)<br>
<br>
Me desculpem a demora, a minha máquina de lavar pratos me obrigou a<br>
lavar os pratos eu mesmo, ontem. :D<br>
<br>
Aqui tem uma linha que varre a faixa de IPs <a href="http://200.0.0.0" target="_blank">200.0.0.0</a> - <a href="http://200.255.255.255" target="_blank">200.255.255.255</a><br>
e encontra todos os webservers disponíveis nesta faixa, perguntando para<br>
cada um deles os headers para '/'.<br>
<br>
perl -MNet::IP -MLWP::UserAgent -le '$ip = Net::IP->new( q{<a href="http://200.0.0.0" target="_blank">200.0.0.0</a> -<br>
<a href="http://200.255.255.255" target="_blank">200.255.255.255</a>} ); $ua = LWP::UserAgent->new( timeout => 2 ); do{ my<br>
$i=$ip->ip; my $r = $ua->head( qq{http://$i} ); print qq{$i - } .<br>
($r->is_success ? $r->header( q{server} ) : $r->status_line ) }while(<br>
++$ip );'<br>
<br>
O meu problema agora é que isso é lento que dá dó (mesmo com timeouts<br>
ridículos como 2s).<br>
<br>
Uma amostra: eu varri um pedacinho da rede do iG:<br>
<br>
<a href="http://200.226.133.70" target="_blank">200.226.133.70</a> - 500 Can't connect to <a href="http://200.226.133.70:80" target="_blank">200.226.133.70:80</a><br>
<a href="http://200.226.133.71" target="_blank">200.226.133.71</a> - 500 Can't connect to <a href="http://200.226.133.71:80" target="_blank">200.226.133.71:80</a><br>
<a href="http://200.226.133.72" target="_blank">200.226.133.72</a> - Apache/1.3.28 (Unix) mod_ssl/2.8.15 OpenSSL/0.9.7d<br>
<a href="http://200.226.133.73" target="_blank">200.226.133.73</a> - 500 Can't connect to <a href="http://200.226.133.73:80" target="_blank">200.226.133.73:80</a><br>
<a href="http://200.226.133.74" target="_blank">200.226.133.74</a> - Microsoft-IIS/6.0<br>
<a href="http://200.226.133.75" target="_blank">200.226.133.75</a> - Apache/2.2.8 (Unix)<br>
<a href="http://200.226.133.76" target="_blank">200.226.133.76</a> - 500 Can't connect to <a href="http://200.226.133.76:80" target="_blank">200.226.133.76:80</a><br>
<a href="http://200.226.133.77" target="_blank">200.226.133.77</a> - Microsoft-IIS/6.0<br>
<a href="http://200.226.133.78" target="_blank">200.226.133.78</a> - 500 Can't connect to <a href="http://200.226.133.78:80" target="_blank">200.226.133.78:80</a><br>
<a href="http://200.226.133.79" target="_blank">200.226.133.79</a> - 500 Can't connect to <a href="http://200.226.133.79:80" target="_blank">200.226.133.79:80</a><br>
<a href="http://200.226.133.80" target="_blank">200.226.133.80</a> - 500 Can't connect to <a href="http://200.226.133.80:80" target="_blank">200.226.133.80:80</a><br>
<br>
Eu acho que a gente precisa dividir isso em vários processos e em vários<br>
hosts, para agilizar o processo.<br>
<br>
Também acho dispensável imprimir mensagens e IPs sobre falhas.<br>
<br>
Depois, a gente pode fazer um documento dizendo "95% dos webservers<br>
brazileiros suportam mod_perl na versão XXX".<br>
<br>
Quem vai fazer o scan?<br>
<br>
* * *<br>
<br>
Hum. Consultando <a href="http://www.iana.org/assignments/ipv4-address-space" target="_blank">http://www.iana.org/assignments/ipv4-address-space</a>, eu<br>
descobri que existe mais faixas interessantes: os IPs alocados para o<br>
LACNIC (RIR da América do Sul e Caribe) são: <a href="http://186.0.0.0/8" target="_blank">186.0.0.0/8</a>, <a href="http://187.0.0.0/8" target="_blank">187.0.0.0/8</a>,<br>
<a href="http://189.0.0.0/8" target="_blank">189.0.0.0/8</a>, <a href="http://190.0.0.0/8" target="_blank">190.0.0.0/8</a>, <a href="http://191.0.0.0/8" target="_blank">191.0.0.0/8</a>, <a href="http://200.0.0.0/8" target="_blank">200.0.0.0/8</a>, e <a href="http://201.0.0.0/8" target="_blank">201.0.0.0/8</a>.<br>
Precisamos varrer todos estes ranges.<br>
<br>
* * *<br>
<br>
Noutra frente de trabalho, me sugeriram para tentar encontrar websites<br>
com ".br" (e que não estão no range <a href="http://200.0.0.0/8" target="_blank">200.0.0.0/8</a>, que a gente já cobriu).<br>
<br>
Alguém tem alguma sugestão de como "garimpar" os DNSs "ponto-br"?<br>
<br>
Putamplexos!<br>
<font color="#888888">--<br>
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<br>
Perl fanatic evangelist, and amateur {cook, photographer}<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</font></blockquote></div></div></div><br><br clear="all"><br>-- <br>Lindolfo "Lorn" Rodrigues<br>- <a href="http://www.slackwarezine.com.br" target="_blank">www.slackwarezine.com.br</a><br>- <a href="http://lornlab.org" target="_blank">http://lornlab.org</a><div class="Ih2E3d">
<br>
- <a href="http://sao-paulo.pm.org" target="_blank">http://sao-paulo.pm.org</a><br></div>use Catalyst;
</blockquote></div><br><br clear="all"><br>-- <br>Lindolfo "Lorn" Rodrigues<br>- <a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a><br>- <a href="http://lornlab.org">http://lornlab.org</a><br>
- <a href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br>use Catalyst;