Código
#!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 { my @contenido = toma($_[0]); my $uno = HTML::Strip->new(emit_spaces => 1); for my $tengo(@contenido) { my @parteuno = $uno->parse($tengo); } for(@palabras) { } my @final = repes(@palabrasx); for my $aca(@final) { } } sub sintax { } sub head { } sub copyright { } sub repes { foreach $test(@_) { } } sub toma { } # The End ?