perl版 Webshell存活检测

 1 #!c:\\perl\\bin\\perl.exe
 2 use warnings;
 3 use strict;
 4 use LWP::UserAgent;
 5 $| = 1;
 6 print "---------------------------------------------------------\n";
 7 print "|              Webshell online check v1.0               |\n";
 8 print "---------------------------------------------------------\n";
 9 print "|                                                       |\n";
10 print ‘|              Power by :FireC@t                        |‘."\n";
11 print "|              bbs:www.script-toolf.info                |\n";
12 print "|                                                       |\n";
13 print "---------------------------------------------------------\n";
14 my $ua = LWP::UserAgent->new();
15 $ua->timeout(5);
16 my $ok = ‘OK‘;
17 my $false = ‘False‘;
18 while(1){
19     print "---------------------------------------------------------\n";
20     open FILE, "<", "webshell.txt" or die "webshell file open error:$!\n";
21     foreach(<FILE>){
22         chomp;
23         if($_ !~ m#^http#i){$_ = ‘http://‘.$_;}
24         my $req = HTTP::Request->new(GET => "$_");
25         my $rep = $ua->request($req);
26         if($rep->status_line =~ /200/){
27             print "Yes --> $_\n";
28         }else{
29             print " No --> $_\n";
30         }
31     }
32     close FILE;
33     print "---------------------------------------------------------\n";
34     print "Ctrl+c to exit\nThe Next Check after 30sec please waite.....\n";
35     sleep(30);
36     system(‘cls‘);
37     #system(‘clear‘);
38 }
39  
40 print "press any key to continue";
41 getc();