master
heuzef 6 years ago
parent c0d542ae53
commit c7a3dd01c2
  1. 1
      conf/keywords.cfg
  2. 15
      defacement_check.pl

@ -19,4 +19,3 @@ strrev
url_decode
urldecode
viagra
contact

@ -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;
}

Loading…
Cancel
Save