Скачать: CL | DM;

Помогите с авторизацией на сайте   Найти похожие ветки 

← →
Gubar   (2007-03-16 21:34) [0]

День добрый!

Пытаюсь авторизоваться на сайте.

Пишу такое:


var
 tL: TStringList;
 username,resp:string;
 s: String;
begin

tL := TStringList.Create;
 tL.Clear;

 username:="gubar:"+lowercase(MD5DigestToStr(md5string("2w4wzw"))+":1234567");
 resp:=lowercase(MD5DigestToStr(md5string(username)));

 tL.Add("username=gubar");
 tL.Add("resp="+resp);
 tL.Add("submit_adv=>>");

 try
   s :=IdHTTP1.Post("http://abc.net.ru/cgi-bin/member.cgi",tL);
 finally
   tL.Free;
 end;

Тут gubar-имя, 2w4wzw - пароль. Тут всё работает.

Потом меня по идее кидает на следующую

s :=IdHTTP1.get("http://abc.net.ru/cgi-bin/serf.cgi");

Тут вроде тоже всё ок.

Далее перехожу по ссылке
tL := TStringList.Create;
 tL.Clear;

 tL.Add("tip=%2Fstart1.php");
 tL.Add("idkat=0");
 tL.Add("assd=125");
 tL.Add("username=gubar");

 try
  s :=IdHTTP1.post("http://abc.net.ru/start1.php",tL);
 finally
   tL.Free;
 end;

и тут должет быть редирект на страницу с фреймами,
а его не происходит.

что делать дальше не знаю.
посмотрите плз, куда дальше запрос слать.

---

← →
Плохиш ©   (2007-03-17 01:54) [1]

IdHTTP1.AllowCookies := true;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c