Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Top Posters
Who's Online (0)
Powered by Vanilla.
Made with Bootstrap.
Private Perl Admin Finder
-
So i got borded of not finding admin pages when i do a hack, so i coded myself a perl admin finder. The difference with this compared to every other on the web is that this scans around 1400 possible pages. Results will show 1803 scanned but some are the same just slightly different.
Please note i did not make the list, i stumbled across it and though i could make it more useful.
use HTTP::Request;
use LWP::UserAgent;
system('cls');
print \"====================================================================\n\";
print \"[Mr. P-teo] Admin Page Scanner +\n\n\";
print \"URL must contain http://\n\";
print \"====================================================================\n\n\";
print \"Website: \";
chomp ($url = <STDIN>);
my $file = \"admins.txt\";
open (FH, \"< $file\") or die \"Can't open $file for read: $!\";
my @directorys;
while (<FH>) {
push (@directorys, $_);
}
close FH or die \"Cannot close $file: $!\";
my $amount = 0;
my $success = 0;
my $useful = 0;
foreach $ways(@directorys){
$amount++;
my $web=$url.\"/\".$ways;
my $req=HTTP::Request->new(GET=>$web);
my $ua=LWP::UserAgent->new();
$ua->timeout(30);
my $response=$ua->request($req);
if($response->content =~ /404 Not Found/){
}elsif($response->content =~ /Page Cannot be displayed/){
}else{
if($response->content =~ /username/ ||
$response->content =~ /password/ ||
$response->content =~ /admin/ ||
$response->content =~ /login/ ||
$response->content =~ /administration/ ||
$response->content =~ /authorisation/ ||
$response->content =~ /sign in/ ||
$response->content =~ /signin/ ||
$response->content =~ /user/){
print \"\n\tPage Found => $web\";
$success++;
}
}
}
print \"\n\n\n------------------------------------------\n[$amount Scanned] + [$success Found]\n-------------------------------------------\n\n\";
And of course you will be needing the admin links.
Download => http://pastebin.com/aemUsVXQ
Hope you like.Skype: mrpt3oTwitter: MrPteo
