首页 > 代码库 > 简练的端口扫描脚本

简练的端口扫描脚本

2024-08-06 03:10:18   255人阅读

脚本名：monitor_port.pl

作用：扫描特定端口是否正常

脚本：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#!/usr/bin/env perl
 
 ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5];
 ($sec,$min,$hour,$mday,$mon,$year) = (
    sprintf("%02d", $sec),
    sprintf("%02d", $min),
    sprintf("%02d", $hour),
    sprintf("%02d", $mday),
    sprintf("%02d", $mon + 1),
    $year + 1900
);
 
$date="$year-$mon-$mday $hour:$min:$sec";
 
##########################################################
open (FH,"/opt/monitor/port.list") || die;
while (defined($port_tn=<FH>)) {
        ($host_ip,$mod_n,$port_t,$port_n)=split(/\t/,$port_tn);
    chomp $host_ip;
    chomp $mod_n;
    chomp $port_t;
    chomp $port_n;
    ch_result();
    }
 
####################################################
sub ch_result {
 
    open LOG,">>/opt/monitor/port_status.log";
    select LOG;
 
    if($port_t eq ‘tcp‘){
       `/usr/bin/nc -z -w2 $host_ip $port_n`;
       $flag = `echo $?`;
    }else{
       `/usr/bin/nc -u -z -w2 $host_ip $port_n`;
       $flag = `echo $?`;
    }
 
###########################
    if($flag != 0){
        print "$date $host_ip $mod_n $port_t $port_n is closed!\n";
    }
    close(LOG);
}

文件1、port.list 定义要扫描的端口内容，

eg:

1
2
172.16.2.2      httpd     tcp     80
172.16.2.2      tomcat     tcp     8080

文件2、port_status.log 记录端口失败信息

eg:

1
2
2014-11-25 20:30:01 172.16.2.2 httpd tcp 80 is closed!
2014-11-25 20:30:01 172.16.2.2 tomcat tcp 8080 is closed!

使用方法：

    只要将此脚本添加到crontab即可！

1
*/5 * * * * cd /opt/monitor; ./monitor_port.pl > /dev/null 2>&1

简练的端口扫描脚本


联系
我们