Perl AnyEvent::Socket

最新推荐文章于 2019-09-07 20:57:01 发布

weixin_30565327

最新推荐文章于 2019-09-07 20:57:01 发布

阅读量107

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xiaoCon/p/3360678.html

本文介绍了一个使用Perl进行网络端口扫描的尝试性脚本。该脚本利用了Coro、AnyEvent::Socket和AnyEvent::Ping::TCP等模块来并发地探测目标IP地址范围内的所有端口，并记录开放端口的信息。尽管作者尚未找到有效的判断依据，但该脚本为理解Perl在网络编程中的应用提供了一定参考。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

还是在不断的改写做尝试。

做了些小记录把。方便以后翻。。

#!/usr/bin/perl

use Coro;
use AnyEvent::Socket;
use AnyEvent::Ping::TCP;
my @check_list;
my @target=<>;
foreach my $ip (@target){
   foreach my $port (1..65535){
      push @check_list,async{
            $a=tcp_connect $ip => $port, sub {
                  my $fh = shift
                 or die "unable to connect: $!";
            };
            if(!$a){
               print "$port open\n";
            }
         # $result=tcp_ping_ack $ip,$port;
   #     nex($ip,$port);
      }
   };
};