Perl 端口扫描

该脚本我发现有点问题，就是当连接成功之后，不会自动断开，这个问题我一直都在想办法。。html 这段时间能够好好看看。。固然，若是有哥们懂的，欢迎留言交流下。。。socket #! /usr/bin/perl use threads; use IO::Socket::INET; use strict; my @openport; sub scan{ my ($host,@ports,$pro

>>阅读原文<<