diff --git a/conf/keywords.cfg b/conf/keywords.cfg index c02ebd8..a666056 100644 --- a/conf/keywords.cfg +++ b/conf/keywords.cfg @@ -19,4 +19,3 @@ strrev url_decode urldecode viagra -contact diff --git a/defacement_check.pl b/defacement_check.pl index f853e4f..261b44c 100644 --- a/defacement_check.pl +++ b/defacement_check.pl @@ -13,8 +13,8 @@ sub uniq { grep !$seen{$_}++, @_; } -print "\033[36m \nDEFACEMENT CHECK [" . $date . "]\n\nSearching for suspects ...\n"; -print "FOUND \t\t=> URLs\n"; +# print "\033[36m \nDEFACEMENT CHECK [" . $date . "]\n\nSearching for suspects ...\n"; +# print "FOUND \t\t=> URLs\n"; # # Import config Website (LOAD domain in conf/websites.cfg) # my @scan; @@ -106,7 +106,7 @@ foreach $file (@files) foreach my $i (@whitelist) { foreach (@found) { foreach (grep(/$i/i, split(/\n/))) { - print "\033[35mIGNORE "; # VERBOSE + # print "\033[35mIGNORE "; # VERBOSE pop @found; } } @@ -115,17 +115,18 @@ foreach $file (@files) # Views results foreach (uniq(@found)) { $total_found++; - print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n"; # VERBOSE + # print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n"; # VERBOSE } if ($total_found == 0) { - print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n"; # SAFE + # print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n"; # SAFE } else { - print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n"; # TREATH + # print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n"; # TREATH $somme_total_found = $somme_total_found + $total_found; } } close(FH); - print "\033[36mTREATH detected on this site \t\t\t\t=> [" . $somme_total_found . "]\n\n"; # Total + # print "\033[36mTREATH detected on this site \t\t\t\t=> [" . $somme_total_found . "]\n\n"; # Total + print $somme_total_found; # Total $grand_total_found = $somme_total_found + $grand_total_found; }