[Помогите!] Авторизация на 4game.ru

[SuperCheaterPB]

1. Помогите авторизоваться на 4game.ru ([Ссылки могут видеть только зарегистрированные пользователи. ])
2. Как определить что авторизовался?

Ну вот мои наработки

var Data:TStringList;
    s:string;
begin
 Data:=TStringList.Create;
 Data.Add('AuthForm_loginOrEmail=логин');
 Data.Add('AuthForm_password=пароль');
 IdHTTP1.Post('https://ru.4game.com/login.html', Data);

Заранее спасибо.

[[Na`Vi]DendI]

var Data:TStringList;
    s,p:string;
begin
 Data:=TStringList.Create;
 Data.Add('AuthForm_loginOrEmail=логин');
 Data.Add('AuthForm_password=пароль');
 P:=IdHTTP1.Post('https://ru.4game.com/login.html', Data);
if pos ('ответ',p) <>0 then showmessage('Авторизовались')
else showmessage ('Error');

[SuperCheaterPB]

Цитата: Сообщение от [Na`Vi]DendI var Data:TStringList; s,p:string; begin Data:=TStringList.Create; Data.Add('AuthForm_loginOrEmail=логин'); Data.Add('AuthForm_password=пароль'); P:=IdHTTP1.Post('https://ru.4game.com/login.html', Data); if pos ('ответ',p) <>0 then showmessage('Авторизовались') else showmessage ('Error');

Я как раз про "if pos ('ответ',p)" что нужно искать когда авторизируешься?

[Руслан Палыч]

Куки естественно. Они обычно в заголовках. Возьми заголовок от запроса и определяй положение строки(set-cookie или как там) в нём.

[SuperCheaterPB]

Цитата: Сообщение от Руслан Палыч Куки естественно. Они обычно в заголовках. Возьми заголовок от запроса и определяй положение строки(set-cookie или как там) в нём.

Можешь дать полный код а то не получается

[VeTaL_UA]

Руслан Палыч, зачем в куки лезть? Проверочную строку в реквесте найти и всё.

[SuperCheaterPB]

Всем так легко рассуждать...
Напишите пожалуйста полный код

[Руслан Палыч]

Цитата: Сообщение от SuperCheaterPB Всем так легко рассуждать... Напишите пожалуйста полный код

Там https. Как ты это сделал? Как то надо расшифровывать

[VeTaL_UA]

Мда, https в инди проще простого...

Код готовый давать не буду. Помощь могу оказать только словесно в режиме диалога, если автор в таковой нуждается.

[<=SlAvA-96=>]

Data:TStringList;
A:string;
begin
Data:=TStringList.Create;
Data.Add('AuthForm_loginOrEmail='+Edit1.Text);
Data.Add('AuthForm_password='+Edit2.Text);
a:=Idhttp1.Post('https://ru.4game.com/login.html',Data);
if pos('logout', A)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Ошибка!');

и ещё нужно подключить I/O Handlers

[pavel!]

Цитата: Сообщение от SuperCheaterPB Можешь дать полный код а то не получается

сниффер в помощь.
Посмотри в чем различие между верным и не верным запросом, а потом если есть в ответе тогда, и там уже куда и че записываеш что надо.

[SuperCheaterPB]

Цитата: Сообщение от pavel! сниффер в помощь. Посмотри в чем различие между верным и не верным запросом, а потом если есть в ответе тогда, и там уже куда и че записываеш что надо.

Никак не могу. Http analyzer ничего не перехватывает

[Руслан Палыч]

Delphi немного по другому передаёт данные, смотри их WPE PRO. И если там 302 редикт то не забудь сделать:

try
a:=Idhttp1.Post('https://ru.4game.com/login.html',Data);
except
end;