Perl admin panel bulucu.. Başka programların pek bir yararını görmedim bu programı yazıyım dedim arkadaşlar.Hepinize yararlı olması ve misyon dahilinde kullanılmsı dileğiyle..
Şunlara dikkat etmeniz gerekiyor;
1.Programda Insert string search bölümüne yazacak olduğunuz kelimeler büyük küçük haflere duyarlıdır mesela "Login" i "login" yazarsanız program admin panelini bulmaz.
2.Taratacak olduğunuz sitenin ait olduğunu bölge dilinede dikkate alarak arama kelimesini yazınız.
Code:
#!/usr/bin/perl### By DarkEvenT M-H-T### *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> Admin Control Panel Finder >\\\\n";print "\\\\t< <\\\\n";print "\\\\t> 08/10/08 By DarkEvenT >\\\\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.php";$a12="admin.html";$a13="admin/cp.php";$a14="admin/cp.html";$a15="cp.php";$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.php";$a29="administrator.html";$a30="login.php";$a31="login.html";$a32="modelsearch/login.php";$a33="moderator.php";$a34="moderator.html";$a35="moderator/login.php";$a36="moderator/login.html";$a37="moderator/admin.php";$a38="moderator/admin.html";$a39="moderator/";$a40="account.php";$a41="account.html";$a42="controlpanel.php";$a43="controlpanel.html";$a44="admincontrol.php";$a45="admincontrol.html";$a46="admin/account.php";$a47="admin/account.html";$a48="adminpanel.php";$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### By DarkEvent M-H-T##
__________________
Şunlara dikkat etmeniz gerekiyor;
1.Programda Insert string search bölümüne yazacak olduğunuz kelimeler büyük küçük haflere duyarlıdır mesela "Login" i "login" yazarsanız program admin panelini bulmaz.
2.Taratacak olduğunuz sitenin ait olduğunu bölge dilinede dikkate alarak arama kelimesini yazınız.
Code:
#!/usr/bin/perl### By DarkEvenT M-H-T### *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> Admin Control Panel Finder >\\\\n";print "\\\\t< <\\\\n";print "\\\\t> 08/10/08 By DarkEvenT >\\\\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.php";$a12="admin.html";$a13="admin/cp.php";$a14="admin/cp.html";$a15="cp.php";$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.php";$a29="administrator.html";$a30="login.php";$a31="login.html";$a32="modelsearch/login.php";$a33="moderator.php";$a34="moderator.html";$a35="moderator/login.php";$a36="moderator/login.html";$a37="moderator/admin.php";$a38="moderator/admin.html";$a39="moderator/";$a40="account.php";$a41="account.html";$a42="controlpanel.php";$a43="controlpanel.html";$a44="admincontrol.php";$a45="admincontrol.html";$a46="admin/account.php";$a47="admin/account.html";$a48="adminpanel.php";$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### By DarkEvent M-H-T##
__________________
anlamadık ama saol 
