Synapse. Авторизация на сайте. Работа с HTTPS.

Тяжеловатая была неделька. Семь дней в работы, постоянные напряги, всё что-то кому-то надо…жесть. Но все когда-то заканчивается (слава богу, неделя кончилась) и сегодня решил запостить в блог новую статейку. И решил сделать этот пост, опять же, адресным — ответ на комментарий.

Цель сегодняшней работы: авторизоваться на сайте по https-протоколу с использованием библиотеки Synapse.

Суть проблемы: не проходит авторизация при использовании метода HTTPMethod(), не устанавливаются новые cookies и т.д.

Целевой сайт:  https://partner.r01.ru

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

1. Изучаем процесс авторизации

Первое, что я сделал — зарегистрировался на «проблемном» сайте и изучил подробно все запросы и заголовки запросов при авторизации.

В качестве просмотрщика заголовков использовался плагин к FireFox «Live Headers».

Заголовок сообщения при авторизации методом POST выглядит следующим образом:

Ответ сервера при успешной авторизации:

При неудачной авторизации редирект (302) не происходит, несмотря на то, что cookies всё равно устанавливаются.

Таким образом, для того, чтобы авторизоваться на сайте с использованием Synapse нам необходимо:

1. Сформировать и отправить по протоколу https запрос
2. Определить в заголовке ответного сообщения либо редирект и перейти на новый адрес (при успешной регистрации) либо получить код 200 и констатировать провал «операции».

2. Век живи — век учись

Первое, с чего я начал работу с Synapse — это отправил на сервер get-запрос с целью получить необходимые cookies, предположив, что авторизация на сайте будет схожа по принципу со способом из этого поста. А кукисы-то и не пришли, несмотря на то, что вроде бы никаких видимых ошибок в работе Synapse замечено не было.

Порывшись немного по Интернету, нашел небольшое примечания к работе с https-протоколом в Synapse. Дело в том, что

для правильной работы с https помимо модуля httpsend, необходимо использовать также модуль ssl_openssl из той же библиотеки.

Вот так вот. Теперь попробуем пройти весь путь авторизации. Открываем Delphi и создаем новый проект. У меня на главной форме размещены следующие элементы:

• 2 edit’а для воода логина и пароля;
• button с ничего не говорящим названием «Login»
• 2 Memo — в первый будем выводить все полученные кукисы и заголовки, а во второй — содержимое полученного документа после успешной авторизации.

Внешний вид программы у меня получился такой:

Может видок и неказистый, но, для тестов вполне достаточно.

Вначале приведу уже рабочий код обработчик события onClick кнопки — в нем мы отправляем запрос и проверяем прошла ли авторизация:

procedure TForm5.Button1Click(Sender: TObject);
 
function GetLocation(const headers:TStringList):string;
var i:integer;
begin
  for I := 0 to headers.Count - 1 do
    if pos('Location: ',headers[i])>0 then
        begin
          Result:=copy(headers[i],10,length(headers[i])-9);
          break;
        end;
end;
 
var stream: TStringStream;
httpsend: THTTPSend;
begin
  Memo1.Clear;
  Memo2.Clear;
  stream:=TStringStream.Create('');
  stream.WriteString('wizard_domain2=&auid=&htid=&;action=1&login='+Edit1.Text+'&passwd='+Edit2.Text);
  httpsend:=THTTPSend.Create;
  httpsend.MimeType:='application/x-www-form-urlencoded';
  httpsend.Document.LoadFromStream(stream);
  if httpsend.HTTPMethod('post','https://partner.r01.ru/?' ) then
    begin
      Memo2.Lines.Add('Отправка запроса. Ответ сервера');
      Memo2.Lines.Add('-----Cokies-----');
      Memo2.Lines.add(httpsend.Cookies.Text);
      Memo2.Lines.Add('-----Headers-----');
      Memo2.Lines.add(httpsend.Headers.Text);
      if httpsend.ResultCode=302 then
        begin
           if pos('/AB/about_abonent.khtml',GetLocation(httpsend.Headers))>0 then
             begin
               httpsend.Document.Clear;
               httpsend.Headers.Clear;
               httpsend.HTTPMethod('get','https://partner.r01.ru/AB/about_abonent.khtml');
               httpsend.Document.SaveToStream(stream);
               Memo1.Lines.Add(KOI8R2ANSI(stream.DataString));
             end
          else
            Memo1.Lines.Add('Авторизация не удалась')
         end
       else
         Memo1.Lines.Add('Авторизация не удалась')
    end;
end;

Обратите внимание на часть кода:

[...]
if pos('/AB/about_abonent.khtml',GetLocation(httpsend.Headers))>0 then
  begin
    httpsend.Document.Clear;
    httpsend.Headers.Clear;
    httpsend.HTTPMethod('get','https://partner.r01.ru/AB/about_abonent.khtml');
[...]

Всё дело в том, что при успешной авторизации редирект приходит на адрес:

/AB/about_abonent.khtml?regbase2_id=da…

и сколько раз я не пробовал получить документ по этому адресу — ничего не получилось. Поэтому поступил так «топорно» и всё сработало.

В ответном сообщении был получен документ содержащий html-код для страницы личного кабинета.

Ещё один «нестандартный» момент при работе с этим сайтом заключается в том, что страница приходит9 в кодировке KOI8-R и, следовательно, без дополнительной обработки текста мы получим вместо русского текста «кракозябры».

Для того, чтобы избежать неприятных моментов с русскими буквами я использовал вот такую нехитрую функции перекодирования текста из KOI8-R в ANSI:

function KOI8R2ANSI(S: string): string;
var
Ansi_CODE, KOI8_CODE: string;
i: integer;
begin
KOI8_CODE := 'бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС—Ј';
ANSI_CODE := 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№ё';
Result := S;
for i := 1 to Length(Result) do
  if Pos(Result[i], KOI8_CODE) > 0 then
    Result[i] := ANSI_CODE[Pos(Result[i], KOI8_CODE)];
end;

Вот, пожалуй, и все, что касается авторизации на сайте https://partner.r01.ru.

P.S. Уважаемая,dkdk, надеюсь я не слишком опоздал с помощью и приведенный выше код Вам помог ;)