Web crawler simples em Perl

Publicado por Perfil removido (última atualização em 29/07/2013)

[ Hits: 5.814 ]

Download wc.pl




Este script procura links e paths presentes em um determinado site.

:)

  



Esconder código-fonte

#!/usr/bin/perl -w
 
use WWW::Mechanize;
use Term::ANSIColor;


# This crawler find only link #
# By KoubackTr
# Follow-me http://www.twitter.com/kouback_tr_
# Thanks :)

print"\n";
print color('yellow');
print <<WcraW;
W.CraW Web crawler v1.0
 __    __   ___          __    __
/ / /\\ \\ \\ / __\\ __ __ _/ / /\\ \\ \\
\\ \\/  \\/ // / | '__/ _` \\ \\/  \\/ /
 \\  /\\  // /__| | | (_| |\\  /\\  /
  \\/  \\(_)____/_|  \\__,_| \\/  \\/

By KoubackTr - http://twitter.com/kouback_tr_
WcraW
#####################//#####################
print"\n";
print color('reset');
print color('green');
print"";

print"[!]Use EXEMPLE http://www.google.com/ \n";
print"[+]Target>> ";
print color('reset');
my $target = <STDIN>;

my $craw = WWW::Mechanize->new();

$craw->get($target);

my @links = $craw->links();
print"RESULTS:\n";
print"====================================================\n";
print $_->url."\n" foreach @links;
print"====================================================\n";

# END #

Scripts recomendados

Pesquisar palavras no Diário Oficial da União

Localizador de palavras em arquivos nao binarios

Descobrir operadora de celular

Baixar o Diário Oficial da União e salvar como um único PDF completo

Gerir VirtualHosts do Apache


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts