VPF::Проблемы с логином на сайт - Форум программистов

papaP

Дата 10.7.2006, 17:55 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Мастера Delphi!Взываю к вашей помощи.
Вобщем к делу:

Код


   function TForm1.GetUrlContent(
      url: string;
            paramString : String;
            useGet : boolean;
            ): string;
var
   Params : TStringStream;
begin
  Params := TStringStream.Create('');
  IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 2.0.40607)';
  if useGet then
  begin
    Params.WriteString(paramString);
    //IdHTTP1.Options('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 2.0.40607)');
    IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
    IdHTTP1.Request.Method := hmPost;
    IdHTTP1.Post(url,Params);
   end;
  IdHTTP1.CookieManager.CookieCollection.Add;
    result := IdHTTP1.Get(url);
  Params.Free;

        end;
procedure TForm1.Button1Click(Sender: TObject);
const
  Target = 'x(.*)';
Var
  LoginParams,viewState : String;
  r : TRegExpr;
  cook : TCookieCollection;
  f: TextFile;
  response: TStringList;
  i,j : Integer;
  p : TStringList;
begin
  AssignFile(f,'c:\get.html');
  Rewrite(f);
  response := TStringList.Create;
  r := TRegExpr.Create;
  r.Expression := Target;
  IdHTTP1.CookieManager := TIdCookieManager.Create(IdHTTP1);
  IdHTTP1.CookieManager.CookieCollection.Create(IdHTTP1);
  viewState :='dDwyMTQxMjc4NDIxO3Q8O2w8aTwyPjs%2bO2w8dDw7bDxpPDA%'; //ExtractViewState(TIdURI.URLDecode(GetUrlContent('http://www.gotdotnet.ru/','',false,cook)));
  viewState := viewState + '2bOz47bDx0PDtsPGk8NT47aTw2Pjs%2bO2w8d';
  viewState := viewState + 'DxwPHA8bDxWaXNpYmxlOz47bDxvPGY%2bOz4%';
  viewState := viewState + '2bOz47Oz47dDw7bDxpPDA%2bOz47bDx0PDtsP';
  viewState := viewState + 'Gk8MD47PjtsPHQ8O2w8aTwwPjs%2bO2w8dDxw';
  viewState := viewState + 'PHA8bDxUb3RhbFJlY29yZHM7PjtsPGk8MTU%2';
  viewState := viewState + 'bOz4%2bOz47Oz47Pj47Pj47Pj47Pj47Pj47Pj';
  viewState := viewState + '47bDxfY3RsMDpfY3RsMDpfY3RsMDpjaGtQZXJzaXN0Oz4%2bNTsm5BIbhJvxe8DdM%2bvt6Kl0dvg%3d';
  if r.Exec(TIdURI.URLEncode('http://www.gotdotnet.ru/default.aspxpapaP')) then
     LoginParams := '_ctl0:_ctl0:_ctl0:txtUsername='+ r.Match[1]+'&';
  if r.Exec(TIdURI.URLEncode('http://www.gotdotnet.ru/default.aspxXXXXXX')) then
     LoginParams := LoginParams + '_ctl0:_ctl0:_ctl0:txtPassword='+ r.Match[1]+'&';
     LoginParams := LoginParams +'__VIEWSTATE='+ viewState +'&';
  if r.Exec(TIdURI.URLEncode('http://www.gotdotnet.ru/default.aspxВход')) then
     LoginParams := LoginParams + '_ctl0:_ctl0:_ctl0:btnLogin='+ r.Match[1];
  response.Text := GetUrlContent('http://www.gotdotnet.ru/',LoginParams,true,cook);
  response.SaveToFile('c:\get.htm');
  CloseFile(f);
  r.Free;
end;

Вылетаю с ошибкой http 1.1 302 found
Аналогичный код работает под .Net
В чем загвоздка не могу разобрать.
Наедеюсь на помошь
заранее спасибо

_hunter

Дата 10.7.2006, 18:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

HandleRedirrects поставь

--------------------

Tempora mutantur, et nos mutamur in illis...

