Código:
#!/usr/bin/perl -w #Coded by andreol263 use LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->timeout(40); system("cls"); print "Admin Page Finder\n\n"; print "Enter a page:\n"; chomp($pag = <STDIN>); if($pag !~ m(http://)){ $pag = "http://" . $pag; } if($pag !~ m!(.*)/\z!){ $pag .= "/"; } $bak = local $/; local $/ = 0; open $rea_fh, "<", "text.txt"; local $/ = $bak; @path1=split(/\n/s,<$rea_fh>); foreach $i(@path1){ $red = $pag . $i; $res = HTTP::Request->new(GET => "$red"); $rep = $ua->request($res); if($rep->status_line =~ /4[0-9]+/){ print "The $i page probably don't exist!\n"; }elsif($rep->content =~ /user(name)?|usuario/gi || $rep->content =~ /pass(word)?|senha/gi){ open $out_fh, ">>", "log.txt"; print $out_fh "The following dir exits and are a possibly admin page:$red\n"; print "The $i page exists, and is a possibly login page!\n"; system("pause"); }else{ print "The $i page exists, but it's not a admin page!\n"; } }
E um AdminFinder comum, aonde ele pega uma lista de diretórios de paginas admin dentro de um arquivo na mesma pasta chamado, text.txt, faz uma leitura do arquivo e testar se os diretórios existem ou se existem e são paginas de login da administração ou se só existem, ótimo para quem quer estudar sobre FileHandles ou talvez querem fazer o seu próprio programinha