Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2015, 21:28   #11
xwiomx
Новичок
Джуниор
 
Регистрация: 01.04.2015
Сообщений: 1
По умолчанию

ребят, у меня таже проблема. ответ 400 и все. обновился с указанного выше репозитория, но не помогло. код использовал тот что привел автор данной темы. но до этого было у меня немного по другому.
Код:
var stream: TStringStream;
httpsend: THTTPSend;
sl: TStringList;
begin
  Memo1.Clear;
  Memo2.Clear;
  sl:= TStringList.Create;
  stream:=TStringStream.Create('');
  stream.WriteString('source=MENU&login=%2Bтелефон начиная с 7&password=пароль');
  httpsend:=THTTPSend.Create;
  httpsend.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:36.0) Gecko/20100101 Firefox/36.0';
  httpsend.MimeType:='application/x-www-form-urlencoded;charset=utf-8';
  httpsend.Document.LoadFromStream(stream);
  if httpsend.HTTPMethod('post','https://auth.qiwi.com/cas/tickets') 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 = 201 then
      begin
         httpsend.Document.Clear;
         httpsend.Headers.Clear;
         stream.Clear;
         httpsend.HTTPMethod('get', 'https://qiwi.ru/main.action');
         httpsend.Document.SaveToStream(stream);
         Memo1.Lines.Add(stream.DataString);
      end
    else
      Memo1.Lines.Add('Авторизация не удалась')
  end
  else
    Memo1.Lines.Add('Ошибка');
  httpsend.Free;
  stream.Free;
end;
ответ на первый запрос приходил как положено 201. тоже самое я видел и в снифере при логине через браузер
Цитата:
https://auth.qiwi.com/cas/tickets

POST /cas/tickets HTTP/1.1
Host: auth.qiwi.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:36.0) Gecko/20100101 Firefox/36.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru
Accept-Encoding: gzip, deflate
Content-Type: application/x-www-form-urlencoded;charset=utf-8
Referer: https://auth.qiwi.com/app/index?v=0....pool.jsp%22%7D
Content-Length: 50
Cookie: JSESSIONID=BCE8985F98238849F0792D37 B6607D1E.node-s1764
DNT: 1
Connection: keep-alive
Pragma: no-cache
Cache-Control: no-cache
source=MENU&login=%2Bномер&password =пароль
HTTP/1.1 201 Created
Server: nginx
Date: Wed, 01 Apr 2015 07:16:07 GMT
Content-Type: text/plain;charset=UTF-8
Content-Length: 61
Connection: keep-alive
Strict-Transport-Security: max-age=31536000
X-Content-Type-Options: nosniff
X-XSS-Protection: 1; mode=block
----------------------------------------------------------
но отправив get на qiwi.ru/main.action я получаю страничку без авторизации. подскажите пожалйуста как это все победить?
xwiomx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Кто обменяет недорого QIWI на WMZ? super-php Свободное общение 1 01.05.2013 10:22
Ищу кто обменяет QIWI -> WMZ, WMR moshkin_ura Свободное общение 5 07.11.2012 18:01
Создание Процессинговой программы по аналогу с QIWI. Formil Фриланс 1 12.02.2011 11:59
Обычная авторизация или авторизация на уровне браузера? calugin Безопасность, Шифрование 0 13.01.2011 00:34