perl系统文件监控脚本

script 说明：

创新互联是一家专业提供新晃企业网站建设,专注与成都网站建设、网站建设、HTML5、小程序制作等业务。10年已为新晃众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。

该脚本可以对指定的系统重要文件进行监控，当文件被查看或修改后，脚本会查看最近登陆系统的用户和IP,并发邮件通知。

#!/usr/bin/perl 
use strict; 
use Mail::Sender; 
use Digest::SHA; 
my @files=('/etc/passwd', '/etc/shadow', '/var/log/wtmp'); 
my $last_cmd=`last -2`; 
 
while (1) { 
        my %md5_res; 
        my %output; 
        my @change; 
        foreach my $file (@files) { 
                $md5_res{$file}=MD5_digest($file); 
        }; 
                while(1) { 
                        sleep 10; 
                        foreach my $file (@files) { 
                                if ($md5_res{$file} ne MD5_digest($file)) { 
                                        $output{$file}="$file is changed"; 
 
                                }; 
                        }; 
                        if (%output) { 
                                foreach my $key (%output) { 
                                       print "$output{$key}\n"; 
 
                                } 
                                print "$last_cmd"; 
                                last; 
                        }; 
                }; 
}; 
 
sub MD5_digest { 
        my $file=shift; 
        my $sha=Digest::SHA->new('256'); 
        $sha->addfile($file); 
        my $digest=$sha->hexdigest; 
        return "$digest"; 
} 
 
 
 
sub Send_mail { 
        my($subject,$msg)=@_; 
        my $sender=new Mail::Sender->MailMsg({ 
         smtp => 'mail.aaa.com', 
         from => 'neo@aaa.com', 
         to =>'neo@gmail.com', 
         subject => $subject, 
         msg => $msg, 
         auth => 'LOGIN', 
         authid => 'neo', 
         authpwd => '1234',} 
        ) or die "$Mail::Sender::Error\n"; 
        print "Mail sent ok"; 
} 

 

网页题目：perl系统文件监控脚本
转载来源：http://6mz.cn/article/jhcscd.html