注册
登录
| 关键词： print ARGV ha 脚本 PeerPort 临时 defined perluse tCLOSED Socket |
#临时的脚本，不完善#!/usr/bin/perluse IO::Socket::INET;if (!defined($ARGV[2])) {print 'usage: <目标> <开始端口> <结束端口>';} for ($ha0k=$ARGV[1];$ha0k<$ARGV[2]+1;$ha0k++){if (fork()){if ($sock = new IO::Socket::INET(PeerAddr=>$ARGV[0],PeerPort=>$ha0k,Proto=>'tcp')){ print"$ha0k\tOPEN\n";}else{print"$ha0k\tCLOSED\n";}close($sock);exit;}} |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
