Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> delphi-авторизация через POST запрос, Аторизация через POST запрос 
:(
    Опции темы
borockov
  Дата 31.5.2013, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 8.9.2012

Репутация: нет
Всего: нет
Привет друзья, заранее извиняюсь за эту тему так как знаю что эта тема обсуждалась довольно таки много раз, но все же прошу помощи. 
И так пытаюсь авторизоваться на сайте subscribe.ru программно используя POST запрос:
procedure TForm1.Button1Click(Sender: TObject);
Код

var
a:TStringList;
b:string;
begin
a:=TstringList.Create;
a.Add('destination='+edit3.text);
a.Add('credential_0='+edit1.text);
a.Add('credential_1='+Edit2.Text);
b:=IdHTTP1.Post('http://subscribe.ru/MEMBERLOGIN/',a);
if Pos('logout',b)<>0 then ShowMessage('Авторизация прошла успешно')
      else
        ShowMessage('Ошибка авторизаций');
Label1.Caption:=IntToStr(IdHTTP1.ResponseCode);

end;

Авторизация не проходит. Отслеживал снифером что куда отсылается, сначала посмотрел как общается браузер с сервером, взял данные которые отправляет браузер и прилепил к программе, затем опять же посмотрел снифером что отсылает теперь уже моя программа, а отсылает она те же данные что и браузер но почему то авторизация не проходит, и честно говоря я попал в такой тупик что не знаю даже что делать, вроде и там и там отправляются одни и те же данные.
См.вложенный файл: 

Это сообщение отредактировал(а) borockov - 31.5.2013, 15:46

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  browser.png 42,29 Kb
PM MAIL   Вверх
borockov
Дата 31.5.2013, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 8.9.2012

Репутация: нет
Всего: нет
вот второй скриншот

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  prog1.png 88,17 Kb
PM MAIL   Вверх
Poseidon
Дата 31.5.2013, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Как узнаешь что авторизация не прошла? Пытаешься перейти на какую-то страницу? А про куки забыл? 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Illusion Dolphin
Дата 31.5.2013, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63
А почему в одном слуячае 60 а в другом 64 байта? И ещё можно посмотреть на хидеры - может там что-то не так (куки например).

Добавлено через 28 секунд
Цитата

Как узнаешь что авторизация не прошла?

200 вместо 302 как минимум smile


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
borockov
Дата 31.5.2013, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 8.9.2012

Репутация: нет
Всего: нет
Цитата(Poseidon @ 31.5.2013,  17:18)
Как узнаешь что авторизация не прошла? Пытаешься перейти на какую-то страницу? А про куки забыл?

Код

if Pos('logout',b)<>0 then ShowMessage('Авторизация прошла успешно')
      else
        ShowMessage('Ошибка авторизаций');


ищу 'logout', если его нет значит авторизация не прошла. Вот с куки небольшие проблемы с ними никогда не сталкивался, поэтому не знаю правильно ли я делал:
Код

IdHTTP1.AllowCookies=true;
IdHTTP1.CookieManager:=IdCookieManager1;
 
PM MAIL   Вверх
borockov
Дата 31.5.2013, 18:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 8.9.2012

Репутация: нет
Всего: нет
А вот все то что передается в Heder


Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  heder2.png 47,01 Kb
PM MAIL   Вверх
Illusion Dolphin
Дата 31.5.2013, 21:42 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63
Цитата

А вот все то что передается в Heder

А теперь сравните его с вашей программой. И на счёт 4 символов вы не ответили.


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
borockov
Дата 31.5.2013, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 40
Регистрация: 8.9.2012

Репутация: нет
Всего: нет
Цитата(Illusion Dolphin @ 31.5.2013,  21:42)
Цитата

А вот все то что передается в Heder

А теперь сравните его с вашей программой. И на счёт 4 символов вы не ответили.

На счет 4 символов даже без понятия=( щас
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0754 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.