摘要：
该脚本我发现有点问题，就是当链接成功以后，不会自动断开，这个问题我一直都在想办法。。这段时间可以好好看看。。当然，如果有哥们懂的，欢迎留言交流下。。。#! /usr/bin/perluse threads;use IO::Socket::INET;use strict;my @openport;sub scan{ my ($host,@ports,$proto) = @_; foreach my $port (@ports){ my $socket = new IO::Socket::INET( PeerHost => $host, PeerPort => $port, P... 阅读全文
