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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> заполнение формы, метод Post 
V
    Опции темы
Dr.Drunk
  Дата 18.4.2007, 17:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
Доброго времени суток.

Перерыл весь форум, нашел, сделал но не получилось smile 

Нужно заполнить форму.
Код

<form action='http://www.wmmail.ru/index.php' method=post name='enter' id='enter'>
     <INPUT type="text" value="" name="ulogin" size="11" class="registr">
     <INPUT type="password" value="" name="pass" size="11" class="registr">
     <INPUT type="image" border="0" name="imageField" src="imgs/but_login.gif" alt="кнопка ввода" width="75" height="21">
</FORM>



делаю так
Код

procedure TForm1.Button1Click(Sender: TObject);
var
//    Str            : String;
    Response    : TStringStream;
    Request        : TStrings;
begin
    Log.Lines.Clear;
    Request        := TStringList.Create;
    Response    := TStringStream.Create('');

//    Request.Add('Content-Type: application/x-www-form-urlencoded ');
    Request.Add('ulogin=drunk');
    Request.Add('pass=drunk');
    Request.Add('imageField.X=2&imageField.Y=2');

    try
     //    MyHTTP.Request.Referer:= 'http://www.wmmail.ru/index.php/';
        MyHTTP.Post('http://www.wmmail.ru/index.php/', Request, Response);
        Log.Lines.Clear;
        Log.Lines.Text := Response.DataString;
    except
        Application.MessageBox('Ошибка отправки запроса','Ошибка',1);
    End;

end;



и не работает...
помогите, кто чем может  smile 
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
Snowy
Дата 18.4.2007, 18:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 53
Всего: 484
А что именно не работает?
В чём это проявляется?
PM MAIL   Вверх
Dr.Drunk
Дата 19.4.2007, 06:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
Snowy,  авторизация не проходит...

