Авторизация в ДО на delphi

qwert-yg · 07.03.2011, 19:22

Я Пытаюсь авторизоваться в ДО через delphi Но не могу понять как выбрать нужный сервер и получить sid.

Цитата:


	procedure TForm1.Button1Click(Sender: TObject); var data: TStringList; html: string; begin data := TStringList.Create; IdHTTP1.Get('http://www.darkorbit.com/favicon.ico'); data.Add('loginForm_default_username=ololoi70'); data.Add('loginForm_default_password=12345'); html := IdHTTP1.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=0', data); if Pos('exitURL', html)<>0 then Label1.Caption := 'Залогинелись' else Label1.Caption := 'НЕ Залогинелись'; end;

Как мне лучше авторизацию оформить? И главное как получить сид?

**Mebius** · 23.03.2011, 02:01

Цитата:

Сообщение от qwert-yg


	Я Пытаюсь авторизоваться в ДО через delphi Но не могу понять как выбрать нужный сервер и получить sid. Как мне лучше авторизацию оформить? И главное как получить сид?

Разъясняю вкратце

Код:

procedure TForm1.Button1Click(Sender: TObject);
var data: TStringList;
html: string;
begin
data := TStringList.Create;
IdHTTP1.Get('http://www.darkorbit.com/favicon.ico'); - ты только что скачал картинку не имеющую никакого отношения к авторизации+ данная строка вообще тут нафиг не нужна!
data.Add('loginForm_default_username=ololoi70');
data.Add('loginForm_default_password=12345');
html := IdHTTP1.Post('http://darkorbit.bigpoint.com/?locale=ru&aid=0', data);

if Pos('exitURL', html)<>0 then Label1.Caption := 'Залогинелись'
else Label1.Caption := 'НЕ Залогинелись';
две строчки выше вообще идиотизм тк не залогинелся в принципе!

end;

А теперь нормальный код по нажатию на батон:

Код:

procedure TForm1.Button1Click(Sender:TObject);
var
html:string;
data:tstringlist;
begin
data:=TStringList.Create;
data.Add('loginForm_default_username=ololoi70');
data.Add('loginForm_default_password=12345');
html:=idHTTP1.Post('http://darkorbit.com', data);
if Pos('exitURL', html)<>0 then Label1.Caption:='Success'
else
Label1.Caption:='Fail';
data.Free;
end;

таким образом ты зайдешь на страничку выбора сервера.

З.Ы. Писал от руки прямо тут!

Добавлено через 2 минуты
Когда допрет как дальше делать, не забудь включить редирект

АзЕсмьЦарь · 25.03.2011, 10:05

Цитата:

Сообщение от qwert-yg


	Я Пытаюсь авторизоваться в ДО через delphi Но не могу понять как выбрать нужный сервер и получить sid. Как мне лучше авторизацию оформить? И главное как получить сид?

После того, как ты получил исходный код страницы ДО в свою программу, нужно проанализировать полученную строчку (с точки зрения программирования полученный исходник - это просто строка между тегами <html></html>. Поэтому внимательно изучи работу со строками (поиск в строке, копирование и т.д.).
Пример проги можешь посмотреть здесь:
http://zhyk.ru/forum/showthread.php?t=177758

Slavaberezin · 17.03.2012, 17:15

var
A,B,C:string;
Data:TstringList;
begin
Data:=tstringlist.create;
Data.Add('loginForm_default_username='+Edit1.Text) ;
Data.Add('loginForm_default_password='+Edit2.Text) ;
A:=form1.idhttp1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',data);
B:=pars('http://'+edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',A,'&ref_pid=');
C:=form1.idhttp1.Get('http://'+edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+B);
if pos('logout',C) > 0 Then
begin
Memo1.Lines.Add('Авторизация завершена');
Memo1.Lines.Add(copy(C,pos('dosid=',C)+6,32));
end
else
Memo1.Lines.Add('Неверные данные');

function TForm1.pars(z, s, x: string): string;
var
p:integer;
c:string;
begin
c:=copy(s,pos(z,s)+length(z),length(s)-pos(z,s)-length(z));
p:=pos(x,c);
result:=copy(c,1,p-1);
end;

~~Number/1/~~ · 17.03.2012, 21:01

Цитата:

Сообщение от Slavaberezin


	var A,B,C:string; Data:TstringList; begin Data:=tstringlist.create; Data.Add('loginForm_default_username='+Edit1.Text) ; Data.Add('loginForm_default_password='+Edit2.Text) ; A:=form1.idhttp1.post('http://darkorbit.bigpoint.com/?locale=ru&aid=0',data); B:=pars('http://'+edit3.Text+'.darkorbit.bigpoint.com/GameAPI.php?req=',A,'&ref_pid='); C:=form1.idhttp1.Get('http://'+edit3.text+'.darkorbit.bigpoint.com/GameAPI.php?req='+B); if pos('logout',C) > 0 Then begin Memo1.Lines.Add('Авторизация завершена'); Memo1.Lines.Add(copy(C,pos('dosid=',C)+6,32)); end else Memo1.Lines.Add('Неверные данные'); function TForm1.pars(z, s, x: string): string; var p:integer; c:string; begin c:=copy(s,pos(z,s)+length(z),length(s)-pos(z,s)-length(z)); p:=pos(x,c); result:=copy(c,1,p-1); end;

нахрена для каждого нового линка новая переменная? неужели трудно записывать все линки в 1 переменную?

Slavaberezin · 19.03.2012, 16:55

1)Если тебе надо с одной переменной, то и делай с одной. Я тут причём ?
2)С одной переменной никаким раком не получится, нужно как минимум 2: TstringList; и String.

Авторизация в ДО на delphi

Вопросы и ответы, обсуждения