Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [Delphi7]Авторизация ВКонтакте (https://forum.antichat.xyz/showthread.php?t=169462)

patcher 09.01.2010 16:36
[Delphi7]Авторизация ВКонтакте
 
Ребят, дайте кто-нить рабочий код для Авторизации ВКонтакте для Delphi7.

P.S. не предлагать авторизацию через pda.vkontakte.ru

yfet 10.01.2010 00:37
а у кого есть авторизация через pda ? любопытно взглянуть) покажите кому не жалко)

Kata1o 10.01.2010 02:20
http://forum.vingrad.ru/forum/s/1f70f0f48567725ac211911a99f3ce16/topic-270450.html

Sokolik 10.01.2010 02:31
webbrowser1.Navigate('http://vkontakte.ru/login.php?email='+ xpEdit1.Text+'&pass='+ xpEdit2.Text);

GlooK 10.01.2010 03:43
Могу кинуть на Winsock. Пиши в ПМ.

Kandi 12.01.2010 21:33
ololo Search ...
http://forum.antichat.ru/thread165316.html
То, что там дал Пуховой работает на Delphi 2010, на 7 не пашет..там ругаеться и виснет) + TIdCompressorZLib отсутствует((( так что Torrent и Delphi 2010 ждёn тебя )) :rolleyes:

Jingo Bo 12.01.2010 23:10
Цитата:
TIdCompressorZLib отсутствует((( так что Torrent и Delphi 2010 ждёn тебя ))
Не помню где находил, но короче на народе ищи "Indy Fixes", там всё что нужно что бы всё что есть в Delphi 2010 в 7 перенести

Jingo Bo 12.01.2010 23:11
Цитата:
Ребят, дайте кто-нить рабочий код для Авторизации ВКонтакте для Delphi7.
Сниффер + 10 минут и готово

[Life] 12.01.2010 23:31
А без снифера можно?

patcher 13.01.2010 01:26
Всем спасибо, тему можно закрывать) Kata1o, отдельное спасибо)

Jingo Bo 13.01.2010 14:41
Цитата:
Сообщение от [Life
]А без снифера можно?
Нет, без сниффера бессмысленно

warlok 14.01.2010 09:44
Цитата:
Нет, без сниффера бессмысленно
Обьясни почему ? все что отправляется можно посмотреть в исходнике страницы.

Kandi 23.01.2010 12:05
Цитата:
Сообщение от [Life]
А без снифера можно?
Ну попробуй :D :D :D

Akum 23.01.2010 13:37
Цитата:
Обьясни почему ? все что отправляется можно посмотреть в исходнике страницы.
Cо снифером проще! зачем усложнять себе жизнь? :)

RedFern.89 24.01.2010 23:47
вот рабочая функция. Писал давно. У меня работает

Код:
function VK_Login(email, pass: string): boolean;
var
 Cookie : TidCookieManager;
 Data, Page : TStringList;
 I : Integer;
 S : string;
begin
 HTTP := TIDHTTP.Create(NIL);
 Cookie := TidCookieManager.Create(nil);
 HTTP.AllowCookies := True;
 HTTP.HandleRedirects := True;
 HTTP.ProtocolVersion := pv1_1;
 HTTP.Request.UserAgent := 'Mozlilla/5.0';
 HTTP.CookieManager := Cookie;

 Data := TStringList.Create;
 Page := TStringList.Create;

 HTTP.Post('http://vkontakte.ru/login.php', Data);

 Data.Add('act=login');
 Data.Add('email=' + email);
 Data.Add('pass=' + pass);

 Page.Text := HTTP.Post('http://login.vk.com/', Data);

 For I := 0 To Page.Count -1 Do
 begin
  If Pos('id=' + #39 + 's' + #39, Page[i]) <> 0 Then
  begin
  S := Page[i];
  S := Copy(s, Pos('value=', s) +7, Length(s));
  Delete(s, Pos(#39, s), Length(s));
  end;
 end;

 Data.Clear;

 Data.Add('op=slogin');
 Data.Add('s=' + s);

 Page.Text := HTTP.Post('http://vkontakte.ru/login.php', Data);

 If Pos('error', Page.Text) <> 0 Then Result := False
 Else Result := True;

 Page.Free;
 Data.Free;
end;
тока добавьте в idCookieManager.pas в процедуре DoAdd две строчки, идущую после строчки ACookie.Domain := LDomain;

Код:
If ACookie.Domain[1] = '.' Then
 ACookie.Domain := Copy(ACookie.Domain, 2, Length(ACookie.Domain));
иначе авторизация не пройдет из-за точки в ночале домена.


Время: 02:00