Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.07.2007, 03:31   #1
infected
Новичок
Джуниор
 
Регистрация: 08.07.2007
Сообщений: 1
По умолчанию хттп перехват

Bопрос:
как в делфи перехватить входящие пакеты ?
как отправить пакет на сервер ?

Подскажите plz



что хочу сделать:
Есть сайт на катором есть 2 поля логин и пароль...есть список акк:пароль
нужно сделать прогу ,каторая будет проверять рабтает аккаунт или нет или нет...
1)программа отсылает пакет(вход)


POST http://www.lineage.ru/cgi/l2isapi.dll/l2login HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-ms-application, application/vnd.ms-xpsdocument, application/xaml+xml, application/x-ms-xbap, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Referer: http://www.lineage.ru/cgi/l2isapi.dll/l2login
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
UA-CPU: x86
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; .NET CLR 3.0.04506)
Proxy-Connection: Keep-Alive
Content-Length: 78
Host: www.lineage.ru
Pragma: no-cache
Cookie: testCookie=1

SAVEURL=&SERVER=4&account=aaaaaaaaa aa&pass=bbbbbbbbbbbb&submit=%C2%EE% E9%F2%E8GET http://www.site.ru/img/line_sp.jpg HTTP/1.1
Accept: */*
Referer: http://www.site.ru/cgi/l2isapi.dll/l2login
Accept-Language: ru
UA-CPU: x86
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; .NET CLR 3.0.04506)
Proxy-Connection: Keep-Alive
Host: www.site.ru
Cookie: testCookie=1
parseOne('apache_1','apache')


если пароль не правильный ,то возвращаеться пакет:
пакет
HTTP/1.1 200 OK
Date: Sat, 07 Jul 2007 22:51:24 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Content-Type: text/html
Content-Length: 3887

HTTP/1.1 404 Not Found
Content-Length: 1635
Content-Type: text/html
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Date: Sat, 07 Jul 2007 22:51:24 GMT
parseOne('apache_2','apache')


если правильный то
HTTP/1.1 200 OK
Date: Sat, 07 Jul 2007 22:58:14 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Set-Cookie: L2CPSSN=zuqttc6ntfcompwv1s27dptvukb aftxuaf7pbtjhjkctrxws7yjs5kft60ca1g 1h; expires=Sun, 08 Jul 2007 08:58:14 GMT
Content-Type: text/html
Content-Length: 3582
HTTP/1.1 200 OK
Content-Length: 464
Content-Type: text/css
Last-Modified: Wed, 01 Nov 2006 07:52:22 GMT
Accept-Ranges: bytes
ETag: "6414d8a98afdc61:35a"
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Date: Sat, 07 Jul 2007 22:58:14 GMT
HTTP/1.1 404 Not Found
Content-Length: 1635
Content-Type: text/html
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
Date: Sat, 07 Jul 2007 22:58:14 GMT
parseOne('apache_3','apache')


программа будет сравнивать длину входящего пакета,если в пакете меняше 300 символов то пароль не провельный,если больше то правильный


Если есть лудше способ для проверки аккаунта,то распишите плз
infected вне форума Ответить с цитированием
Старый 09.07.2007, 07:58   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Зачем так глубоко копать.
Indy
IdHttpClient
метод get
анализируйте полученную строку и все
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перехват клавиатуры Ferro Общие вопросы Delphi 3 25.03.2010 21:02
API перехват Irat Помощь студентам 13 11.02.2008 12:04
Перехват события juden Общие вопросы Delphi 5 23.05.2007 12:21
Обойти ХТТП:// .... _Solomon_ Работа с сетью в Delphi 1 28.03.2007 10:08
Перехват данных Socol Работа с сетью в Delphi 1 19.02.2007 13:47