#!/usr/bin/perl
#Scans for directories on webserver
#Usage: Create a text file in same dir as script named directories.txt
#Put the directories to scan for there, one per line, don't add the /
#open the script & fill in site, http:// isn't necessary
require LWP::UserAgent;
print "\n[+]Site to scan?";
$url = <stdin>;
chomp($url);
open(FILE, "directories.txt") or die("Unable to open file");
@dirs = <FILE>;
if($url =~ /http:\/\//){
} else {
$url = "http://".$url;
}
my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);
print "[+]Connecting...\n";
sleep(1);
if ($response->is_success) {
print "[+]Connected to $url";
sleep(1);
} else {
print "[-]Cannot connect to $url";
exit;
}
print "\n[+]Scanning...";
sleep(1);
$t = 0;
$found = 0;
foreach $dir(@dirs){
chomp($dir);
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$full = $url."/".$dir;
my $response = $ua->get($full);
if ($response->is_success) {
$get = $response->content;
print "\n[+]".$dir." is found at ".$url."/".$dir;
$found++;
}
$t++;
}
if($found eq "0"){
print "\n[-]None of the directories has been found!\n";
}