Web crawler simples em Perl

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

[ Hits: 5.929 ]

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

VimeoTheSapo -Baixe videos do Vimeo e do sapo

HAT Googler

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

Perl Check Port - Entenda melhor os sockets

Admin Finder


  

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