|
发表于 2004-9-27 20:53:48
|
显示全部楼层
while(@all=<FILE> ){ #循环读取文件中的端口
print"正在扫描 $host……\n";
foreach  $port (@all){
 $sock=IO::Socket::INET->new(PeerAddr=> $host,PeerPort=> $port,Timeout=>60); #新建IO::Socket::INET对象  $sock
if( $sock){ #判断端口是否打开
print(" $host主机-> $port端口打开着!\n"); $sock->close; #关闭SOCKET对象
}else{
print " $port关闭着!\n";
}
}print("\n");
}print("端口扫描结束,谢谢使用!");
- while(<FILE>)
- {
- print"正在扫描 $host……\n";
- $sock=IO::Socket::INET->new(PeerAddr=> $host,PeerPort=> $_,Timeout=>60);
- ## skip ...
复制代码 |
|