HaCKer'Mys

[Perl] Admin Panel Bulucu

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.[Perl] Admin Panel Bulucu

#!/usr/bin/perl  ## # By_KuNdUz ##  #                           *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_KuNdUz >\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_Hacker Mys.tr.gg ##

HaCKeR

Duyurular

Eski Duyurular

Sponsorlar

HaCKer'Mys

Hacker

[Perl] Admin Panel Bulucu