Не могу авторизироваться в TDS (Delphi)

Собственно начал изучать делфи пытаюсь сделать что то для себя полезно .

Не могу авторизоваться пишет 403 ошибка .

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
log:tstringlist;
link,get,linsk,login,pass:string;
begin

 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 log:=tstringlist.Create ;

begin
login:=edit2.Text;
pass:=edit3.Text;
link:=edit1.Text;
log.Add('login='+login) ;
log.Add('pass='+pass) ;
IdHTTP1.HandleRedirects:=true;
    try
linsk:=IdHTTP1.Post(link, log);
    except
    end;

Get:=idhttp1.Get('http://domen.ru/tds/index.php'); // тут указан полный адрес так как он отличен от домена в переменной . 
if Pos ('Exet', Get) <>0 then
     begin
       Label4.Caption:='Ура;
     end
   else
    Label4.Caption:='не ура';
    log.free ;

 end
end;

end.

Помогите !

Второй вариант

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
log:tstringlist;
link,get,linsk,login,pass:string;
begin

 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 log:=tstringlist.Create ;
if '1' = '1' then
begin
login:=edit2.Text;
pass:=edit3.Text;
link:=edit1.Text;
log.Add('login='+login) ;
log.Add('pass='+pass) ;
IdHTTP1.HandleRedirects:=true;
    try
linsk:=IdHTTP1.Post(link+'enter.php', log); // Обрати внимание
    except
    end;

Get:=idhttp1.Get(link+'index.php');// Обрати внимание
if Pos ('Exet', Get) <>0 then
     begin
       Label4.Caption:='Ура';
     end
   else
    Label4.Caption:='не ура';
    log.free ;
 end
end;

end.

вот так будет к ссылке подставляться index.php и enter.php ?

исходник авторизации

PHP:

<form name="" action="index.php" method="post">
<table>
<tr>
<td>
Login:
</td>
<td>
<input name="login" type="text" value="">
</td>
</tr>
<tr>
<td>
Password:
</td>
<td>
<input name="pass" type="password" value="">
</td>
</table>
<input type="submit" value="Send"></form>

 

403 это Forriblen\запрещено, смотри внимательней код авторизации в тдске, чето она тебя не рада видеть и не пускает чего то ты не досылаеш..

 

А в самом enter.php проверок на кукисы и т д нету?
На реферер?
Мб скрытый кукис js-om ставиться**

 

PHP:

<?php

define('HIDDEN_ENTER', 1);

include_once (dirname(__FILE__)."/config.php");
include_once (dirname(__FILE__)."/functions.php");

if($is_ip_access == '1')
{
  $is_denied = true;
  $ip=getip(); //IP-*¤аҐб бҐадҐа*
  $ccc = sizeof($ip_access);
  for($i=0; $i<$ccc; $i++)
  {
   if(eregi("^{$ip_access[$i]}", $ip))
   {
    $is_denied = false;
    break;
   }
  }
 if($is_denied == true)
 {
    header('HTTP/1.1 403 Forbidden');
    die("<h1>403 Forbidden</h1>");
 }
}

include_once (dirname(__FILE__)."/login.php");

header("Location: index.php");
?>

 

Т.к пловины функц нету, то предполагаю что он лочит по ип.

 

через браузер нормально все .
по ip в конфиги выключено с любого должно .

 

Смотри сниффером и повторяй запрос в программе

 

качай httpanalyzer и спотри пост данные