Add Websites file conf

master
heuzef 7 years ago
parent 583572a2b0
commit 527dc686ca
  1. 2
      conf/keywords.cfg
  2. 1
      conf/websites.cfg
  3. 10
      defacement_check.pl

@ -1,4 +1,4 @@
(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\]) #EMAIL REGEX (?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\])
0wn3d 0wn3d
0wned 0wned
anonymous anonymous

@ -0,0 +1 @@
www.firewall-services.com

@ -17,7 +17,17 @@ print "\033[36m \nDEFACEMENT CHECK [" . $date . "]\n\nSearching for suspects ...
print "FOUND \t\t=> URLs\n"; print "FOUND \t\t=> URLs\n";
# Import config # Import config
my @scan;
my @search; my @search;
my $websites = 'conf/websites.cfg';
if (open(my $f, '<:encoding(UTF-8)', $websites)) {
while (my $row = <$f>) {
chomp $row;
push @scan, $row;
}
} else {
warn "Could not open file '$keywords' $!";
}
my $keywords = 'conf/keywords.cfg'; my $keywords = 'conf/keywords.cfg';
if (open(my $f, '<:encoding(UTF-8)', $keywords)) { if (open(my $f, '<:encoding(UTF-8)', $keywords)) {
while (my $row = <$f>) { while (my $row = <$f>) {

Loading…
Cancel
Save