#!/usr/bin/perl

##
# http://www.dz4all.com/cc
##

#                           *Insert string search*
#                                 ’Login’
#                               ’Password’
#                               ’Username’
#                                 ’Sing’ 
#                                ’Senha’ 
#                                   vs.

use IO::Socket;
use HTTP::Request;
use LWP::UserAgent;

system(’cls’);
system(’title Admin Control Panel Finder’);

print"\\\\n";
print "\\\\t>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\\\\n";
print "\\\\t<                                    <\\\\n";
print "\\\\t>        الباحث عن لوحة التحكم       >\\\\n";
print "\\\\t<                                    <\\\\n";
print "\\\\t> 08/10/10      By_hackawxz = S4wDz  >\\\\n";
print "\\\\t<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\\\\n";
print "\\\\n";

print "? Enter Site\\\\n\\\\n-> ";
$site=<STDIN>;
chomp $site;

if ( $site !~ /^http:/ ) {
$site = ’http://’ . $site;
}
if ( $site !~ //$/ ) {
$site = $site . ’/’;
}
print "\\\\n";
print "? Insert string search\\\\n(ex: Username or Password or Senha or Admin vs..)\\\\n\\\\n-> ";
$string=<STDIN>;
chomp $string;
print "\\\\n";

print "? Scaning...\\\\n\\\\n";

$a1="admin/";
$a2="admin/account.php";
$a3="admin/account.html";
$a4="admin/index.php";
$a5="admin/index.html";
$a6="admin/login.php";
$a7="admin/login.html";
$a8="admin/home.php";
$a9="admin/controlpanel.html";
$a10="admin/controlpanel.html";
$a11=admin.html;
$a12="admin.html";
$a13="admin/cp.php";
$a14="admin/cp.html";
$a15=cp.html;
$a16="cp.html";
$a17="admin/cp.php";
$a18="admin/cp.html";
$a19="administrator/cp.php";
$a20"administrator/cp.php";
$a21="administrator/";
$a22="administrator/index.html";
$a23="administrator/index.php";
$a24="administrator/login.html";
$a25="administrator/login.php";
$a26="administrator/account.html";
$a27="administrator/account.php";
$a28=administrator.html;
$a29="administrator.html";
$a30=login.html;
$a31="login.html";
$a32="modelsearch/login.php";
$a33=moderator.html;
$a34="moderator.html";
$a35="moderator/login.php";
$a36="moderator/login.html";
$a37="moderator/admin.php";
$a38="moderator/admin.html";
$a39="moderator/";
$a40=account.html;
$a41="account.html";
$a42=controlpanel.html;
$a43="controlpanel.html";
$a44=admincontrol.html;
$a45="admincontrol.html";
$a46="admin/account.php";
$a47="admin/account.html";
$a48=adminpanel.html;
$a49="adminpanel.html";

for ($i=1;$i<50;$i++){

$add=a.$i;
chomp $add;

$final=$site.$$add;

my $req=HTTP::Request->new(GET=>$final);
my $ua=LWP::UserAgent->new();
$ua->timeout(20);
my $response=$ua->request($req);

if($response->content =~ /$string/){
print " \\\\n [+] Yepp -> $final\\\\n\\\\n";
}else{
print "[-] Not Found <- $final\\\\n";
}
}
#EnD
##
# dz4all.com/cc
##