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";