Помогите с авторизацией на сайте [D7, WinXP]
Gubar © (2007-03-16 21:34:00)
День добрый!
Пытаюсь авторизоваться на сайте.
Пишу такое:
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:00) [1]
IdHTTP1.AllowCookies := true;
Наверх 
ЧАТ |
Орешник |
|
