Web crawler simples em Perl

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

[ Hits: 5.944 ]

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

Gmail::SendMail - Enviando emails usando gmail

Automatizando o envio de arquivo p/ o FTP !

SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP

Descobrir operadora de celular

Google Tradutor


  

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