Perl 端口掃描

該腳本我發現有點問題，就是當連接成功之後，不會自動斷開，這個問題我一直都在想辦法。。html 這段時間能夠好好看看。。固然，若是有哥們懂的，歡迎留言交流下。。。socket #! /usr/bin/perl use threads; use IO::Socket::INET; use strict; my @openport; sub scan{ my ($host,@ports,$pro

>>阅读原文<<