Форум: "Сети";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
ВнизПомогите с авторизацией на сайте Найти похожие ветки
← →
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 вся ветка
Форум: "Сети";
Текущий архив: 2007.11.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c