[MrDiG]

Торможу уже три часа.
При обращении к сайту по адресу http://www.site.ru/auth/login/?auths...sword=PASSWORD
идёт авторизация.

Сниффером проверил - больше ничего не передаётся. Куки естественно ставятся.

Ну вот почему не могу авторизоваться?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var data:tstringlist;       PageProfile:string;       error:boolean; begin  IdHTTP1.AllowCookies:=true;  IdHTTP1.HandleRedirects:=true;  data:=tstringlist.create;  data.Add('authsave=1');  data.Add('login=LOGIN');  data.Add('password=PASSWORD');  //http://www.site.ru/auth/login/?authsave=1&login=LOGIN&password=PASSWORD  error:=false;  try   PageProfile:=IdHTTP1.Post('http://www.site.ru/auth/login/', data);   Memo1.Lines.Add(PageProfile);  except   error:=true;  end;

Плюнул на Delphi - достал любимый PHP:

PHP код:

$url = "http://www.site.ru/auth/login/"; //УРЛ, куда отправлять данные
 $login = 'LOGIN'; //Логин
 $password = 'PASSWORD'; //Пароль
 $user_cookie_file = $_SERVER['DOCUMENT_ROOT'].'/cookies.txt'; //Полный путь до файла, где будем хранить куки
 $authsave = '1'; //
 $in = 'Вход'; //Кнопка входа


 function auth($url) {
        global $login, $pasword, $authsave, $user_cookie_file, $in; // Получаем все POST данные

        $ch = curl_init($url);
        curl_setopt($ch, CURLOPT_URL,$url);
        curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
        curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)");


        curl_setopt($ch, CURLOPT_COOKIEFILE, $user_cookie_file); //Куки раз
        curl_setopt($ch, CURLOPT_COOKIEJAR,  $user_cookie_file); //Куки два


        curl_setopt($ch, CURLOPT_POST,1); //Будем отправлять POST запрос


 /*
 Формируем и отправляем тот самый POST запрос.
 Как видите, это простая строка, мало чем отличающаяся от GET.
 */
        curl_setopt($ch, CURLOPT_POSTFIELDS,"login=$login&password=$password&authsave=1&submit=$in");
        $html = curl_exec($ch);
        curl_close($ch);
        return $html; //
 }


auth($url); // Авторизируемся.

 function browser($url) {
        $user_cookie_file = $_SERVER['DOCUMENT_ROOT'].'/cookies.txt'; //Получаем сохраненный после авторизации файл с куками.
        $ch = curl_init($url);
        curl_setopt($ch, CURLOPT_URL,$url);
        curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
        curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)");
        curl_setopt($ch, CURLOPT_COOKIEFILE, $user_cookie_file); //Подставляем куки раз
        curl_setopt($ch, CURLOPT_COOKIEJAR,  $user_cookie_file); //Подставляем куки два
        $html = curl_exec($ch);
        curl_close($ch);
        return $html; //Возвращаем ответ
 } 


Авторизация проходит на ура. Я уже не знаю, где может быть ошибка. Гляньте пожалуйста свежим глазом.

[T-dayne]

попробуй еще поставить

Код:

1	idhttp1.request.useragent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)';

Мне однажды это помогло авторизоваться

[MrDiG]

Спасибо, попробую, но в свойствах idHTTP1 я прописал юзерагент. Сейчас вот с Synapse попробовал - проходит авторизация. А idHTTP какой-то заколдованный

[PhoeniX]

А IdCookieManager (или как его там) юзаем?

[MrDiG]

idHttp1.CookieManager := IdCookieManager1;
на форму кинул соответствующий компонент из indy misc - результат прежний

[pesi]

Точно все куки встают?
Caption кнопки должно отправляться?
Попробуй TidMultiPartFormDataStream.

[MrDiG]

Сообщение от pesi

Точно все куки встают?
Caption кнопки должно отправляться?
Попробуй TidMultiPartFormDataStream.

Со значением кнопки перепровал всё, и так вписывал, и кодировки менял, и через urlencode прогонял - результата нет.
А вот как проверить пришли ли куки?

За совет спасибо. Сейчас пересяду за домашний комп и попробую.

[pesi]

