Perl 继续研究合适的方案

最新推荐文章于 2020-10-29 03:08:15 发布

转载最新推荐文章于 2020-10-29 03:08:15 发布 · 49 阅读

0 ·

CC 4.0 BY-SA版权

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

本文介绍了一种使用Perl实现的SYN扫描技术方案。通过创建线程队列并发执行端口扫描任务，针对每个目标IP地址及其端口号进行SYN探测，并记录开放端口。该方案采用Net::Ping模块来发送SYN包并检查ACK响应。

一直研究SYN可行的扫描方案，想了一下，自己模拟写了一个，

但是感觉特别不理想。还得修改，mark一下。

    #!/usr/bin/perl
    use threads;
    use Thread::Queue;
    use Thread::Semaphore;
    use Net::Ping;

    # create queue
    my $q=new Thread::Queue;
    # read for check list
    my @target=<>;

    foreach my $ip (@target){
       foreach my $port (1..65535){
          $q->enqueue(nex($ip,$port));
       }  
    }  

    print $q->pending;
    #my $se = Thread::Semaphore->new(100);

    #my @check_list;
    #foreach my $ip (@target){
    #   if(${$se} <= 0){
    #     for my $t (threads->list(threads::joinable)){
    #           $t->join();
    #           $se->up();
    #     }
    #     redo;
    #  }
    #  $se->down();
    #  threads->create(\&nex,$ip)
    #}
    #for my $t(threads->list()){
        #  $t->detach();
    #       $t->join();
    #}

    sub nex{
       ($ip,$port)=@_;
       chomp($ip);
       $scan=Net::Ping->new('syn');
       $scan->port_number($port);
       $scan->ping($ip);
       if($scan->ack){
          print "ip:$ip port:$port open\n";
       }  
       $scan->close();
    }