УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi] Авторизация ВКонтакте

Страница 2 из 3

Опции темы

Поиск в этой теме

Опции просмотра

#11

22.12.2009, 17:36

Kandi

Познающий

Регистрация: 18.11.2009

Сообщений: 44

Провел на форуме:
134032

Репутация: 3

Отправить сообщение для Kandi с помощью ICQ

Ваш код выдаёт ошибку, такую же как и мою, не знаю как он у вас работает!?
Ошибка:
Project Project1.exe raised exception class EIdHTTPProtocolException With Message 'HTTP/1.1 302 Found'. Process stopped. Use Step or Run continue

#12

22.12.2009, 17:46

patcher

Познающий

Регистрация: 15.12.2009

Сообщений: 81

Провел на форуме:
393444

Репутация: 24

Отправить сообщение для patcher с помощью ICQ

Вот, пробуй этот код:

Код:

function loginvk(login, pass:string; HTTPClient:TIdHTTP):boolean;
var data:TIdMultiPartFormDataStream; s:string; res:TStringList;
begin;
HTTPClient.HandleRedirects:=True;
Data:=TIdMultiPartFormDataStream.Create;
Data.AddFormField('op', 'a_login_attempt');
HTTPClient.Post('http://vkontakte.ru/login.php', data);
data.Free;
res:=TStringList.Create;
Data:=TIdMultiPartFormDataStream.Create;
Data.AddFormField('email', login);
Data.AddFormField('pass', pass);
Data.AddFormField('expire', '');
Data.AddFormField('vk', '');
res.text:=HTTPClient.Post('http://login.vk.com/?act=login', data);
data.Free;
s:=copy(res[10], 51, length(res[10])-54);
res.Free;
if s<>'ext/css' then begin
Data:=TIdMultiPartFormDataStream.Create;
Data.AddFormField('op', 'slogin');
Data.AddFormField('redirect', '1');
Data.AddFormField('expire', '0');
Data.AddFormField('to', '');
Data.AddFormField('s', s);
HTTPClient.Post('http://vkontakte.ru/login.php', data);
data.Free;
result:=true;
end
else result:=false;
end;

Функция при удачной авторизации возвращает true, при неудачной - false.

#13

22.12.2009, 18:03

Kandi

Познающий

Регистрация: 18.11.2009

Сообщений: 44

Провел на форуме:
134032

Репутация: 3

patcher
Какая у тебя Indy, у меня нету компанента IdMultiPartFormDataStream

Код:

s:=copy(res[10], 51, length(res[10])-54);

Как я понимаю спускаемся до 10 стр. идём до 51 знака и потом тип копируем 54.
Вообще куки длиной 56 и строка не 10 а 11 в коде(

Последний раз редактировалось Kandi; 22.12.2009 в 18:07..

#14

22.12.2009, 18:05

patcher

Познающий

Регистрация: 15.12.2009

Сообщений: 81

Провел на форуме:
393444

Репутация: 24

Эмм....забыл:

Код:

uses IdMultipartFormData

#15

22.12.2009, 19:28

sn0w

Статус пользователя:

Регистрация: 26.07.2005

Сообщений: 568

Провел на форуме:
1290766

Репутация: 1236

так у тя там ж в заголовке написано 302 Found... Location: profile.php

блин ща сам посмотрю)

__________________

snow white world wide

#16

22.12.2009, 19:35

eLWAux

Members of Antichat - Level 5

Регистрация: 15.06.2008

Сообщений: 941

Провел на форуме:
5111568

Репутация: 2399

Отправить сообщение для eLWAux с помощью ICQ

100% работает (2а запроса):

Код:

use
    ..IdHTTP,ShellApi,RegExpr..;

var LoginInfo: TStrings;
    r      :TRegExpr;
    page : string;

....

    LoginInfo := TStringList.Create;
    LoginInfo.Clear;
        
    IdHTTP1.Host:='login.vk.com';
    IdHTTP1.Port:=80;
    LoginInfo.Add('op=a_login_attempt');
    try
       page := idhttp1.Post('http://vkontakte.ru/login.php',LoginInfo);
    except
       showmessage('nemogy auth');
       exit;
    end;
    if (pos('captcha_sid',page)>0) then
    begin
            showmessage('this is captchaaaaa!');
            exit;
    end;

    LoginInfo.Clear;
    LoginInfo.Add('email='+edit_login.Text);
    LoginInfo.Add('pass='+edit_pass.Text);
    page := idhttp1.Post('http://pda.vkontakte.ru/login?pda=index&acknowledge=0',LoginInfo);
    r := TRegExpr.Create;
    page := idhttp1.get('http://pda.vkontakte.ru/status');
    if (pos('name="activityhash"',page)<=0) then begin
        showmessage('bad login \ pass');
        exit;
    end;
    showmessage('good login \ pass');

http://www.sendspace.com/file/55jwwv

Последний раз редактировалось eLWAux; 22.12.2009 в 20:05..