Шайтанская прога. Delphi 7

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Ruzzi, 13 Mar 2010.

  1. Ruzzi

    Ruzzi New Member

    Joined:
    20 Oct 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Потратив десятки часов на чеканье аккаунтов для одной игрушки в соц сетях чуть не съехал с катушек. Но тут в мозгу звякнуло "Я же программист какого я всё ручками делаю...". Начал поиск инфы в интернете. Собственно пишу программу которая берёт мыло и пасс, заходит на него добавляет фотку, добавляет приложению на свою страницу и регает в нём персонажа(а регать там вообщем то ничего не надо просто передаётся запрос). Вот что уже есть:
    Code:
    implementation   
    var S,Y,L,vid,auth_key:string; 
    {$R *.dfm}
     procedure TForm1.ChekClick(Sender: TObject);
    var Data:TStringList; 
    var Reg:TStringList; 
    begin Data:=TStringList.Create;  Data.Add('page=http://my.mail.ru/');  Data.Add('Login='+editmail.Text);  Data.Add('Domain='+domain.Text);  Data.Add('Password='+editpassword.Text); 
    try 
    S:=IdHTTP1.Post('http://my.mail.ru/cgi-bin/auth', Data); except 
    end; 
    Y:=IdHTTP1.Get('http://my.mail.ru/mail/'+editmail.Text); 
    if Pos('logout', Y)<>0 then   
    otv.Caption:='On'  
    else   
    otv.Caption:='Off';   
    Reg:=TStringList.Create; 
    
    Reg.Add('action=register'); 
    Reg.Add('object=auth');
    if otv.Caption='On' then   
    IdHTTP1.Get('http://my.mail.ru/mail/hwndap8f/app-canvas?appid=420353');   
    sleep(1000);   
    IdHTTP1.Get('http://my.mail.ru/cgi-bin/app/inst?appid=420353&ref=&uaflag_notify=1&uaflag_news=1&uaflag_widget=1');   
    sleep(1000);   
    IdHTTP1.Post('http://soc.it-territory.ru/entry_point.php?action=register&object=auth',Reg);
    
    end;
    Прога уже сама заходит на страничку и добавляет её с свои приложения, но с регистрацией персонажа всё не так просто вышло. Сниффер не показал post data.
    Пришлось выдирать это из всего запроса вот что нарылось

    Code:
    vid'2528774459443015291app_friends	 actionregisteruid	form		nick3РҐРёСЂРѕ Накамураcfg	phair30cbody0 gender1pbodyphead5	kindchairauth_keyA22daad5a95388fdbcddb27ca972873b4partner	photo_http://avt.appsmail.ru/mail/2jrekhbl/_avatarbigprofileAhttp://my.mail.ru/mail/2jrekhbl/ 
    //Это сам запрос 
    
    
    <iframe class="app" marginheight="0" marginwidth="0" src="http://soc.it-territory.ru/images/game/game.html?app_id=420353&session_key=0dcc03de9e2ed6ca4ba1abec14e687a7&authentication_key=22daad5a95388fdbcddb27ca972873b4&is_app_user=1&oid=2528774459443015291&vid=2528774459443015291&window_id=CometName_191a18bd1f5d6694a86aa13d9828d7d2&ext_perm=notifications,stream,widget" class="widget" frameborder="0" scrolling="no" width="760px" id="420353" height="1260"></iframe>
     //Это выдрано из хтмл кода странички  
    
    
    vid=2528774459443015291 
    app_friends 
    action=register 
    uid=form 
    nick= 
    cfg=phair 
    30=cbody 
    0=gender 
    1=pbody 
    phead=5 
    kind=chair 
    auth_key=auth_key 
    //А это примерно что мне удалось расшифровать. Параметры и значения post.

    Ачатовцы, прошу у вас помощи! Кто может объяснить как добавить загрузку фотки, а там пост запрос с тремя значениями и я хз как его отправить. И разобраться с регистрацией персонажа. Отписывайтесь сюды, кто желает помочь в асю (561347487). Если разберусь с ней для ачатовцев будет в паблике.
     
    #1 Ruzzi, 13 Mar 2010
    Last edited: 13 Mar 2010
  2. Decay

    Decay Member

    Joined:
    26 Aug 2009
    Messages:
    0
    Likes Received:
    22
    Reputations:
    3
    На счёт загрузки фотки, вероятно нужно использовать TIdMultiPartFormDataStream
     
  3. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    параметр vid скорее всего надо декодировать)))