на форме есть еще три хиден поля, в двух из которых значения меняются после каждого рефреша страницы :(
Код

  Request.Add('cf=akk-login');
  Request.Add('lvb=6');
  Request.Add('lvd=93116a62d6a3ccc62019787427746467');


Это сообщение отредактировал(а) Dr.Drunk - 19.4.2007, 06:37
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 19.4.2007, 08:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Dr.Drunk, ответ стандартный, к сожалению - посмотри, что отправляет браузер и что он принимает. Скорее всего - он как-раз отправляет эти скрытые поля... Вид примитивной защиты от подобных программ =))))


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 19.4.2007, 09:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
aktuba, я тоже эти поля отправляю, но в браузере работает, а у меня нет :(

еще вопросик, а чем можно посмотреть, что браузер отправляет?
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 19.4.2007, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

еще вопросик, а чем можно посмотреть, что браузер отправляет? 


HTTPTracer, HTTP Debuger и т.д... программ много, ищи...

P.S.: еще и куки возможны...

Это сообщение отредактировал(а) aktuba - 19.4.2007, 10:04


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 20.4.2007, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
aktuba,  несколько не по теме, но спрошу...
 поставил HTTP Debugger, но он не отлавливает мою программу =(( 
IE ловит, а мою нет...
при этом программа, ответ с сервера получает =(


--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 20.4.2007, 07:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

aktuba,  несколько не по теме, но спрошу...
 поставил HTTP Debugger, но он не отлавливает мою программу =(( 
IE ловит, а мою нет...
при этом программа, ответ с сервера получает =(


Если это программа SoftX HTTP Debagger, то нажми первую вверху кнопку и выбери свое приложение. На край - скинь исходники, я у себя посмотрю...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 20.4.2007, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
Цитата(aktuba @  20.4.2007,  07:43 Найти цитируемый пост)
Если это программа SoftX HTTP Debagger, то нажми первую вверху кнопку и выбери свое приложение. На край - скинь исходники, я у себя посмотрю... 

 не поверишь, так и делаю =(

исходники ...

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  WmMail.rar 6,06 Kb
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 20.4.2007, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
 smile мда... говоришь, смотрел, что браузер отправляет??? и где ты там кавычки увидел? а большие X и Y где увидел? В общем, исправь и все будет работать:

Код

    Request.Add('cf=akk-login');
    Request.Add('lvb=' + lvb);
    Request.Add('lvd=' + lvd);
    Request.Add('ulogin=drunk');
    Request.Add('pass=drunk');
    Request.Add('imageField.x=2&imageField.y=2');


Это сообщение отредактировал(а) aktuba - 20.4.2007, 09:35


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 20.4.2007, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
aktuba,  X и Y, я в книжке "вумной" по PHP увидел  smile 

исправил, все равно пишет: "Необходимо авторизироваться"

кстати, HTTP Debugger  у меня только заголовок запроса показывает, сдается мне потому что метод POST

Это сообщение отредактировал(а) Dr.Drunk - 20.4.2007, 17:14
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 21.4.2007, 03:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

исправил, все равно пишет: "Необходимо авторизироваться"


У меня пишет, что сменился IP пользователя...

Цитата

кстати, HTTP Debugger  у меня только заголовок запроса показывает, сдается мне потому что метод POST


 smile А при чем тут Post??? Просто ты сам разрешаешь использовать gzip, вот и передаются в сжатом формате =)


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 21.4.2007, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
Цитата(aktuba @  21.4.2007,  03:13 Найти цитируемый пост)
У меня пишет, что сменился IP пользователя...
  smile 
странно, а  Debugger программу отловил??? 
Цитата(aktuba @  21.4.2007,  03:13 Найти цитируемый пост)
А при чем тут Post??? Просто ты сам разрешаешь использовать gzip, вот и передаются в сжатом формате =)
 
возможно, покажусь глупым, а как gzip запретить, и главное где я его разрешаю? если даже с браузера я в запросе не вижу передаваемых полей =(

Это сообщение отредактировал(а) Dr.Drunk - 21.4.2007, 14:52
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 21.4.2007, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

странно, а  Debugger программу отловил??? 


Да...

Цитата

возможно, покажусь глупым, а как gzip запретить, и главное где я его разрешаю? если даже с браузера я в запросе не вижу передаваемых полей =(


Закладка Request Preview.




--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 22.4.2007, 07:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
Цитата(aktuba @  21.4.2007,  16:56 Найти цитируемый пост)
Закладка Request Preview.

Request Detail у меня
когда дебаг проги делаю, ни одной записи в логе не появляется(
вот чтот мне пишет когда с бразера ловлю:
Код

POST /index.php HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*
Referer: http://www.wmmail.ru/index.php
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
Host: www.wmmail.ru
Content-Length: 102
Connection: Keep-Alive
Pragma: no-cache
Cookie: wmmail=00f9b70a9235008bd0ddaebfa6b36954; b=b; hotlog=1

The content is not viewable (binary data).

--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 23.4.2007, 05:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Ты издеваешься? Это ты показываешь содержимое закладки Request Details, а я тебе сказал смотреть в Request Preview...
Кроме того, я же тебе уже сказал где что исправить. Не получается - выкладывай полностью код (в аттаче)...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 1.5.2007, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
aktuba,  извини, но я не издеваюсь, просто не нашел указанной тобой закладки.
А все что ты указал, я исправил, кстати, спасибо, что тратишь на меня время  smile 
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 1.5.2007, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

aktuba,  извини, но я не издеваюсь, просто не нашел указанной тобой закладки.
А все что ты указал, я исправил, кстати, спасибо, что тратишь на меня время  smile  


Но теперь то нашел?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 2.5.2007, 07:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
нашел, только HTTP Debugger прогу мою не ловит может у меня версия старая (

на всякий случай кинул исходники

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  WmMail.rar 5,93 Kb
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 2.5.2007, 08:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

нашел, только HTTP Debugger прогу мою не ловит может у меня версия старая 


Да ловит она все!!! Ладно, попробуем с другой стороны =)))) Возьми твой поправленный немного код в аттаче и проверь  smile 



Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  WmMail.zip 9,47 Kb


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 3.5.2007, 07:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
проверил =(

при открытии проекта матюкнулся на неизвестные свойства MaxLineAction, ReadTimeout, AllowCookies, ProxyParams и тд.

Кстати, а что за модуль в проекте ExceptionLog на него говорит, что такого не существует =(

З.Ы. сдается мне, что Инди нужно обновить :(
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 3.5.2007, 08:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

при открытии проекта матюкнулся на неизвестные свойства MaxLineAction, ReadTimeout, AllowCookies, ProxyParams и тд.


Да, видимо у тебя Indy 9, а у меня Indy 10. В принципе - исправления там не большие - убери в инспекторе и в коде упоминания про gzip:

Код

MyHTTP.Request.Referer:= 'http://www.wmmail.ru/';
MyHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
MyHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)';
MyHTTP.Request.ContentLanguage:='ru';
MyHTTP.Request.Accept:='image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/msword, */*';
MyHTTP.Request.AcceptLanguage:='ru';


user posted image

Цитата

Кстати, а что за модуль в проекте ExceptionLog на него говорит, что такого не существует =(


Это тоже можно убрать =))))

P.S.: перекомпилил в D7 и приложил...

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  WmMail.zip 106,93 Kb


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 4.5.2007, 06:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
убрал, исправил ничего не изменилось.

не верю я в такие чудеса =( уже и антивирь отрубал, а дебаггер не ловит его прогу)  smile 

--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 4.5.2007, 22:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

не верю я в такие чудеса =( уже и антивирь отрубал, а дебаггер не ловит его прогу) 


А при чем тут антивирь??? Значит не убрал! Код, который я приложил - проверил? Там все точно работает!


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 29.5.2007, 19:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
aktuba, да все заработало, спасибо, что потратил на меня время.

все оказалось проще, нужно было запрос заполнять одной строкой через "&", а не через Add каждый параметр.

 smile


Это сообщение отредактировал(а) Dr.Drunk - 29.5.2007, 19:37
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
aktuba
Дата 30.5.2007, 00:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38
Цитата

все оказалось проще, нужно было запрос заполнять одной строкой через "&", а не через Add каждый параметр.


А разницы быть не должно =))) У меня же работало и так =)))


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Dr.Drunk
Дата 30.5.2007, 07:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 179
Регистрация: 12.1.2004
Где: Волжский

Репутация: нет
Всего: нет
наверно, из-за разницы версий инди, а там хз)
--------------------
_Theory_ is when you know everything but nothning works._Practice_ is when everything works but no one knows why._IN THIS PLACE_ we're combining theory and practice -nothing works and no one knows why!
PM MAIL WWW ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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