Через снифер.
Мне IE HTTP Analyzer 5 нравится...

[MrDiG]

Посидел часок со снифером. Уже запутался в том, как запрос отфутболивается по 301, 302 редиректам.
Да и сайт отдаёт непонятно в какой форме. Почитал тут, что правильно забирать нужно в потоковой форме.

Раскроем данные. Может так сможет кто-то, что-то подсказать. Нужна авторизация на этом форуме:

http://parapa.mail.ru/forums/
Он же
http://www.parapa.ru/forums/

Адрес на который отправляются данные:
http://www.parapa.ru/auth/login/
или
http://parapa.mail.ru/auth/login/

Данные доступа:

Login: gamesbots@mail.ru или GamesMaster (авторизуется и так и так)
Pass: qwerty


Передаваемые данные согласно снифферу.

data.Add('authsave=0');
data.Add('login=gamesbots@mail.ru');
data.Add('password=qwerty');

Или если через TidMultiPartFormDataStream

data.AddFormField('authsave','0');
data.AddFormField('login','GamesMaster');
data.AddFormField('password',qwerty');

PageProfile:=IdHTTP1.Post('http://www.parapa.ru/auth/login/', data);

[Admin]

Свежий пример авторизации на Mail.ru.

[pesi]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function GetCookie(FText: TStringList): String; var   N, I: Integer;   S: String; begin   Result := '';   for N := 0 to FText.Count - 1 do     if Pos('set-cookie:', LowerCase(FText[N])) = 1 then     begin       S:=  FText[N];       Delete(S, 1, Length('set-cookie: '));       I:= Pos(';', S);       S:= Copy(S, 1, I-1);       if Result <> '' then         Result := Result + '; ';       Result := Result + S;     end; end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure TForm1.Button1Click(Sender: TObject); var   Data: TStringList;   Otvet: String;   S: String; begin   Otvet:= IdHTTP1.Get('http://parapa.mail.ru/forums/');   IdHTTP1.CookieManager.AddCookie(GetCookie(IdHTTP1.Response.RawHeaders), 'parapa.mail.ru');  // добавляем сокет   IdHTTP1.Request.Referer:= 'http://parapa.mail.ru/forums/';   IdHTTP1.HandleRedirects:= False;     Data:= TStringList.Create;   Data.Add('login='+LabeledEdit1.Text);   if CheckBox1.Checked then     Data.Add('authsave=1');   Data.Add('password='+LabeledEdit2.Text);     try     Otvet:= IdHTTP1.Post('http://parapa.mail.ru/auth/login/', Data);   except     IdHTTP1.Request.Clear;     S:= IdHTTP1.Response.Location;     if Pos('err=', S) <> 0 then       Memo1.Lines.Add('Логин или пароль неверны!')     else     begin       Otvet:= Utf8ToAnsi(IdHTTP1.Get(IdHTTP1.Response.Location));       if Pos('Добро пожаловать', Otvet) <> 0 then         Memo1.Lines.Add('Успешно авторизовались!');     end;   end;     Data.Free; end;

[MrDiG]

Ты мой спаситель! Огромное спасибо!

[pesi]

Всегда пожалуйста.
Точно не знаю, но есть еще пост запрос после авторизации на http://parapa.mail.ru/forums/profile.php?do=dst

[MrDiG]

Есть один вопрос:

IdHTTP1.CookieManager.AddCookie(GetCookie(IdHTTP1. Response.RawHeaders), 'parapa.mail.ru'); // добавляем сокет

Эта строка как я понимаю вычленяет из ранее полученных заголовков куки, написанной выше функцией и устанавливает их в CookieManager. Вот только что-то ругается у меня:
E2010 Incompatible types: 'TIdURI' and 'string'

Нашёл топик, где обсуждается такая проблема - http://forum.vingrad.ru/forum/topic-...1913394/0.html
Скорее всего дело в Indy судя по сообщениям. У меня версия 10.5.5

[pesi]

Код:

1 2 3 4

var U:TIdURI; begin  U:=TidURI.Create('parapa.mail.ru');  IdHTTP1.CookieManager.AddCookie(GetCookie(IdHTTP1.Response.RawHeaders),U);

Может так