Perl 端口扫描的脚本（SYN）

墨迹哥

这个脚本运用了线程、信号量、线程队列、进度条等。
主要是工作项目需要，写的。有的地方是论坛的童鞋指导了下。
目前好像还有BUG，但是目前没时间改了。有兴趣的自己改改，发出来，共同学习。{:3_188:}
PS：@laputa73 这个就是之前请教你部分地方的那个扫描脚本。发出来了。。

1. #!/usr/bin/perl
   
2. use threads;
   
3. use DBI;
   
4. use Thread::Queue;
   
5. use Thread::Semaphore;
   
6. use Net::Ping;
   
7. use Term::ProgressBar;
   
8. 
   
9. 
   
10. 
    
11. # create queue
    
12. my $q=new Thread::Queue;
    
13. # read for check list
    
14. my @target=<>;
    
15. my $se_max = Thread::Semaphore->new( 100 );
    
16. my $se_ping= Thread::Semaphore->new( 1000 );
    
17. 
    
18. foreach (@target){
    
19.   chomp($_);
    
20.   if(${$se_ping} <=0){
    
21.      for my $t(threads->list(threads::joinable)){
    
22.                         $t->join();
    
23.                         $se_ping->up();
    
24.           }
    
25.      redo;
    
26.   }
    
27.   $se_ping->down();
    
28.   threads->create(\&alive,$_);
    
29. }
    
30. for my $t(threads->list()){
    
31.    $t->join();
    
32. }
    
33. 
    
34. sub alive{
    
35.   my $ip =shift;
    
36.   $ping=Net::Ping->new();
    
37.   if($ping->ping($ip)){
    
38.       foreach my $port(1..65535){
    
39.          $q->enqueue("$ip|$port");
    
40.       }
    
41.   }
    
42. }
    
43. 
    
44. $all_sum=$q->pending();
    
45. print $all_sum;
    
46. my $progress = Term::ProgressBar->new({name  => '扫描进度',count => $all_sum});
    
47. $progress->max_update_rate(1);
    
48. 
    
49. while(1){
    
50.   foreach(threads->list(threads::joinable))
    
51.   {
    
52.                 $_->join();
    
53.   }
    
54. 
    
55.   my $item = $q->pending();
    
56. 
    
57.   if( $item == 0 )
    
58.   {
    
59.                 my $active = threads->list(threads::running);
    
60.       if($active == 0)
    
61.                 {
    
62.            print "全部跑完\n";
    
63.                           last;
    
64.                 }
    
65.                 else
    
66.                 {
    
67.                           next;
    
68.                 }
    
69.   }
    
70.   $se_max->down;
    
71.   threads->create(\&nex,$q->dequeue());
    
72.   $progress->update()
    
73. }
    
74. foreach(threads->list()){
    
75.    $_->join();
    
76. }
    
77. print "\n";
    
78. 
    
79. sub nex{
    
80.    local($tmp)=shift;
    
81.    @list=split(/\|/,$tmp);
    
82.    my $scan = Net::Ping->new("syn");
    
83.         $scan->port_number($list[1]);
    
84.         $scan->ping($list[0]);
    
85.         if($scan->ack){
    
86.                 db_insert($list[0],$list[1]);
    
87.         }
    
88.         $scan->close();
    
89.    $se_max->up;
    
90. }
    
91. 
    
92. sub db_insert{
    
93.   my $host=shift;
    
94.   my $port=shift;
    
95.   my $in=DBI->connect("DBI:mysql:database=port_scan;host=localhost","root","") or die "NO :$!";
    
96.   my $insert=$in->do("insert into result(ip,port)values('$host',$port)");
    
97.   $in->disconnect();
    
98. }
    

复制代码

墨迹哥

{:3_185:} 弱弱的说句能来个精华不。。。

mcshell

不明觉厉啊{:3_186:}{:3_186:}

laputa73

鼓励一下,用到的东西不少.

pitonas

精华

kggg

只针对tcp?

墨迹哥

回复 4# laputa73


    谢谢哈。。感谢一路指点。。最近去出差，回头忙完细聊～

墨迹哥

回复 3# mcshell


    {:3_186:}  我是神一样的少年。。。

墨迹哥

回复 6# kggg


    是的。。目前只针对TCP进行扫描。

墨迹哥

回复 5# pitonas


    我也想。。克斯斑竹不给。。。= = #{:3_196:}