package FILES::MSF::FilesDir;
use lib qw(../../); use parent qw(Exploit);

use 5.10.0;

use strict;
use warnings;

no warnings 'experimental';

use URI::URL;
use Data::Dump qw(dump);
use File::Slurp qw(read_file);

# # 
# # 
# # 

sub load {
    my $type  = shift;
    my $class = ref $type || $type;
    my $self = { };
    bless $self, $class;

    return $self;
}

sub new {
   my $class = shift;
   

   my $name = "FilesDir";

   my $DETECTION = {

   };

my $EXPLOIT = {
  DESCRIPTION => "

        This module identifies the existence of interesting files

        in a given directory path.

      ",
  METHOD => "GET",
  MSF_MODULE => "files_dir",
  TITLE => "HTTP Interesting File Scanner",
  VARIABLES => {
    'ECODE' =>       { DESCRIPTION => "", VALUE => "" },
    'EMESG' =>       { DESCRIPTION => "", VALUE => "" },
    'EXT' =>       { DESCRIPTION => "", VALUE => "" },
    'HTTP404SIGS' =>       { DESCRIPTION => "", VALUE => "" },
  },

  TYPE => 'MSF',
  PLATFORM => 'SCANNER',
  REQUESTS => {
    EXPLOIT2 => {
      METHOD       => 'GET',
      PATH   => '',
      PAYLOAD      => '',
      TEXT   => 'Sending Exploit #2 Request : [GET] ',
      HEADERS      => {
        'Content-Type' => 'text/html',
      },
      VALIDATION   => {
        TCODE => ['200'],
      },
    },
  },
   };

   return $class->SUPER::new($name, $DETECTION, $EXPLOIT, @_);
}

return 1;
