#Autor: Yoyahack
#Web: Undersecurity.net & mitm.cl
#Buscador de directorios de una website
 
#Modulo
use WWW::Mechanize;
use URI::Split qw(uri_split);
 
#Code
 
 
if(!$ARGV[0]){
    print "Usage: perl $0 <web>\n";
    print "Ex: perl $0 www.pagina.com\n";
    }else{
    my @norepetidos;
    my %a;
    my $mech = WWW::Mechanize->new();
 
    $mech->agent("Mozilla/5.0 (X11; U; Linux i686; es-ES; rv:1.9.2.2pre) Gecko/20100227 Ubuntu/9.10 (karmic) Namoroka/3.6.2pre"); 
    $mech->get("http://".$ARGV[0]);
 
    my @enlaces = $mech->find_all_links();
 
    foreach $enlace (@enlaces) {
        my ($scheme, $auth, $path, $query, $frag) = uri_split($enlace->url());
        $path =~ s/\/[a-zA-Z0-9_.]+$/\//ig;
        my @path = $path;
        foreach $a1 (@path) {
            next if $a{ $a1 }++;
            push @norepetidos, $a1;
            foreach $norepeat(@norepetidos){
 
            print "$norepeat\n";
         }
                           }
                              }
                                        }