From 527dc686ca72191735a0cefbcaa460326b2f6c16 Mon Sep 17 00:00:00 2001
From: heuzef <contact@heuzef.com>
Date: Wed, 7 Feb 2018 16:44:38 +0100
Subject: [PATCH] Add Websites file conf

---
 conf/keywords.cfg   |  2 +-
 conf/websites.cfg   |  1 +
 defacement_check.pl | 10 ++++++++++
 3 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 conf/websites.cfg

diff --git a/conf/keywords.cfg b/conf/keywords.cfg
index 667a080..472a015 100644
--- a/conf/keywords.cfg
+++ b/conf/keywords.cfg
@@ -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
 0wned
 anonymous
diff --git a/conf/websites.cfg b/conf/websites.cfg
new file mode 100644
index 0000000..86b0ee6
--- /dev/null
+++ b/conf/websites.cfg
@@ -0,0 +1 @@
+www.firewall-services.com
diff --git a/defacement_check.pl b/defacement_check.pl
index 2087ec6..79065f7 100644
--- a/defacement_check.pl
+++ b/defacement_check.pl
@@ -17,7 +17,17 @@ print "\033[36m \nDEFACEMENT CHECK [" . $date . "]\n\nSearching for suspects ...
 print "FOUND \t\t=> URLs\n";
 
 # Import config
+my @scan;
 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';
 if (open(my $f, '<:encoding(UTF-8)', $keywords)) {
   while (my $row = <$f>) {