#!usr/bin/perl#PanelControl Tkuse Tk;use Tk::PNG;use Tk::ROtext;use LWP::UserAgent;@panels=('admin/admin.asp','admin/login.asp','admin/index.asp','admin/admin.aspx','admin/login.aspx','admin/index.aspx','admin/webmaster.asp','admin/webmaster.aspx','asp/admin/index.asp','asp/admin/index.aspx','asp/admin/admin.asp','asp/admin/admin.aspx','asp/admin/webmaster.asp','asp/admin/webmaster.aspx','admin/','login.asp','login.aspx','admin.asp','admin.aspx','webmaster.aspx','webmaster.asp','login/index.asp','login/index.aspx','login/login.asp','login/login.aspx','login/admin.asp','login/admin.aspx','administracion/index.asp','administracion/index.aspx','administracion/login.asp','administracion/login.aspx','administracion/webmaster.asp','administracion/webmaster.aspx','administracion/admin.asp','administracion/admin.aspx','php/admin/','admin/admin.php','admin/index.php','admin/login.php','admin/system.php','admin/ingresar.php','admin/administrador.php','admin/default.php','administracion/','administracion/index.php','administracion/login.php','administracion/ingresar.php','administracion/admin.php','administration/','administration/index.php','administration/login.php','administrator/index.php','administrator/login.php','administrator/system.php','system/','system/login.php','admin.php','login.php','administrador.php','administration.php','administrator.php','admin1.html','admin1.php','admin2.php','admin2.html','yonetim.php','yonetim.html','yonetici.php','yonetici.html','adm/','admin/account.php','admin/account.html','admin/index.html','admin/login.html','admin/home.php','admin/controlpanel.html','admin/controlpanel.php','admin.html','admin/cp.php','admin/cp.html','cp.php','cp.html','administrator/','administrator/index.html','administrator/login.html','administrator/account.html','administrator/account.php','administrator.html','login.html','modelsearch/login.php','moderator.php','moderator.html','moderator/login.php','moderator/login.html','moderator/admin.php','moderator/admin.html','moderator/','account.php','account.html','controlpanel/','controlpanel.php','controlpanel.html','admincontrol.php','admincontrol.html','adminpanel.php','adminpanel.html','admin1.asp','admin2.asp','yonetim.asp','yonetici.asp','admin/account.asp','admin/home.asp','admin/controlpanel.asp','admin/cp.asp','cp.asp','administrator/index.asp','administrator/login.asp','administrator/account.asp','administrator.asp','modelsearch/login.asp','moderator.asp','moderator/login.asp','moderator/admin.asp','account.asp','controlpanel.asp','admincontrol.asp','adminpanel.asp','fileadmin/','fileadmin.php','fileadmin.asp','fileadmin.html','administration.html','sysadmin.php','sysadmin.html','phpmyadmin/','myadmin/','sysadmin.asp','sysadmin/','ur-admin.asp','ur-admin.php','ur-admin.html','ur-admin/','Server.php','Server.html','Server.asp','Server/','wp-admin/','administr8.php','administr8.html','administr8/','administr8.asp','webadmin/','webadmin.php','webadmin.asp','webadmin.html','administratie/','admins/','admins.php','admins.asp','admins.html','administrivia/','Database_Administration/','WebAdmin/','useradmin/','sysadmins/','admin1/','system-administration/','administrators/','pgadmin/','directadmin/','staradmin/','ServerAdministrator/','SysAdmin/','administer/','LiveUser_Admin/','sys-admin/','typo3/','panel/','cpanel/','cPanel/','cpanel_file/','platz_login/','rcLogin/','blogindex/','formslogin/','autologin/','support_login/','meta_login/','manuallogin/','simpleLogin/','loginflat/','utility_login/','showlogin/','memlogin/','members/','login-redirect/','sub-login/','wp-login/','login1/','dir-login/','login_db/','xlogin/','smblogin/','customer_login/','UserLogin/','login-us/','acct_login/','admin_area/','bigadmin/','project-admins/','phppgadmin/','pureadmin/','sql-admin/','radmind/','openvpnadmin/','wizmysqladmin/','vadmind/','ezsqliteadmin/','hpwebjetadmin/','newsadmin/','adminpro/','Lotus_Domino_Admin/','bbadmin/','vmailadmin/','Indy_admin/','ccp14admin/','irc-macadmin/','banneradmin/','sshadmin/','phpldapadmin/','macadmin/','administratoraccounts/','admin4_account/','admin4_colon/','radmind-1/','Super-Admin/','AdminTools/','cmsadmin/','SysAdmin2/','globes_admin/','cadmins/','phpSQLiteAdmin/','navSiteAdmin/','server_admin_small/','logo_sysadmin/','server/','database_administration/','power_user/','system_administration/','ss_vms_admin_sm/');if ($^O eq 'MSWin32') {use Win32::Console; Win32::Console::Free();}installer();my $nave = LWP::UserAgent->new;$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");$nave->timeout(5);my $finderad = MainWindow->new(-background=>"black",-foreground=>"red");$finderad->title("PanelControl (C) Doddy Hackman 2011");$finderad->geometry("730x550+20+20");$finderad->resizable(0,0);my $tomaboludo = $finderad->Photo(-file => "mod.png");$finderad->Label(-background=>"black",-image =>$tomaboludo,-borderwidth=>0)->place(-y=>20,-x=>10); $finderad->Label(-text=>"Page : ",-font=>"Impact1",-background=>"black",-foreground=>"red")->place(-y=>318,-x=>115);my $target = $finderad->Entry(-background=>"black",-foreground=>"red",-width=>60)->place(-y=>320,-x=>170);$finderad->Button(-background=>"black",-foreground=>"red",-text=>"Scan",-activebackground=>"red",-width=>8,-command=>\&scan)->place(-y=>320,-x=>540);$finderad->Label(-text=>"Panels Found : ",-background=>"black",-foreground=>"red",-font=>"Impact1")->place(-x=>58,-y=>450);my $founds = $finderad->Listbox(-height=>5,-width=>61,-background=>"black",-foreground=>"red",-borderwidth=>0)->place(-y=>425,-x=>170);$finderad->Button(-background=>"black",-foreground=>"red",-activebackground=>"red",-text=>"Load",-width=>8,-command=>\&loader)->place(-y=>450,-x=>544);MainLoop;sub scan {$founds->delete("0.0","end");my $target = $target->get;msg("PanelControl","Scan Started");for $path(@panels) {$finderad->update;$code = toma($target."/".$path);if ($code->is_success) {$finderad->update;$founds->insert("end",$target."/".$path);savefile("panels-founds.txt",$target."/".$path);}}msg("PanelControl","Scan Finished");}sub loader {$d = $founds->curselection();for my $id (@$d) {my $linkar = $founds->get($id);system("start firefox $linkar");}}sub toma {return $nave->get($_[0]);}sub msg { my $color_fondo = "black"; #whitemy $color_letra = "red"; #blackmy ($titulo,$contenido) = @_;my $mensaje = MainWindow->new(-background=>$color_fondo,-foreground=>$color_letra);$mensaje->title($titulo);$mensaje->geometry("200x50+20+20");$mensaje->resizable(0,0);$mensaje->Label(-text=>$contenido,-font=>"Impact1",-background=>$color_fondo,-foreground=>$color_letra)->place(-y=>15,-x=>20);}sub installer {unless (-d "/logs") {mkdir("logs/",777);}}sub savefile {open (SAVE,">>logs/".$_[0]);print SAVE $_[1]."\n";close SAVE; }# The End ?
http://doddyhackman.webcindario.com/descargas/findadmin.rar