Admin Login Finder [ Simple ]


#!/usr/bin/perl
use LWP::UserAgent;
print "Admin Finder : Please Enter Url\n"."Example : http://127.0.0.1\n";
chomp($site=);
$site = $site . '/';
print "scan : $site\n"."scan processing ,Please wait .. .\n"."===========================\n";
@path1=(
#### -------- ใครอยากได้ part เพิ่มก็ไปหาเพิ่มกันเอาเองนะครับ ^^
'test/admin',
'test/login'
);
foreach $ways(@path1){
$final=$site.$ways;
my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
if($response->content =~ /Username/ ||
$response->content =~ /Password/ ||
$response->content =~ /username/ ||
$response->content =~ /password/ ||
$response->content =~ /USERNAME/ ||
$response->content =~ /PASSWORD/ ||
$response->content =~ /Senha/ ||
$response->content =~ /senha/ ||
$response->content =~ /Personal/ ||
$response->content =~ /Usuario/ ||
$response->content =~ /Clave/ ||
$response->content =~ /Usager/ ||
$response->content =~ /usager/ ||
$response->content =~ /Sing/ ||
$response->content =~ /passe/ ||
$response->content =~ /P\/W/
){
print " \n - - - [+] Found!! : $final\n\n";
}else{
print "[-] Not Found : $final\n";
}
}
<>;