API tools faq
paste
Advertisement
rutera

Admin Control Panel Finder v1.2

rutera
Jan 8th, 2015
316
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 13.48 KB | None | 0 0
raw download clone embed print report
  1. #!usr/bin/perl
  2.  
  3.  
  4. use Tk;
  5. use HTTP::Request;
  6. use LWP::UserAgent;
  7.  
  8. $mw = MainWindow->new( -background => "black", -cursor=>"crosshair");
  9. $mw->geometry("1070x325+100+300");
  10. $mw->title("|_^_| Admin Control Panel Finder v1.2 |_^_|");
  11. $mw->resizable(0,0);
  12.  
  13. $statusbar = "|_^_| Admin Control Panel Finder v1.2 |_^_|";
  14. $statusbottom = $mw->Label(-textvariable => \$statusbar, -relief => 'flat', -background => "black", -foreground => "red", -font => "Verdana 7", -width => 120)->place(-x => 240, -y => 307);
  15. $mw->Label(-background => "black", -foreground => "black")->pack();
  16. $stat = "Control Panel Found";
  17. $sta = $mw->Label(-textvariable => \$stat, -relief => 'flat', -background => "black", -foreground => "red", -font => "Verdana 9")->place(-x => 380, -y => 10);
  18. $stat1 = "Control Panel Not Found";
  19. $st = $mw->Label(-textvariable => \$stat1, -relief => 'flat', -background => "black", -foreground => "red", -font => "Verdana 9")->place(-x => 786, -y => 10);
  20. $test1 = $mw->Scrolled("Text", -scrollbars => 'oe', -font => "Verdana 8", -background => "black", -foreground => "red", -selectbackground => "red", -insertbackground => "red", -relief => "ridge", -width => 55, -height=> 20)->pack(-side => 'right', -anchor => 'e');
  21. $test2 = $mw->Scrolled("Text", -scrollbars => 'oe', -font => "Verdana 8", -background => "black", -foreground => "red", -selectbackground => "red", -insertbackground => "red", -relief => "ridge", -width => 55, -height=> 20)->pack(-side => 'right', -anchor => 'e');
  22. $mw->Label(-background => "black", -foreground => "black")->pack();
  23. $mw->Label(-background => "black", -foreground => "black")->pack();
  24. $mw->Label(-background => "black", -foreground => "black")->pack();
  25. $mw->Label(-background => "black", -foreground => "red", -font => "Verdana 9", -text => "                    Enter Site ")->pack(-anchor => 'nw');
  26. $mw->Entry(-background => "black", -foreground => "red", -selectbackground => "black", -insertbackground => "red", -width => 40, -relief => "ridge", -textvariable => \$site)->pack(-anchor => 'nw');
  27. $mw->Label(-background => "black", -foreground => "red", -font => "Verdana 9", -text => "          Enter Site Source Code ")->pack(-anchor => 'nw');
  28. $mw->Entry(-background => "black", -foreground => "red", -selectbackground => "black", -insertbackground => "red", -width => 40, -relief => "ridge", -textvariable => \$code)->pack(-anchor => 'nw');
  29. $mw->Label(-background => "black", -foreground => "black")->pack();
  30. $mw->Label(-background => "black", -foreground => "black")->pack();
  31. $mw->Button(-activebackground => "red",  -activeforeground => "black",  -background => "black", -foreground => "red", -font => "Verdana 7", -relief => "groove", -text => "Start", -width => 5, -command => \&scan)->place(-x => 40, -y => 190);
  32. $mw->Button(-activebackground => "red",  -activeforeground => "black",  -background => "black", -foreground => "red", -font => "Verdana 7", -relief => "groove", -text => "Stop", -width => 5, -command => \&sto )->place(-x => 95, -y => 190);
  33. $mw->Button(-activebackground => "red",  -activeforeground => "black",  -background => "black", -foreground => "red", -font => "Verdana 7", -relief => "groove", -text => "Clear",  -width => 5, -command => \&cle)->place(-x => 150, -y => 190);
  34. $mw->Button(-activebackground => "red",  -activeforeground => "black",  -background => "black", -foreground => "red", -font => "Verdana 7", -relief => "groove", -text => "Help/About", -width => 9, -command => \&heaab)->place(-x => 50, -y => 240);
  35. $mw->Button(-activebackground => "red",  -activeforeground => "black",  -background => "black", -foreground => "red", -font => "Verdana 7", -relief => "groove", -text => "Exit",  -width => 5, -command => sub { exit })->place(-x => 133, -y => 240);
  36.  
  37. MainLoop;
  38.  
  39. sub heaab {
  40. $about = $mw->Toplevel(-background => "black", -cursor=>"crosshair");
  41. $about->geometry("500x422+425+250");
  42. $about->title("|_^_| Admin Control Panel Finder v1.2 |_^_|");
  43. $about->resizable(0,0);
  44. $about->Label(-background => "black", -foreground=>"red")->pack();
  45. $about->Label(-background => "black", -foreground=>"red", -font=> "Cambria 10", -text => "|_^_| Admin Control Panel Finder v1.2 Help |_^_|\n")->pack();
  46. $about->Label(-background => "black", -foreground=>"red", -font=> "Cambria 10",  -text => " -Enter Site-\nEnter Target address,\n exemplarily www.site.com or www.site.com/path")->pack();
  47. $about->Label(-background => "black", -foreground=>"red", -font=> "Cambria 10",  -text => " -Enter Site Source Code-\nEnter target site source code.\n Site source code php is the write php or\n Site source code asp is the write asp")->pack();
  48. $about->Label(-background => "black", -foreground=>"red", -font=> "Cambria 10",  -text => "\nEx:\n Enter Site : www.target.com\n Enter Site Source Code : php")->pack();
  49. $about->Label(-background => "black", -foreground=>"red")->pack();
  50. $about->Label(-background => "black", -foreground=>"red", -font=> "Cambria 10", -text => "|_^_| Admin Control Panel Finder v1.2 About |_^_|\n")->pack();
  51. $about->Label(-background => "black",-foreground => "red",-font => "wingdings 22", -text => "7")->pack();
  52. $about->Label(-background => "black", -foreground=>"red", -font=> "Cambria 11",  -text => "Coded By KuNdUz")->pack();
  53. $about->Label(-background => "black", -foreground=>"red", -font=> "Cambria 11",  -text => "Enjoy! :)")->pack();
  54. $about->Label(-background => "black", -foreground => "red", -font => "Cambria 8",  -text => "10/12/2008")->pack(-anchor => "se");
  55. $about->Button(-activebackground => "red",  -activeforeground => "black",  -background => "black", -foreground => "red", -relief => "groove", -font=> "Verdana 7", -text => "Exit", -command => [$about => 'destroy'])->pack(-fill => "both");
  56. }
  57.  
  58. sub cle {
  59. $test1->delete("0.0", "end");
  60. $test2->delete("0.0", "end");
  61. }
  62.  
  63. sub sto {
  64. $sisite = "",
  65. $ways = "",
  66. @path1 = ""
  67. }
  68.  
  69. sub scan {
  70.  
  71. $test1->delete("0.0", "end");
  72. $test2->delete("0.0", "end");
  73.  
  74. $sisite = $site;
  75.  
  76. if ( $sisite !~ /^http:/ ) {
  77. $sisite = 'http://' . $sisite;
  78. }
  79. if ( $sisite !~ /\/$/ ) {
  80. $sisite = $sisite . '/';
  81. }
  82.  
  83. if($code eq "php"){
  84. @path1=('admin/','administrator/','moderator/','webadmin/','adminarea/','bb-admin/','adminLogin/','admin_area/','panel-administracion/','instadmin/',
  85. 'memberadmin/','administratorlogin/','adm/','admin/account.php','admin/index.php','admin/login.php','admin/admin.php','admin/account.php',
  86. 'admin_area/admin.php','admin_area/login.php','siteadmin/login.php','siteadmin/index.php','siteadmin/login.html','admin/account.html','admin/index.html','admin/login.html','admin/admin.html',
  87. 'admin_area/index.php','bb-admin/index.php','bb-admin/login.php','bb-admin/admin.php','admin/home.php','admin_area/login.html','admin_area/index.html',
  88. 'admin/controlpanel.php','admin.php','admincp/index.asp','admincp/login.asp','admincp/index.html','admin/account.html','adminpanel.html','webadmin.html',
  89. 'webadmin/index.html','webadmin/admin.html','webadmin/login.html','admin/admin_login.html','admin_login.html','panel-administracion/login.html',
  90. 'admin/cp.php','cp.php','administrator/index.php','administrator/login.php','nsw/admin/login.php','webadmin/login.php','admin/admin_login.php','admin_login.php',
  91. 'administrator/account.php','administrator.php','admin_area/admin.html','pages/admin/admin-login.php','admin/admin-login.php','admin-login.php',
  92. 'bb-admin/index.html','bb-admin/login.html','bb-admin/admin.html','admin/home.html','login.php','modelsearch/login.php','moderator.php','moderator/login.php',
  93. 'moderator/admin.php','account.php','pages/admin/admin-login.html','admin/admin-login.html','admin-login.html','controlpanel.php','admincontrol.php',
  94. 'admin/adminLogin.html','adminLogin.html','admin/adminLogin.html','home.html','rcjakar/admin/login.php','adminarea/index.html','adminarea/admin.html',
  95. 'webadmin.php','webadmin/index.php','webadmin/admin.php','admin/controlpanel.html','admin.html','admin/cp.html','cp.html','adminpanel.php','moderator.html',
  96. 'administrator/index.html','administrator/login.html','user.html','administrator/account.html','administrator.html','login.html','modelsearch/login.html',
  97. 'moderator/login.html','adminarea/login.html','panel-administracion/index.html','panel-administracion/admin.html','modelsearch/index.html','modelsearch/admin.html',
  98. 'admincontrol/login.html','adm/index.html','adm.html','moderator/admin.html','user.php','account.html','controlpanel.html','admincontrol.html',
  99. 'panel-administracion/login.php','wp-login.php','adminLogin.php','admin/adminLogin.php','home.php','admin.php','adminarea/index.php',
  100. 'adminarea/admin.php','adminarea/login.php','panel-administracion/index.php','panel-administracion/admin.php','modelsearch/index.php',
  101. 'modelsearch/admin.php','admincontrol/login.php','adm/admloginuser.php','admloginuser.php','admin2.php','admin2/login.php','admin2/index.php',
  102. 'adm/index.php','adm.php','affiliate.php','adm_auth.php','memberadmin.php','administratorlogin.php'
  103. );
  104.  
  105. foreach $ways(@path1){
  106. $statusbar = "Scaning path: " . $ways;
  107. $statusbottom->update();
  108. $statusbar = "|_^_| Admin Control Panel Finder v1.2 |_^_|";
  109. $final=$sisite.$ways;
  110. $req=HTTP::Request->new(GET=>$final);
  111. $ua=LWP::UserAgent->new();
  112. $ua->timeout(30);
  113. $response=$ua->request($req);
  114.  
  115. if($response->content =~ /Username/ ||
  116. $response->content =~ /Password/ ||
  117. $response->content =~ /username/ ||
  118. $response->content =~ /password/ ||
  119. $response->content =~ /USERNAME/ ||
  120. $response->content =~ /PASSWORD/ ||
  121. $response->content =~ /Senha/ ||
  122. $response->content =~ /senha/ ||
  123. $response->content =~ /Personal/ ||
  124. $response->content =~ /Usuario/ ||
  125. $response->content =~ /Clave/ ||
  126. $response->content =~ /Usager/ ||
  127. $response->content =~ /usager/ ||
  128. $response->content =~ /Sing/ ||
  129. $response->content =~ /passe/ ||
  130. $response->content =~ /P\/W/ ||
  131. $response->content =~ /Admin Password/
  132. ){
  133. $test2->insert('end', $final."\n");
  134. }else{
  135. $test1->insert('end', $final."\n");
  136. }
  137. }
  138. }
  139.  
  140. if($code eq "asp"){
  141. @path1=('admin/','administrator/','moderator/','webadmin/','adminarea/','bb-admin/','adminLogin/','admin_area/','panel-administracion/','instadmin/',
  142. 'memberadmin/','administratorlogin/','adm/','account.asp','admin/account.asp','admin/index.asp','admin/login.asp','admin/admin.asp',
  143. 'admin_area/admin.asp','admin_area/login.asp','admin/account.html','admin/index.html','admin/login.html','admin/admin.html',
  144. 'admin_area/admin.html','admin_area/login.html','admin_area/index.html','admin_area/index.asp','bb-admin/index.asp','bb-admin/login.asp','bb-admin/admin.asp',
  145. 'bb-admin/index.html','bb-admin/login.html','bb-admin/admin.html','admin/home.html','admin/controlpanel.html','admin.html','admin/cp.html','cp.html',
  146. 'administrator/index.html','administrator/login.html','administrator/account.html','administrator.html','login.html','modelsearch/login.html','moderator.html',
  147. 'moderator/login.html','moderator/admin.html','account.html','controlpanel.html','admincontrol.html','admin_login.html','panel-administracion/login.html',
  148. 'admin/home.asp','admin/controlpanel.asp','admin.asp','pages/admin/admin-login.asp','admin/admin-login.asp','admin-login.asp','admin/cp.asp','cp.asp',
  149. 'administrator/account.asp','administrator.asp','login.asp','modelsearch/login.asp','moderator.asp','moderator/login.asp','administrator/login.asp',
  150. 'moderator/admin.asp','controlpanel.asp','admin/account.html','adminpanel.html','webadmin.html','pages/admin/admin-login.html','admin/admin-login.html',
  151. 'webadmin/index.html','webadmin/admin.html','webadmin/login.html','user.asp','user.html','admincp/index.asp','admincp/login.asp','admincp/index.html',
  152. 'admin/adminLogin.html','adminLogin.html','admin/adminLogin.html','home.html','adminarea/index.html','adminarea/admin.html','adminarea/login.html',
  153. 'panel-administracion/index.html','panel-administracion/admin.html','modelsearch/index.html','modelsearch/admin.html','admin/admin_login.html',
  154. 'admincontrol/login.html','adm/index.html','adm.html','admincontrol.asp','admin/account.asp','adminpanel.asp','webadmin.asp','webadmin/index.asp',
  155. 'webadmin/admin.asp','webadmin/login.asp','admin/admin_login.asp','admin_login.asp','panel-administracion/login.asp','adminLogin.asp',
  156. 'admin/adminLogin.asp','home.asp','admin.asp','adminarea/index.asp','adminarea/admin.asp','adminarea/login.asp','admin-login.html',
  157. 'panel-administracion/index.asp','panel-administracion/admin.asp','modelsearch/index.asp','modelsearch/admin.asp','administrator/index.asp',
  158. 'admincontrol/login.asp','adm/admloginuser.asp','admloginuser.asp','admin2.asp','admin2/login.asp','admin2/index.asp','adm/index.asp',
  159. 'adm.asp','affiliate.asp','adm_auth.asp','memberadmin.asp','administratorlogin.asp','siteadmin/login.asp','siteadmin/index.asp','siteadmin/login.html'
  160. );
  161.  
  162. foreach $ways(@path1){
  163. $statusbar = "Scaning path: " . $ways;
  164. $statusbottom->update();
  165. $statusbar = "|_^_| Admin Control Panel Finder v1.2 |_^_|";
  166. $final=$sisite.$ways;
  167. $req=HTTP::Request->new(GET=>$final);
  168. $ua=LWP::UserAgent->new();
  169. $ua->timeout(30);
  170. $response=$ua->request($req);
  171.  
  172. if($response->content =~ /Username/ ||
  173. $response->content =~ /Password/ ||
  174. $response->content =~ /username/ ||
  175. $response->content =~ /password/ ||
  176. $response->content =~ /USERNAME/ ||
  177. $response->content =~ /PASSWORD/ ||
  178. $response->content =~ /Senha/ ||
  179. $response->content =~ /senha/ ||
  180. $response->content =~ /Personal/ ||
  181. $response->content =~ /Usuario/ ||
  182. $response->content =~ /Clave/ ||
  183. $response->content =~ /Usager/ ||
  184. $response->content =~ /usager/ ||
  185. $response->content =~ /Sing/ ||
  186. $response->content =~ /passe/ ||
  187. $response->content =~ /P\/W/ ||
  188. $response->content =~ /Admin Password/
  189. ){
  190. $test2->insert('end', $final."\n");
  191. }else{
  192. $test1->insert('end', $final."\n");
  193. }
  194. }
  195. }
  196. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!