Adminpanelfinder 1.0
Kleinen Fehler verbessert:Code:#!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; system ("color 0A"); if (@ARGV != 1) { print<<banner; AdminPanelFinder by \$_staX usage: adminpanelfinder.pl example.com banner exit; } system ("cls"); system ("title Adminpanelfinder"); print "\t\t\tAdminPanelFinder by \$_staX\n\n\n"; $page = @ARGV[0]; if ($page !~ /^http:/){ $page = "http:\/\/".$page; } if ( $page !~ /\/$/ ) { $page = $page . "\/"; } print "\nStarten des scannens von ".$page."\n"; @sites=('admin/','admin/index.php','admin/login.php','admin/admin.php','admin/adminpanel.php','admin/administrator.php', 'admin/index.html','admin/login.html','admin/admin.html','admin/adminpanel.html','admin/administrator.html', 'administrator/','administrator/index.php','administrator/login.php','administrator/adminpanel.php','administrator/admin.php','administrator/administrator.php', 'administrator/','administrator/index.html','administrator/login.html','administrator/adminpanel.html','administrator/admin.html','administrator/administrator.html', 'login.php','admin.php','administrator.php','adminpanel.php','login.html','admin.html','administrator.html','adminpanel.html'); foreach $panel(@sites){ $adminseite = $page.$panel; $request = new HTTP::Request(GET=>$adminseite); $useragent= new LWP::UserAgent; $response=$useragent->request($request); if($response->content =~ /admin/ || $response->content =~ /passwort/ || $response->content =~ /administrator/ || $response->content =~ /username/ || $response->content =~ /benutzername/ || $response->content =~ /login/ || $response->content =~ /Passwort/ || $response->content =~ /password/ || $response->content =~ /Password/ || $response->content =~ /adminlogin/ || $response->content =~ /adminlogin/ || $response->content =~ /adminarea/){ print "\n\n[+] Adminlogin found --> $adminseite\n"; }else{ print "\n[-] Not found --> $adminseite"; } }
Code:#!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; system ("color 0A"); if (@ARGV != 1) { print<<banner; AdminPanelFinder by \$_staX usage: adminpanelfinder.pl example.com banner exit; } system ("cls"); system ("title Adminpanelfinder"); print "\t\t\tAdminPanelFinder by \$_staX\n\n\n"; $page = @ARGV[0]; if ($page !~ /^http:/){ $page = "http:\/\/".$page; } if ( $page !~ /\/$/ ) { $page = $page . "\/"; } print "\nStarten des scannens von ".$page."\n"; @sites=('admin/','admin/index.php','admin/login.php','admin/admin.php','admin/adminpanel.php','admin/administrator.php', 'admin/index.html','admin/login.html','admin/admin.html','admin/adminpanel.html','admin/administrator.html', 'administrator/','administrator/index.php','administrator/login.php','administrator/adminpanel.php','administrator/admin.php','administrator/administrator.php', 'administrator/','administrator/index.html','administrator/login.html','administrator/adminpanel.html','administrator/admin.html','administrator/administrator.html', 'login.php','admin.php','administrator.php','adminpanel.php','login.html','admin.html','administrator.html','adminpanel.html'); foreach $panel(@sites){ $adminseite = $page.$panel; $request = new HTTP::Request(GET=>$adminseite); $useragent= new LWP::UserAgent; $response=$useragent->request($request); if($response->content =~ /password/i || $response->content =~ /username/i || $response->content =~ /benutzername/i || $response->content =~ /passwort/i || $response->content =~ /adminlogin/i || $response->content =~ /adminarea/i){ print "\n\n[+] Adminlogin found --> $adminseite\n"; }else{ print "\n[-] Not found --> $adminseite"; } }

Zitieren







