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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> idhttp с авторизацией 
:(
    Опции темы
AlexeyShestchenko
Дата 10.2.2008, 07:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



читал топики на по этой теме но ничего не выходит :(
есть страничка на login.asp

вот код страницы
Код


           <FORM METHOD="post">
  <table border="0" cellpadding="0" cellspacing="0" width="422"
style="font-family: Arial, MS Sans Serif; font-size: 8pt">
    <TR>
        <TD ALIGN="right" valign="top"><b>User Name:</b></TD>
        <TD>&nbsp<INPUT TYPE="text" NAME="txtUserName" size="20" value=""><p></INPUT></TD>
    </TR>
   
    <TR>
        <TD ALIGN="right" valign="top"><b>Password:</b></TD>
        <TD>&nbsp<INPUT TYPE="password" NAME="txtpassword" size="20" value=""><p></INPUT></TD>
    </TR>
    <TR>
        <TD ALIGN="right"></TD>
        <TD>
<input type="hidden" name="Flag" value=2><INPUT TYPE="submit" VALUE="Login!!" name="cmdLogin"></INPUT>
            </INPUT>
        </TD>
    </TR>
</TABLE>
</FORM>



Код

procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
begin
  lData := TStringList.Create;
  http := TIdHTTP.Create(nil);
  HTTP.Request.BasicAuthentication:=True;
  try
    lData.Add('txtUserName=12');
    lData.Add('txtpassword=12');
   HTTP.Post('http://www.mysite.ru/panel/login.asp', lData);
   AdvMemo1.Lines.Text := http.Get('http://www.mysite.ru/panel/main.asp');
  finally
    lData.Free;
  end;
  http.Free;
  AdvMemo1.Lines.SaveToFile('c:\xz.html');
end;


возращает просто страницу http://www.mysite.ru/panel/login.asp

у вас много опыта, подскажите че делать.


PM MAIL   Вверх
MetalFan
Дата 10.2.2008, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



посмотри с пом.какого-нибудь софта, что реально отсылает браузер при авторизации. я для этих целей испjльзую бесплатный и мощны й Fiddler2


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
tratata
Дата 10.2.2008, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



    lData.Add('txtUserName=MyName');
    lData.Add('txtpassword=MyPass');
    lData.Add('Flag=2');
    lData.Add('cmdLogin=Login!!');

Вродь так должно ехать -)
PM MAIL   Вверх
AlexeyShestchenko
Дата 10.2.2008, 14:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



не фурычит, например если ввести пароль не правильно,то редиректа не будет,он показывает ошибку на той же  login.asp,но я и ее получить не могу.
var lData: TStringList;
begin
  lData := TStringList.Create;
  http := TIdHTTP.Create(nil);
    HTTP.HandleRedirects := True;
  HTTP.ProtocolVersion := pv1_0;
  HTTP.ProtocolVersion := pv1_0;
  HTTP.Request.BasicAuthentication:=True;

  try
    lData.Add('txtUserName=anн');
    lData.Add('txtpassword=any');
    lData.Add('Flag=2');
    lData.Add('cmdLogin=Login!!');
    HTTP.Post('http://www.site.ru/login.asp', lData);
   AdvMemo1.Lines.Text := http.Get('http://www.site.ru/login.asp');


  finally
    lData.Free;
  end;
  http.Free;
  AdvMemo1.Lines.SaveToFile('c:\xz.html');
PM MAIL   Вверх
MetalFan
Дата 10.2.2008, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



попробуй вместо TStringList запользовать индийски TIdMultipartFormData


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
AlexeyShestchenko
Дата 10.2.2008, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



txtUserName=123&txtpassword=fff&Flag=2&cmdLogin=Login%21%21

вот что передает
PM MAIL   Вверх
bagos
Дата 10.2.2008, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1



подсобите люди!
мне тоже это интересно)


Это сообщение отредактировал(а) bagos - 10.2.2008, 16:38
PM MAIL   Вверх
MetalFan
Дата 10.2.2008, 16:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



а теперь проверь, что передает твоя программа (есть у idHTTP возможность настройки прокси)
и добейся идентичности


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
bagos
Дата 10.2.2008, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 1



из IE 
txtUserName=f&txtpassword=d&Flag=2&cmdLogin=Login%21%21

из программы
----------021008170015796
Content-Disposition: form-data; name="txtUserName"

f
----------021008170015796
Content-Disposition: form-data; name="txtpassword"

d
----------021008170015796
Content-Disposition: form-data; name="Flag"

2
----------021008170015796
Content-Disposition: form-data; name="cmdLogin"

Login!!

----------021008170015796--



не фурычит :(

Добавлено через 12 минут и 32 секунды
все получилось наконец таки smile
спасибо за ответы!
PM MAIL   Вверх
AlexeyShestchenko
Дата 11.2.2008, 03:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



настранице есть кнопка, по нажатию которой открывается новое маленькое окошко с данными
<form>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="middle">
<INPUT TYPE="button" NAME="butt1" VALUE="OK" onClick="OK()" class="button">
</td><td valign="middle"><b>Put me</b>
<td>
</tr>
</table>
</form>


как мне нажать на нее и получить данные из того окошка не пойму :(
PM MAIL   Вверх
AlexeyShestchenko
Дата 11.2.2008, 03:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет



+функция OK() содержится в самой странице,но она кривая не понятная...

Код

function ip_port()
{ 
  NW = window.open('','newwin','location=0,status=0,toolbar=0,menubar=0,resizable=1,scrollbars=1, width=200, height=500');
  NW.document.write('<html>');
  NW.document.write('<head>');
  NW.document.write('<meta http-equiv="Content-Type" content="text/html; charset="windows-1251">');
  NW.document.write('<title>info page</title>');
  NW.document.write('</head>');
  NW.document.write('<body>');
  for (i=0; i < X4oV7z.length; i++){
      kfMoG0R = X4oV7z[i].split("|");
        NW.document.write(kfMoG0R[0]+'<br>');
  }
  NW.document.write('</body>');
  NW.document.write('</html>');
  NW.document.close;
}

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




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


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

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