[转载]Perl打造的connectTCP端口扫描器
文章作者：demonalex_at_dark2s.org[code]#!usr/bin/perl -w
#扫描器 power by demonalex_at_dark2s.org
use Socket;
#主机地址部分
$host=$ARGV[0];
$packhost=inet_aton($host);
#主机地址部分
$port1=$ARGV[1];
$port2=$ARGV[2] || $port1;
@port=($port1..$port2);
$port3=$port2-$port1;
if($port3<0){
print"Sorry,port2 must be bigger than port1...\n";
exit 1;}else{
for($num=0;$num<=$port3;$num++){
$addr[$num]=sockaddr_in($port[$num],$packhost);
socket($sock[$num],AF_INET,SOCK_STREAM,6);
if(connect($sock[$num],$addr[$num])){
print "The TCP$port[$num] is opened!Great!!!\n";
close $sock[$num];
next;
}else{
warn "TCP$port[$num] may be closed!\n";
close $sock[$num];
next;
}
}
exit 1;}[/code]
#格式:perl connect.pl 192.168.x.x 139 445
#扫描192.168.x.x的TCP139到TCP445的端口情况
#欢迎测试，如有问题请EMAIL:demonalex_at_dark2s.org
页:
[1]