Web Management Port Scanner - a portscanner written in perl to find open web management ports.
8cad85f4aa0349fabc4af990c1d5409313e9fa2e773e2125d265b5db72cf634c
print "\t\t-----===Web Management Port Scanner===-----\n";
print "\t\t Zeroknock [at] Metaeye.org.org\n\n";
use IO::Socket;
$Remote_Target=$ARGV[0];
$timeout = 5;
if ( $ARGV[0] eq $ARGV[1] )
{
print qq~
[*] ####################################
[*] Usage WebPMan.pl <IP Address>
[U] Example:- WebPMan.pl 192.168.170.1
[*] ###################################
~;
exit;
}
use Net::Ping;
print "[+] Pinging IP Address --> $Remote_Target\n";
$p = Net::Ping->new()
or die "[-] Ping Not Successfull$!\n";
print "[+] The Target Is Not Up.\n\n" unless $p->ping($Remote_Target);
print "[+] Target Is Up!\n\n\n";
$p->close;
print "[+] Scanning The Target !\n\n";
@Web_Ports = ( 21,22,23,80 , 81 , 88,443 ,
900,2301,2381,4242,7001,7002,
7070,8000,8001,8005,8080,8100,
8810,8820,8830,8888,9090,10000);
@WebExp = ("FTP File Transfer Port","Secure Shell Management","Telnet For Remote Management",
"WorldWideWeb[WWW]","Alternate WWW","Alternate WWW Kerberos","HTTP Over SSL","IBM WebSphere","CIM-Compaq Insight Manager",
"Compaq Insight Manager Over SSL","Microsoft Application Center Management","BEA WebLogic Administration",
"BEA WebLogic Administration Over SSL","Sun Java Web Server Over SSL","Alternate Web Server For Cache",
"Alternate WebServer Management","Apache TomCat","Squid Cache Control","Allaire JRUN","ATG DynamoA","ATGDynamoB",
"ATG DynamoC","Alternate Or Proxy Web Server","Sun Java Server Web Admin","Netscape Administrator Admin Panel");
for( $Temp=0 ; $Temp <25 ;$Temp ++) {
$Ret=0;
$Web_Ports = @Web_Ports[$Temp];
$WebExp= @WebExp[$Temp];
print "[0x$Temp] WEB Management Status -x-x-> $WebExp \|\| Port-->$Web_Ports\n";
$socket=IO::Socket::INET->new( PeerPort => $Web_Ports,
PeerAddr => $Remote_Target,
Proto => "tcp",
Timeout => $timeout ) || $Ret++ ;
close $socket;
if ($Ret == 0) {
print "\t--------------------------------------------\n";
print "\t[XXX] Web Management Status --> $WebExp \n";
print "\t[XXX] Port Opened --> $Web_Ports \n";
print "\t--------------------------------------------\n";
$Ret==0;
}
}
print "[*] SUCCESS\n";