Авторизация на Delphi7+Indy+HTTPS

[AndreiST]

Привет. Набросал код для авторизации на одном сайте. Но она не проходит. Использую Delphi7, Indy, нужные библиотеки ssl в папке с программой. Пробовал HttpAnalyzer-ом, передаются те же данные за исключением некоторых пустых. Выкладываю саму программу с кодом. Помогите пожалуйста кто может. Уже не первый день не получается.

Ошибок никаких не выдает, просто не авторизуется, видимо каких-то параметров не хватает. Не знаю, что ещё можно передать ему.

procedure TFormServer.Button4Click(Sender: TObject);
var
PostData : TStringList;
begin
PostData := TStringList.Create;
try
PostData := TStringList.Create;
PostData.Add('loginID=VRTC264796');
PostData.Add('password=marketing707 ');
//PostData.Add('dummy=marketing707');
//PostData.Add('l=RU');
//PostData.Add('skin=PORTAL');
StrPage:= IdHTTP1.Post('https://lo01.betonmarkets.com/d/c_Start.cgi?l=RU&skin=PORTAL',PostD ata);
Memo1.Lines.Add(Utf8ToAnsi(StrPage) );
if Pos('balance',StrPage)>0 then
label4.Caption:='Авторизовались'
else
label4.Caption:='Авторизация не удалась';
finally
PostData.free;
end;
end;

[Pearl777]

//PostData.Add('dummy=marketing707');

Вместо marketing707 напиши "Пароль".

[AndreiST]

нет так тоже не идет, уже пробовал

[Lardes]

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

Пробовал HttpAnalyzer-ом, передаются те же данные за исключением некоторых пустых.

Плохо "Пробовал HttpAnalyzer-ом". Никаких пустых параметров, друг, не передаются.

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

Ошибок никаких не выдает, просто не авторизуется, видимо каких-то параметров не хватает. Не знаю, что ещё можно передать ему.

Разумеется никаких ошибок не будет. Тут не то что "каких-то параметров не хватает", а ты не туда отправляешь POST-запрос

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

Не знаю, что ещё можно передать ему.

Куки обязательно передай!

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

Вместо marketing707 напиши "Пароль".

+1

От себя добавлю, что параметр dummy отправляется в формате UTF, да к тому же закодированным.

Для тебя, AndreiST, получай куки, делая GET-запрос на страничку, и потом передавай POST на https://bluebird4.betonmarkets.com/d/do_login.cgi. Вот что отправляет мой браузер:

POST /d/do_login.cgi HTTP/1.1
Host: bluebird4.betonmarkets.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:18.0) Gecko/20100101 Firefox/18.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3
Accept-Encoding: gzip, deflate
Referer: https://lo01.betonmarkets.com/d/c_St...RU&skin=PORTAL
Cookie: homepage=Home; SKIUFYNFUIYDFTDUIHF=PORTAL; settings=%20LANG%3DRU; SOURCE=datetime%3D1359357597%3Bsource%3D; CONVERSION_PATH=h; __cfduid=df8d7aa837a496707bdf1d0702fd8bc931359357596; __utma=81866633.1194833418.1359357601.1359357601.1359357601.1; __utmb=81866633.1.10.1359357601; __utmc=81866633; __utmz=81866633.1359357601.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 100

loginID=VRTC264796&password=marketing707&dummy=%D0%9F%D0%B0%D1%80%D0%BE%D0%BB%D1%8C&l=RU&skin=PORTAL

[AndreiST]

Спасибо, Lardes, вечером сделаю по твоему совету, потом отпишусь

[Lardes]

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

Спасибо, Lardes, вечером сделаю по твоему совету, потом отпишусь

Пожалуйста))

Заметил, что при успешной авторизации у них происходит редирект на https://vr-deal01.betonmarkets.com/d...ocus=myaccount
Если собираешься парсить, куки для этого обязательны.

Заранее хочу сказать, что после этого у тебя вдруг могут возникнуть проблемы: такая особенность инди, то версия не та, то библиотеки левые. Совет: переходи на синапс. Лично для тебя - реализация на синапсе.

P.S. Весы рядом =)

[AndreiST]

Пока ничего хорошего с получением куки через get-запросы не сделал. Потом как-нибудь попробую: осталось каких-то несколько шагов.
Lardes, за реализацию проги на синапсе отдельное огромное спасибо. Пойду, в коде пока поразбираюсь=)

У меня что-то страница таким образом не авторизованная получается

procedure TForm2.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('https://vr-deal01.betonmarkets.com/d/c_Start.cgi?l=RU&skin=PORTAL&focus= myaccount');
end;

[Lardes]

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

У меня что-то страница таким образом не авторизованная получается

Разумеется ты её получишь не авторизованной по причине того, что ты открываешь её без всяких куков) Вариант - либо добавлять куки в IE, либо загружать в WebBrowser куки твоим вариантом:

  //Создаём документ с пустым содержанием.
  WebBrowser1.Navigate('about:blank');
  //Загружаем в документ нужный HTML код.
  WebBrowser1.OleObject.Document.Write(Utf8Decode(StrPage));

[AndreiST]

Lardes, спасибо за советы и помощь в написании кода.
Правда, теперь, через несколько дней, когда открываю страницу в TBrowser,
появляется капча=), ну это не мешает.