Web crawler simples em Perl

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

[ Hits: 5.451 ]

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

Perl Script para DDoS

Buscar Traduções no Google Translate

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

Synner Novo Sys(TCP) Flooder em Perl

Upload de múltiplos arquivos para Imageshack.us


  

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