Авторизация на 4game.ru

[SuperCheaterPB]

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

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

var Data:TStringList;
s:string;
begin
Data:=TStringList.Create;
Data.Add('AuthForm_loginOrEmail=логин');
Data.Add('AuthForm_password=пароль');
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', Data);



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

[[Na`Vi]DendI]

var Data:TStringList;
s,p:string;
begin
Data:=TStringList.Create;
Data.Add('AuthForm_loginOrEmail=логин');
Data.Add('AuthForm_password=пароль');
P:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', Data);
if pos ('ответ',p) <>0 then showmessage('Авторизовались')
else showmessage ('Error');

[SuperCheaterPB]

DendI;3037989']var Data:TStringList;
s,p:string;
begin
Data:=TStringList.Create;
Data.Add('AuthForm_loginOrEmail=логин');
Data.Add('AuthForm_password=пароль');
P:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', Data);
if pos ('ответ',p) <>0 then showmessage('Авторизовались')
else showmessage ('Error');

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

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

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

[SuperCheaterPB]

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

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

[VeTaL_UA]

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

[SuperCheaterPB]

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

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

Всем так легко рассуждать...
Напишите пожалуйста полный код
Там [Ссылки могут видеть только зарегистрированные и активированные пользователи] Как ты это сделал? Как то надо расшифровывать:(

[VeTaL_UA]

Мда, [Ссылки могут видеть только зарегистрированные и активированные пользователи] в инди проще простого... ;)

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

[<=SlAvA-96=>]

Data:TStringList;
A:string;
begin
Data:=TStringList.Create;
Data.Add('AuthForm_loginOrEmail='+Edit1.Text);
Data.Add('AuthForm_password='+Edit2.Text);
a:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
if pos('logout', A)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Ошибка!');

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

[pavel!]

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

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

[SuperCheaterPB]

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

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

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

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

try
a:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',Data);
except
end;