perl版 Webshell存活检测

原理：
检测url返回状态即可

源码:

#!c:\perl\bin\perl.exe
use warnings;
use strict;
use LWP::UserAgent;
$| = 1;
print "---------------------------------------------------------
";
print "|              Webshell online check v1.0               |
";
print "---------------------------------------------------------
";
print "|                                                       |
";
print '|              Power by :FireC@t                        |'."
";
print "|              bbs:www.script-toolf.info                |
";
print "|                                                       |
";
print "---------------------------------------------------------
";
my $ua = LWP::UserAgent->new();
$ua->timeout(5);
my $ok = 'OK';
my $false = 'False';
while(1){
    print "---------------------------------------------------------
";
    open FILE, "<", "webshell.txt" or die "webshell file open error:$!
";
    foreach(<FILE>){
        chomp;
        if($_ !~ m#^http#i){$_ = 'http://'.$_;}
        my $req = HTTP::Request->new(GET => "$_");
        my $rep = $ua->request($req);
        if($rep->status_line =~ /200/){
            print "Yes --> $_
";
        }else{
            print " No --> $_
";
        }
    }
    close FILE;
    print "---------------------------------------------------------
";
    print "Ctrl+c to exit
The Next Check after 30sec please waite.....
";
    sleep(30);
    system('cls');
    #system('clear');
}
 
print "press any key to continue";
getc();

#等有时间优化一下
#注意， 这个是用于win版本， 因为开头的#!路径， 还有就是system(‘cls’)用于WIN， 如果是linux的话
#请修改system(‘cls’)为system(‘clear’)
#再把开头的#!c:\perl\bin\perl.exe修改为相应的perl路径
#
#