[Taemin]

Доброго времени суток. Имеется несколько десятков SIM карточек сотрудников компании одного и того же оператора мобильной связи, все они зарегистрированы в интернете на сайте https://my.kyivstar.ua/tbmb/login/show.do
Чтобы проверить счет – достаточно вести номер телефона в поле «Логин» и пароль в поле «Пароль», нажать «Войти в систему» или клавишу ENTER. Каптча отсутствует.
Допустим значение логина = переменной W, а значение пароля = переменной Q
Есть ли возможность эти значения загнать в соответствующие поля и таким образом осуществить вход на сайт?

[M.A.D.M.A.N.]

глянь сниффером как явки/пароли передаются на сайт. скорее всего через POST запрос.

[Taemin]

Если я все правильно понял, то это две черные строки на скриншоте:
http://i.piccy.info/i7/19acd09977ad4...472590/111.png

[M.A.D.M.A.N.]

по http протоколу вроде должно быть.
IMAP - почта.

[Taemin]

Хм, не вижу. Днем попробую еще раз.

[NumLock]

да, можно.
смотри форму loginForm, у нее method, action, input - name / value (все, для начала. потом можно выяснить какие серверу не нужны, хотя можно и не выяснять).

[Taemin]

<input type="text" name="user" maxlength="60" value="" style="width:140;" id="userNameId">

и

<input type="password" name="password" maxlength="30" size="32" value="" style="width:140;">

кнопка входа

<input type="submit" name="Submit" value="Вхід в систему">

Как привязаться к этому в Delphi?

[NumLock]

почитай про POST запросы, Cookie, TIdHTTP (к примеру)

[Taemin]

Все делал согласно этой инструкции:
http://www.youtube.com/watch?v=vLAQUbkn8dQ

Переданные данные методом POST обнаружил сдедующие:

Код:

org.apache.struts.taglib.html.TOKEN  3dbbb56715ca77de721aaf71d10c5261  
isSubmitted                          true                              
USERNAME                                                               
USER_NAME                                                              
ORIG_URL                                                               
isInetUser                           null                              
buser                                                                  
bpath                                                                  
user                                 +380670000000                     
password                             111111                            
Submit                               Вхід в систему                    
value(jumpTo)                                                          
value(jumpToUrl)    

Адрес скрипта:
https://my.kyivstar.ua/tbmb/login/perform.do

Код процедуры получился следующим:

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
  StrPage,KSlink:string;
  log:TStringList;
begin
  KSlink:='https://my.kyivstar.ua/tbmb/login/perform.do';
  log:=TStringList.Create;
  log.Add('user'+edt1.Text);
  log.Add('password'+edt2.Text);
  log.Add('login=Вхід в систему');

  log.Add('org.apache.struts.taglib.html.TOKEN=3dbbb56715ca77de721aaf71d10c5261');
  log.Add('isSubmitted=true');
  log.Add('isInetUser=null');

  log.Add('USERNAME=');
  log.Add('USER_NAME=');
  log.Add('ORIG_URL=');
  log.Add('buser=');
  log.Add('bpath=');
  log.Add('value(jumpTo)=');
  log.Add('value(jumpToUrl)=');

  StrPage:=idhtp1.Post(KSlink,log);
  if pos ('logout', StrPage) <> 0 then
  lbl1.Caption:='Авторизировались'
  else
  lbl1.Caption:='Не авторизировались';
  log.Free;
end;

При нажатии на кнопку "Авторизация" появляется ошибка "IOHandler value is not valid" В чем может быть проблема?

[PhoeniX]

google: IdHTTP HTTPS

[Taemin]

Добавил компонент TIdSSLIOHandlerSocketOpenSSL, в свойстве компонента TIdHTTP - IOHandler указал компонент TIdSSLIOHandlerSocketOpenSSL, скачал RunTimePack библиотеки и установил их. Файлы libeay32.dll и ssleay32.dll из системной папки дополнительно скопировал в папку с проектом... но выскакивает ошибка Could not load SSL Libery. Есть какие-то идеи? Установка RunTimePack ведь должна была решить эту проблему

[PhoeniX]

Из этого файла, из вложенного архива indy_openssl096.zip, вытащи все файлы и засунь в папку с exe. Должно сработать по идее.

[Taemin]

А такими вот запросами я случайно не положу их сайт? Не хочется кому-то добавлять работы

[PhoeniX]

Думаю, что-то сломать там не получится даже при большом желании. Хотя, я всяких программистов видел

[Taemin]

Ошибки уже никакие не выпрыгивают, но и залогиниться не получается

IOHandler -> SSL Options -> Method = sslvSSLv3
IOHandler -> SSL Options -> Mode = sslmClient

Процедура в финишном варианте выглядит вот так:

Код:

procedure TForm1.btn1Click(Sender: TObject);
var
  StrPage,KSlink,TOKEN,OGLYAD,MONEY:string;
  log:TStringList;
begin
  KSlink:=idhtp1.Get('https://my.kyivstar.ua/tbmb/login/perform.do');
  TOKEN:=Copy(KSlink, Pos('org.apache.struts.taglib.html.TOKEN', KSlink)+44, 32);

 log:=TStringList.Create;
 log.Add('org.apache.struts.taglib.html.TOKEN='+TOKEN);
 log.Add('isSubmitted=True');
 log.Add('USERNAME= ');
 log.Add('USER_NAME= ');
 log.Add('ORIG_URL= ');
 log.Add('isInetUser=null');
 log.Add('buser= ');
 log.Add('bpath= ');
 log.Add('user='+edt1.Text);
 log.Add('password='+edt2.Text);
 log.Add('Submit=Вхід в систему');
 log.Add('value(jumpTo)= ');
 log.Add('value(jumpToUrl)= ');

 edt4.Text:=TOKEN;

 sleep(5000);

  OGLYAD:=idhtp1.Get('https://my.kyivstar.ua/tbmb/disclaimer/show.do');
  MONEY:=Copy(OGLYAD, Pos('Мій Київстар', OGLYAD)+0, 500);
  edt3.Text:=MONEY;
  log.Free;

end;

Те параметры, где значение пустое – пробовал вообще без них, пробовал с ними – ничего не меняется. Подскажите в чем может состоять ошибка?