Вконтакте - помогите получить хэш

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by lamer811, 7 Oct 2010.

  1. Stis-mag

    Stis-mag New Member

    Joined:
    22 Nov 2010
    Messages:
    55
    Likes Received:
    0
    Reputations:
    0
    1n0y Можно весь код на авторизацию и разрешение доступа?
     
  2. lamer811

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

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    Этих авторизаций на Античате уже более 20 тем!!!
    И к тому же, зачем тебе такая связка авторизация + разрешение Desktop?
     
  3. Stis-mag

    Stis-mag New Member

    Joined:
    22 Nov 2010
    Messages:
    55
    Likes Received:
    0
    Reputations:
    0
    Можно ссылки. =) Мне не Delphi

    При подключении надо же запрос на доступ делать, если его нет?
     
  4. lamer811

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

    Joined:
    8 Nov 2009
    Messages:
    130
    Likes Received:
    39
    Reputations:
    12
    Ну вообще это тема по Delphi...
    И 1n0y привел пример именно на этом языке
    P.S. Юзай поиск

    Запрос на доступ зачем тебе?
    Ты делаешь desktopное приложение?
     
  5. Stis-mag

    Stis-mag New Member

    Joined:
    22 Nov 2010
    Messages:
    55
    Likes Received:
    0
    Reputations:
    0
    ДА, десктоп.
     
  6. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    а самому перевести код? могу дать код на delphi/c++
     
  7. Stis-mag

    Stis-mag New Member

    Joined:
    22 Nov 2010
    Messages:
    55
    Likes Received:
    0
    Reputations:
    0
    Дай пожалуйста тогда на delphi.
     
  8. 1n0y

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    276
    Likes Received:
    282
    Reputations:
    2
    простая авторизация. проверяет только на факт валидности, на факт бана или еще чего - сам уж доделай.

    Code:
    function logvk:string;
    var
    post:Tstringlist;
    c,s:string;
    begin
      post := Tstringlist.Create;
      post.add ('op=a_login_attempt');
      try
       c:=http.post ('http://vk.com/login.php', post);
      except end;
    
      {тут еще проверяем, не вылезла-ли капча. тоже сам сделай ;)}
    
      post.Clear;
      post.add ('email=' + логин);
      post.add ('pass=' +пароль);
      post.add ('expire=');
      post.add ('vk=1');
      try
       s := http.post ('http://login.vk.com/?act=login', post);
      except end;
      post.Clear;
       if pos('value=''',s)=0 then
         result:='nook'
       else
         result:='ok';
    end;
     
    #28 1n0y, 28 Nov 2010
    Last edited: 28 Nov 2010
  9. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    575
    Likes Received:
    48
    Reputations:
    0
    в конце авторизации запрашиваю страницу http://vkontakte.ru/login.php?app=1911836&layout=popup&type=browser&settings=15615 и поле app_settings_hash пустое ((( как быть?
     
  10. Stis-mag

    Stis-mag New Member

    Joined:
    22 Nov 2010
    Messages:
    55
    Likes Received:
    0
    Reputations:
    0
    У кого получилось авторизоваться и разрешить приложению права? А то у меня в mid, secret, sid получается '+obj.mid+', '+obj.secret+', '+obj.sid+' .
    И в Http Analyzer еще появляются 3 запроса после 7 (Ссылка http://zalil.ru/30268751 )
     
    #30 Stis-mag, 4 Jan 2011
    Last edited: 4 Jan 2011
  11. Stis-mag

    Stis-mag New Member

    Joined:
    22 Nov 2010
    Messages:
    55
    Likes Received:
    0
    Reputations:
    0
    Ни кто не поможет что-ли?