Perl AdminFinder Basico em PERL

[andreol263]

#!/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