$_staX
22.02.2009, 12:49
Adminpanelfinder 1.0
#!/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','admin panel.php','login.html','admin.html','administrato r.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";
}
}Kleinen Fehler verbessert:
#!/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','admin panel.php','login.html','admin.html','administrato r.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";
}
}
#!/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','admin panel.php','login.html','admin.html','administrato r.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";
}
}Kleinen Fehler verbessert:
#!/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','admin panel.php','login.html','admin.html','administrato r.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";
}
}