Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.07.2015, 15:52
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию Помогите авторизоваться

Через синапс пытаюсь пройти авторизацию за сайте
Возвращает страницу с не пройденной авторизацией

Код:
HTTP.Headers.Clear;
HTTP.Cookies.Clear;
login:=Copy(Form1.ListBox1.Items.Strings[i],0,Pos(':',Form1.ListBox1.Items.Strings[i])-1);
password:=Copy(Form1.ListBox1.Items.Strings[i],Pos(':',Form1.ListBox1.Items.Strings[i])+1,1000);
HTTP.HTTPMethod('GET','https://mmotop.ru/users/sign_in');
GETTOKEN:=TSTRINGSTREAM.Create('');
HTTP.Document.SaveToStream(GETTOKEN);
token:=COpy(GETTOKEN.DataString,Pos('<input name="authenticity_token" type="hidden"',GETTOKEN.DataString)+54,44);
DATA:=TStringStream.Create('');
DATA.WriteString('utf8=?');
DATA.WriteString('&authenticity_token='+token);
DATA.WriteString('&user[remember_me]=true');
DATA.WriteString('&user[email]='+login);
DATA.WriteString('&user[password]='+password);
DATA.WriteString('&sign_in=Войти');
HTTP.Document.LoadFromStream(DATA);
HTTP.Headers.Clear;
HTTP.HTTPMethod('POST','https://mmotop.ru/users/sign_in');
В ответ получаю
Код:
HTTP/1.1 302 Found
Server: QRATOR
Date: Thu, 16 Jul 2015 12:52:55 GMT
Content-Type: text/html; charset=utf-8
Connection: close
Status: 302 Found
Location: https://mmotop.ru/users/sign_in (при верно авторизации тут mmotop.ru)
X-UA-Compatible: IE=Edge,chrome=1
Cache-Control: no-cache
Set-Cookie: _mmotop_session=BAh7B0kiCmZsYXNoBjoGRVRvOiVBY3Rpb25EaXNwYXRjaDo6Rmxhc2g6OkZsYXNoSGFzaAk6CkB1c2VkbzoIU2V0BjoKQGhhc2h7ADoMQGNsb3NlZEY6DUBmbGFzaGVzewY6CmFsZXJ0SSJq0JLQsNC8INC90LXQvtCx0YXQvtC00LjQvNC%2BINCy0L7QudGC0Lgg0LIg0YHQuNGB0YLQtdC80YMg0LjQu9C4INC30LDRgNC10LPQuNGB0YLRgNC40YDQvtCy0LDRgtGM0YHRjy4GOwBUOglAbm93MEkiD3Nlc3Npb25faWQGOwBUSSIlMGM3MWE2NTM5OWU0MWQ4MTg1NjIyMjQzYzVhMjIzYTkGOwBU--711e28f14cb38759a006924a66ce0f2533525cc6; domain=.mmotop.ru; path=/; HttpOnly
X-Request-Id: efa8eb4f5533bbde03c258a93a4157bd
X-Runtime: 0.005058
X-Rack-Cache: invalidate, pass
  #2  
Старый 24.07.2015, 08:19
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию

Народ в куках приходит ответ постоянно, зашиврованный в Base 64 если декрипт сделать, то вот там что

Код:
{I"
flash:ETo:%ActionDispatch::Flash::FlashHash	:
@usedo:Set:
@hash{:@closedF:
@flashes{:
alertI"jВам необходимжるB낧FBÂȃFBㆇFBׂㆌィBゟBÆBׂςㆇFFBㆃB낋BÆF3FF<蘬P襁齜d轍卍役}吘쁑$蔍Hѐ͐	䌁锜Ȅđ쥑䅄Ġ쁓}}sO㏽Ӟه巎zӽwmܻ힜
  #3  
Старый 24.07.2015, 20:21
ApxaHGe1 ApxaHGe1 вне форума
Активный
 
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
По умолчанию

ЗАКРОЙТЕ или удалите, сделано
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:00.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025