drafting new modules

htrgouvea · Apr 8, 2024 · fa872c5 · fa872c5
1 parent 42cc43b
commit fa872c5
Show file tree

Hide file tree

Showing 4 changed files with 90 additions and 0 deletions.
diff --git a/lib/Spellbook/Bruteforce/Facebook.pm b/lib/Spellbook/Bruteforce/Facebook.pm
@@ -0,0 +1,30 @@
+package Spellbook::Bruteforce::Facebook {
+    use strict;
+    use warnings;
+
+    sub new {
+        my ($self, $parameters) = @_;
+        my ($help, $target, @result);
+
+        Getopt::Long::GetOptionsFromArray (
+            $parameters,
+            "h|help"     => \$help,
+            "t|target=s" => \$target,
+        );
+
+        if ($target) {
+
+            return @result;
+        }
+
+        if ($help) {
+            return "
+                \rBruteforce::Facebook
+                \r=====================
+                \r-h, --help     See this menu
+                \r-t, --target   \n\n";
+        }
+    }
+}
+
+1;
diff --git a/lib/Spellbook/Bruteforce/Linkedin.pm b/lib/Spellbook/Bruteforce/Linkedin.pm
@@ -0,0 +1,30 @@
+package Spellbook::Bruteforce::LinkedIn {
+    use strict;
+    use warnings;
+
+    sub new {
+        my ($self, $parameters) = @_;
+        my ($help, $target, @result);
+
+        Getopt::Long::GetOptionsFromArray (
+            $parameters,
+            "h|help"     => \$help,
+            "t|target=s" => \$target,
+        );
+
+        if ($target) {
+
+            return @result;
+        }
+
+        if ($help) {
+            return "
+                \rBruteforce::LinkedIn
+                \r=====================
+                \r-h, --help     See this menu
+                \r-t, --target   \n\n";
+        }
+    }
+}
+
+1;
diff --git a/lib/Spellbook/Bruteforce/Twiiter.pm b/lib/Spellbook/Bruteforce/Twiiter.pm
diff --git a/lib/Spellbook/Bruteforce/Twitter.pm b/lib/Spellbook/Bruteforce/Twitter.pm
@@ -0,0 +1,30 @@
+package Spellbook::Bruteforce::Twitter {
+    use strict;
+    use warnings;
+
+    sub new {
+        my ($self, $parameters) = @_;
+        my ($help, $target, @result);
+
+        Getopt::Long::GetOptionsFromArray (
+            $parameters,
+            "h|help"     => \$help,
+            "t|target=s" => \$target,
+        );
+
+        if ($target) {
+
+            return @result;
+        }
+
+        if ($help) {
+            return "
+                \rBruteforce::Twitter
+                \r=====================
+                \r-h, --help     See this menu
+                \r-t, --target   \n\n";
+        }
+    }
+}
+
+1;