- 主题
- 0
- 积分
- 0
- 贝壳
- 0 个
- 注册时间
- 2007-1-18
- 最后登录
- 2007-1-18
|
求救
...我以为出了什么大事呢。
我用perl做了一个
for ($port = $sport; $port < $eport+1 ; $port++)
{
my $socket = IO::Socket::INET->new ( Proto => "tcp",
PeerAddr => $host,
PeerPort => $port,
Timeout => 3
) or print " [×]$host:$port \n" and next;
print " [√]$host:$port\n";
$socket->close ;
} |
|