papaP

Дата 10.7.2006, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Спасибо! ошибка перестала вылетать, однако и логин не происходит. Параметры верные, т.к. в .Net все работает на Ура, че то опять видно упускаю...

Добавлено @ 20:26
да и еще если добавить IdHTTP1.Post(url,Params, aStream), то aStream - пустой. ???

papaP

Дата 10.7.2006, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Получается следующая картина:
-- когда я убираю. строку LoginParams := LoginParams + '_ctl0:_ctl0:_ctl0:btnLogin='+ r.Match[1]; - т.е. программное нажатие на кнопку "вход", то на выходе получаю страничку с заполненным полем логин пароль => вьюстейт работает правильно.
Во т, вопрос остается такой, в .Net передаю следующие параметры для нажатия кнопки - name_кнопки=value_кнопки , может при использовании инди надо по другому передавать?(хотя врядли), а может проблемы с кодировкой?? Перепробовал URLEncode и брал строку, получаемую после перекодировки, юзая .Net все рано astream - пустой!Хелп, Плиз

papaP

Дата 10.7.2006, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Да и еще, когда ввожу НЕВЕРНЫЙ пароль, то возвращает страницу, с красным(типа неправильным) полем пароль!! То есть когда пароль правильный - возвращает куки? и их надо подставить и сделать ГЕТ? Делаю, ничего не выходит... Надеюсь на ВАшу помощь, хотя и сам неплошаю)), дуплю дальше...

Snowy

Дата 11.7.2006, 09:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Ух. Слишком много мест, где может глючить.
Вообще странно, что вообще работает.
Но, если брать часть с запросом, то раз уж ты заполняешь реквест, то и делай DoRequest, а не Post.

Цитата(papaP @ 10.7.2006, 17:55

)

Params := TStringStream.Create('');

Цитата(papaP @ 10.7.2006, 17:55

)

Params.WriteString(paramString);

Params := TStringStream.Create(paramString);

Цитата(papaP @ 10.7.2006, 17:55

)

AssignFile(f,'c:\get.html');

вообще не нужно. Так ты ничего не сохранишь.

Цитата(papaP @ 10.7.2006, 17:55

)

response.SaveToFile('c:\get.htm');

сохраняется без всяких доисторических AssingFile и т.п.

_hunter

Дата 11.7.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

ну и стандартный совет: возьми любой сниффер и сравни что отправляет твоя программа и что отправляет браузер

--------------------

Tempora mutantur, et nos mutamur in illis...

papaP

Дата 11.7.2006, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

