Авторизация

[bulldog5293]

Есть некий сайт, как мне узнать что я на нём правельно авторизировался
часть кода с сайта где показан ник

<center>
<a href="set_avatar.php" title="Сменить аватар"><img src="avp/no.gif" border="1" /></a><br>
Здравствуйте, <span class='textblue'>НИК</span><br>
</center>

код для авторизации я использую такой

procedure TForm2.Button1Click(Sender: TObject);
var
  http:TidHttp;
  CooM:TidCookieManager;
  data:TStringList;
  page, id, name:String;
begin
  http:=TIdHTTP.Create(Self);
  data :=TStringList.Create;
  CooM:=TidCookieManager.Create(http);
  http.AllowCookies:=true;
  http.CookieManager:=CooM;
  http.HandleRedirects:=true;


 http.Request.Host:='Сайт';
 http.Request.UserAgent:='Opera/9.51 (Windows NT 5.1; U; ru)';
 http.Request.Accept:='text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';
 http.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
 http.Request.AcceptEncoding:='gzip,deflate';
 http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
 http.Request.Referer:='http://Сайт/login.php?r=';

  data.Add('submit=Войти');
  data.Add('username='+Edit1.Text);
  data.Add('password='+Edit2.Text);
  Page:= http.Post('http://Сайт/login.php?r=', data);
  data.Free;
  Coom.Free;
  http.Free;
end;

Пробывал так, но не получилось

procedure TForm2.Button1Click(Sender: TObject);
var
  http:TidHttp;
  CooM:TidCookieManager;
  data:TStringList;
  page, id, name:String;
begin
  http:=TIdHTTP.Create(Self);
  data :=TStringList.Create;
  CooM:=TidCookieManager.Create(http);
  http.AllowCookies:=true;
  http.CookieManager:=CooM;
  http.HandleRedirects:=true;

 {****Включить по желанию****}

 http.Request.Host:='сайт.ru';
 http.Request.UserAgent:='Opera/9.51 (Windows NT 5.1; U; ru)';
 http.Request.Accept:='text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';
 http.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
 http.Request.AcceptEncoding:='gzip,deflate';
 http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
 http.Request.Referer:='http://сайт.ru/login.php?r=';

  data.Add('submit=Войти');
  data.Add('username='+Edit1.Text);
  data.Add('password='+Edit2.Text);
  Page:= http.Post('http://сайт.ru/login.php?r=', data);
  data.Free;
  Coom.Free;
  http.Free;
Memo1.Lines.Text := IdHTTP1.Get('http://сайт.ru/privatecab.php');
end;

В memo выводит

<script type="text/javascript">
	location.replace("login.php");
	</script>
	<noscript>
	<meta http-equiv="refresh" content="0; url=login.php">
	</noscript>

[bulldog5293]

какя понял мой вопрос останется мёртвымжаль

Переделал код на такой, но опять же провал

procedure TForm2.Button1Click(Sender: TObject);
var
Http : TidHttp;
CM : TidCookieManager;
Data : TStringList;
StrPage, UserID, UserName : String;
i : integer;
begin
try
Http := TIdHTTP.Create(Self);
Data := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;

Http.Request.Host:='сайт.net';
http.Request.UserAgent:='Opera/9.51 (Windows NT 5.1; U; ru)';
http.Request.Accept:='text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';
http.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
http.Request.AcceptEncoding:='gzip, deflate';
http.Request.AcceptCharSet:='window s-1251,utf-8;q=0.7,*;q=0.7';
Http.Request.Referer:='http://www.сайт.net/';

Data.Add('submit=Войти');
Data.Add('username=' + Edit1.Text);
Data.Add('password=' + Edit2.Text);
StrPage := Http.Post('http://сайт/login.php', Data);
finally
Data.Free;
CM.Free;
Http.Free;
end;

if Pos('bulldog5293',StrPage) <> 0 then
ShowMessage('Авторизация провалилась')///а какая из них должна ///быть первой-эта 
else
ShowMessage('Авторизация прошла успешно');///или эта

Memo1.Lines.Text := StrPage;
end;

Вобщем отет в мемо получаю такой <META HTTP-EQUIV="REFRESH" CONTENT="0;URL=work.php">

[Пепел Феникса]

Вобщем отет в мемо получаю такой <META HTTP-EQUIV="REFRESH" CONTENT="0;URL=work.php">

ну редирект, перейдите потом на страницу work.php и по ней уже смотрите.

if Pos('bulldog5293',StrPage)=0 then
ShowMessage('Авторизация провалилась')///а какая из них должна ///быть первой-эта
else
ShowMessage('Авторизация прошла успешно');///или эта

ну тогда уж так.

[bulldog5293]

Пепел феникса, конечно понимаю вопрос нубский, а как?точнее в реализации программного кода

[Пепел Феникса]

Memo1.Lines.Text:=http.get('http://Сайт/work.php');

может даже проще можно, проверьте, этот редирект только при успешной авторизации или нет?

PS: залогинится это пол проблемы, часто бывает проблема потом с остальными запросами.(учитывая что вам нужны будут куки с логина)

[bulldog5293]

Странный редирект у меня не получается залогинится даже с подключёнными кукисами, в чём может быть касяк неподскажете?

после не долгих манипуляций в мемо получил

<script type="text/javascript">
	location.replace("login.php");
	</script>
	<noscript>
	<meta http-equiv="refresh" content="0; url=login.php">
	</noscript>

я как понял тоже редирект или нет?

я как понял пока сам не продвинусь, мой вопрос тож не продвинится жаль

[Пепел Феникса]

редирект, и судя по всему это означает не удачную авторизацию.

[bulldog5293]

Народ, прошу подскажите что не так с моим кодом, вод код с сайта при авторизации
<form action='login.php' method='POST'>
<table width="100%" border="0" align="center">
<tr>

<td width="40%" align="right"><p><label>Логин</label></p></td>
<td width="60%" align="left"><input type='text' size='15' maxlength='25' name='username' autocomplete="off" value="" tabindex="1" /></td>
</tr>
<tr>
<td width="40%" align="right"><p><label>Пароль</label></p></td>
<td width="60%" align="left"><input type='password' size='15' maxlength='25' name='password' autocomplete="off" value="" tabindex="2" /></td>
</tr>
<tr>

<td colspan=2 align="center"><input type="submit" value="Войти" class="submit" tabindex="4" /></td>
</tr>
</table>
</form>

[Пепел Феникса]

снифером проверь как отсылается.

[bulldog5293]

PHP код:

GET /login.php?r= HTTP/1.1
Host: safonbux-msk.ru
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.3) Gecko/20090824 Firefox/3.5.3 (.NET CLR 3.5.30729)
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru,en-us;q=0.7,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Cookie: PHPSESSID=b49968baf99ecfb58573c81f966862ac

HTTP/1.1 200 OK
Server: nginx/0.7.65
Date: Thu, 15 Jul 2010 01:21:10 GMT
Content-Type: text/html
Transfer-Encoding: chunked
Connection: keep-alive
X-Powered-By: PHP/5.2.12
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache