[Помогите!] Помогите с авторизацией

[MarrakeSH]

begin
  data:=TStringList.Create;
  http:=TIdHTTP.Create(nil);
  http.HandleRedirects:=true;
  data.Add('module=user');
  data.Add('action=validateLogin');
  data.Add('returnPath=http://forum.tankionline.com/forums/list.page');
  data.Add('username='+Edit1.Text);
  data.Add('password='+Edit2.Text);
  data.Add('redirect');
  data.Add('login=Login');
  try
    p:=http.Get('http://forum.tankionline.com/user/login.page');
    p:=http.Post('http://forum.tankionline.com/jforum.page',Data);
    if pos('Logout', p)<>0 then ShowMessage('Ура!');
  except
    ShowMessage('Ошибка');
    data.Free;
    http.Free;
end;

Помогите с этим кодом, всегда выдаёт 'Ошибка', собственно и исходника то в 'p' нету после гет запроcа и немогу понять почему.

P.s данные для авторизации Login: Zordexlol Pass: 25HUvcFGH

[<=SlAvA-96=>]

У тебя неправильна составлена авторизация.

Цитата: Сообщение от marakesh| p:=http.Get('http://forum.tankionline.com/user/login.page');

Это вообще в коде не надо.

[VeTaL_UA]

HTTP.HandleRedirects:=True;
HTTP.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';

Это стоит?

[pavel!]

[QUOTE=marakesh|;2897340]

begin
 HTTP:=TidHTTP.Create(nil);
 HTTP.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)';
 data:=TStringList.Create;
  http:=TIdHTTP.Create(nil);
  http.HandleRedirects:=true;
  data.Add('module=user');
  data.Add('action=validateLogin');
  data.Add('returnPath=http://forum.tankionline.com/forums/list.page');
  data.Add('username='+Edit1.Text);
  data.Add('password='+Edit2.Text);
  data.Add('redirect');
  data.Add('login=Login');
 HTTP.HandleRedirects:=False; 
  try
   HTTP.Post('http://forum.tankionline.com/jforum.page', data);
except
end;
    if pos('HTTP1/1 200 OK', HTTP.Response.ResponseText)<>0 then // Или что там у тебя? может и 302 сам смениш :D , а можно и так.
begin
ShowMessage('УрА!');
end
else
begin
ShowMessage('Облом!');
end;
    data.Free;
end;

Думаю легче так и понятнее
PS вручную писал в дельфи сам поправиш

[MarrakeSH]

Цитата: Сообщение от VeTaL_UA Код: HTTP.HandleRedirects:=True; HTTP.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)'; Это стоит?

Угу.

pavel!, Спс, но также как и мой не работает.

[pavel!]

Цитата: Сообщение от marakesh| Угу. pavel!, Спс, но также как и мой не работает.

не полинился зайти и написать:

Цитата: var data:TStringList; log,pas:string; i:Integer; StrPage:string; begin for i:=0 to Memo1.Lines.Count-1 do begin IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2'; log:=Copy(Form1.Memo1.Lines.Strings[i],0,Pos(';',Form1.Memo1.Lines.Strings[i])-1); pas:=Copy (Form1.Memo1.Lines.Strings[i],Pos(';',Form1.Memo1.Lines.Strings[i])+1,1000); data:=TStringList.Create; data.Add('module=user'); data.Add('action=validateLogin'); data.Add('returnPath=http://forum.tankionline.com/forums/list.page'); data.Add('username='+log); data.Add('password='+pas); data.Add('redirect='); data.Add('login=Login'); IdHTTP1.HandleRedirects:=False; IdHTTP1.AllowCookies:=True; sGauge1.MaxValue:=i; sGauge1.Progress:=0; try IdHTTP1.Post('http://forum.tankionline.com/jforum.page', data); except end; if Pos('Set-Cookie: JSESSIONID=', IdHTTP1.Response.RawHeaders.Text)<>0 then begin Memo2.Lines.Add(log+';'+pas); sGauge1.Progress:=sGauge1.Progress+1; end else begin sGauge1.Progress:=sGauge1.Progress+1; end; data.free; end; end; end.

Снифир ловит пост дату [Ссылки могут видеть только зарегистрированные пользователи. ]
хотя на эту страницу не заходит и в ответ мы получает 403 форбидден.

[<=SlAvA-96=>]

Цитата: Сообщение от pavel! pas:=Copy (Form1.Memo1.Lines.Strings[i],Pos(';',Form1.Memo1.Lines.Strings[i])+1,1000);

у тебя пароль из 1000 символов?

надо так
log:=copy(Memo1.Lines[1],1,Pos(';',Memo1.Lines[1])-1);
pass:=copy(Memo1.Lines[i],Pos(';',Memo1.Lines.Strings[i])+1,length(Memo1.Lines[i])-Pos(';',Memo1.Lines.Strings[i])+1);

[pavel!]

Цитата: Сообщение от <=SlAvA-96=> у тебя пароль из 1000 символов? надо так log:=copy(Memo1.Lines[1],1,Pos(';',Memo1.Lines[1])-1); pass:=copy(Memo1.Lines[i],Pos(';',Memo1.Lines.Strings[i])+1,length(Memo1.Lines[i])-Pos(';',Memo1.Lines.Strings[i])+1);

не важно, важно только что идет ошибка 403

[MarrakeSH]

Кто сталкивался с таким или знает как решить эту проблему подскажите пжл как быть.