DoRequest попробобовал и них... ((
Вообще как бы пост и не должен возвращать нужную страницу, получает гет. т.е. должно работать так:
-постом отправляем запрос,
-получаем куки
-и с использованием оных сделать гет т получить нужную страницу...
Вообще у меня закрадываются сомненье насчет этого ИНДИ..., способ неважен, главное на Delphi.
Простто, кто-нибудь делал программный логин, использую ИНДИ?

Добавлено @ 18:27
Вот то есть как получилдось у меня - при успешном входе получаю пустую страницу, а в хедере переадресацию на другую страницу... А как это обрабатывать в Indy - не знаю...((

papaP

Дата 12.7.2006, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Итак, когда HandleRedirrects=true, не идет переадресовка, ставлю в фалс, вылетаю с ошибкой http 1.1 302 found, короче проблема осталось в онредирект....

Snowy

Дата 12.7.2006, 09:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вот пример авторизации: http://forum.vingrad.ru/index.php?showtopic=81091

mogikan

Дата 12.7.2006, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

А как можно прямо попасть на страницу "Входяшие" из Делфи приложения ? На пример в Маил.Ру Агенте и ГууглТалке есть такой возможность.
Если можно с примерами smile

papaP

Дата 12.7.2006, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Если ты имеешь ввиду мыло, то проблем никаких - юзай TIdPOP.
Вот небольшой пример:

Код


          IdPOP.Port := 110
          IdPOP.Username := 'test';
          IdPOP.Host :=  'pop.mail.ru';
          IdPOP.Password := 'test';
      try
        IdPOP.Connect;
      except
      end;

papaP

Дата 12.7.2006, 17:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Snowy, спасибо! на vingrad логинюсь без проблем, а вот на gotdotnet, где юзается вьюстейт не получается... покаместь

papaP

Дата 12.7.2006, 17:52 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Итак вот код:

Код


var
  str,str2:TStringList;
  ms: TMemoryStream;
  viewState : String;
begin
  str:=TStringList.Create;
  str2:=TStringList.Create;
  ms := TMemoryStream.Create;
  IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 2.0.40607)';
  viewState :='dDwyMTQxMjc4NDIxO3Q8O2w8aTwyPjs+O2w8dDw7bDxpPDA+';
  viewState := viewState + 'Oz47bDx0PDtsPGk8NT47aTw2Pjs+O2w8dDxwPHA8bDxWaXNpYmxlOz47bDxvPGY+';
  viewState := viewState + 'Oz4+Oz47Oz47dDw7bDxpPDA+Oz47bDx0PDtsPGk8MD47PjtsPHQ8O2w8aTwwPjs+';
  viewState := viewState + 'O2w8dDxwPHA8bDxUb3RhbFJlY29yZHM7PjtsPGk8MTU+Oz4+Oz47Oz47Pj47Pj47P';
  viewState := viewState + 'j47Pj47Pj47Pj47bDxfY3RsMDpfY3RsMDpfY3RsMDpjaGtQZXJzaXN0Oz4+NTsm5BIbhJvxe8DdM+vt6Kl0dvg=';
 // str.Add('referer=');
  str.Add('_ctl0:_ctl0:_ctl0:txtUsername=papaP');
  str.Add('_ctl0:_ctl0:_ctl0:txtPassword=!!!!!!!!');
  str.Add('__VIEWSTATE='+ viewState);
  str.Add('_ctl0:_ctl0:_ctl0:btnLogin=');
  str.Add('CookieDate=1');
  try
//  [URL=http://forum.vingrad.ru/index.php?act=Login&CODE=01]http://forum.vingrad.ru/index.php?act=Login&CODE=01[/URL]
 //   IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
    IdHTTP1.Post('http://www.gotdotnet.ru/default.aspx', str, ms);
    ms.Position := 0;
    str2.LoadFromStream(ms);
    str2.SaveToFile('c:\1.htm');
  finally
    ms.Free; str.Free;
  end;
end;

На выходе получаю пустую страницу ((( - ума уже не приложу что делать
все, что можно повключал, то есть:HandleRedirrects := true, печенюшки добавил

papaP

Дата 12.7.2006, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Да и еще раз - под дот нет ВСЕ пашет!!!!! Редирект мне как раз в тру ставить и не нужно, тк там идет переадрессация, но ставя его в фалс - болт, получаю 302 эксепшон!!! может через этот инди-ху..ди вообще нельзя логинится на страницах где есть переадрессация??

Snowy

Дата 13.7.2006, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Количество редиректов можно уменьшить, назначив TIdHttp.RedirectMaximum := ...

papaP

Дата 13.7.2006, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Искреннее спасибо всем, кто помогал мне, но походу этот ИНДИ - полное г..но(а может конечно и у меня руки не оттуда растут), но я всегда относился к полной "автоматике" с подозрением. Ладно, это все лирика и возможно усталость от того, что над проблемой, которая не стоит выеденного яйца бьюсь уже ... неделю.
Snowy, огромнейшая просьба к Тебе! вот тестовый логин на http://www.gotdotnet.ru/:
testLogin
test
вот мой код:

Код


function TForm1.ExtractViewState(content: String): String;
var
  rViewState:   TRegExpr;
begin
  Result := '';
  rViewState := TRegExpr.Create();
  rViewState.ModifierI := true;
   rViewState.Expression := 'name=\"__VIEWSTATE\"\svalue=\"([\dA-Za-z\+\=\-]+)\"';
  if rViewState.Exec(content) then
  begin
       Result := Result + rViewState.Match[1];
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  str,str2:TStringList;
  ms: TMemoryStream;
  viewState : String;
begin
  str:=TStringList.Create;
  str2:=TStringList.Create;
  ms := TMemoryStream.Create;
  IdHTTP1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 2.0.40607)';
  viewState := HTTPEncode( ExtractViewState(IdHTTP1.Get('http://www.gotdotnet.ru/')));
  str.Add('_ctl0:_ctl0:_ctl0:txtUsername=testLogin');
  str.Add('_ctl0:_ctl0:_ctl0:txtPassword=test');
  str.Add('__VIEWSTATE='+ viewState);
  str.Add('_ctl0:_ctl0:_ctl0:btnLogin='+ HTTPEncode('Вход'));
 try
   IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
   IdHTTP1.Post('http://www.gotdotnet.ru/', str, ms);
   ms.Position := 0;
   str2.LoadFromStream(ms);
   str2.SaveToFile('c:\1.htm');
 finally
     ms.Free; str.Free;
 end;
end;

для HTTPEncode подключаю HTTPapp,
на форму кинул печенюшки и связал их с моим idHTTP1
HandleRedirects := true
hoForceEncode := true

И наконец,получаемый результат:
пустая страница, а если изменить пароль или логин на неверный, то страница с заполненным полем логин и красным полем пароль.

Буду очень признателен, если ты проверишь у себя... Если и ты получишь такой же как у меня результат, то все перестану мучаться с ИНДИ.
Большое спасибо, еще раз извини, что отнимаю время.

Это сообщение отредактировал(а) Girder - 13.7.2006, 16:54

papaP

Дата 13.7.2006, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Вот что сниффер показывает после отправки метода пост:
HTTP/1.1 302 Found
Connection: keep-alive
Date: Thu, 13 Jul 2006 15:36:43 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
X-AspNet-Version: 1.1.4322
Location: /Default.aspx
Set-Cookie: GDNAuth=EDB186FB9E6577756470358A50B039C3B504012D9B7D10CB8AA7DDB0060C58E57A5203895F2A2792CB02CCB37108724307980379F524EBBBFEC89DDBA69DDE9784C5116F7455C05C; domain=gotdotnet.ru; path=/;HttpOnly
Cache-Control: public, max-age=5
Expires: Thu, 13 Jul 2006 15:36:46 GMT
Last-Modified: Thu, 13 Jul 2006 15:36:41 GMT
Vary: *
Content-Type: text/html; charset=windows-1251
Content-Length: 130

papaP

Дата 13.7.2006, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Так, вот еще взял строку параметров из сниффера(в смысле когда логинюсь на сайт со странички) вставил эту строку в пост и запустил... получил все ту же пустую страницу. Посмотрел, что получаю(предыдущий мой пост), та вот как я понял что в Idhttp стоит ексепшон на строку HTTP/1.1 302 Found! Вот он ее встечает и дальше не идет, то есть соответственно печенюшки мы не получаем.
Щас думаю взять сорс этого модуля и переделать...

mogikan

Дата 13.7.2006, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(papaP @ 12.7.2006, 16:28)

Если ты имеешь ввиду мыло, то проблем никаких - юзай TIdPOP.

IdPOP компонент не нуждаеться в етом программе. Програм должен открыт почту через WebMail. В етот системах нет РОР сервер smile

В ГуглТалке тоже есть такой вешш. Когда кликните на надпис автоматически открывается ссылка веб почту.

papaP

Дата 14.7.2006, 06:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Цитата(mogikan @ 13.7.2006, 20:57)

Цитата(papaP @ 12.7.2006, 16:28)

Если ты имеешь ввиду мыло, то проблем никаких - юзай TIdPOP.

В ГуглТалке тоже есть такой вешш. Когда кликните на надпис автоматически открывается ссылка веб почту.

Я в делфах сильно разочаровался... Но если у тебя не стоит условие, что реализовать ТОЛЬКФО на Делфах - могу помочь решить твою проблему на СИ шарпе

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