#!usr/bin/perl 
#Gen Wordlist 0.2
#By Doddy H
#ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd
 
use LWP::UserAgent;
use HTML::Strip;
 
my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
 
head();
unless($ARGV[0]) {
sintax();
} else {
start($ARGV[0]);
}
copyright();
 
sub start {
 
print "\n[+] Getting source code of the page\n";
 
my @contenido = toma($_[0]);
my $uno = HTML::Strip->new(emit_spaces => 1);
for my $tengo(@contenido) {
my @parteuno = $uno->parse($tengo);
push(@palabras,@parteuno);
}
 
for(@palabras) {
push @palabrasx, split q[ ];
}
 
my @final = repes(@palabrasx);
 
print "\n[+] Words Found : ".int(@final)."\n\n";
 
for my $aca(@final) {
print "[+] Word : $aca\n";
}
 
}
 
sub sintax {
print "\n[+] sintax : $0 <web>\n";
}
 
sub head {
print "\n\n-- == Gen Wordlist == --\n\n";
}
 
sub copyright {
print "\n\n(C) Doddy Hackman 2011\n\n";
}
 
sub repes {
foreach $test(@_) {
push @limpio,$test unless $repe{$test}++;
}
return @limpio;
}
 
sub toma {
return $nave->get( $_[0] )->content;
}
 
# The End ?