VPF::Перехватить УРЛ - Форум программистов

SyncMaster

Дата 1.11.2010, 07:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет.

Вопрос такой, как в дельфи перехватить УРЛ из браузеров.
Например, браузер отправляет урл – google.ru программа перехватывает и блокирует урл при этом переадресовывает на другую страницу или урл.

Такое можно наблюдать в антивирусе Касперского.

Хотелось бы примерчик, или инфу.

Скрин

Qu1nt

Дата 1.11.2010, 09:39 (ссылка)

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

Загрузка ...

Опытный

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

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

Самый простой способ.

casinosoftguru

Дата 1.11.2010, 11:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Грубо говоря хукаешь вот так

Код


HookProc('ws2_32.dll', 'recv', @Nrecv, @Trecv);
HookProc('ws2_32.dll', 'send', @Nsend, @Tsend);
HookProc('ws2_32.dll', 'WSARecv', @NWSARecv, @TWSARecv);
HookProc('ws2_32.dll', 'WSASend', @NWSASend, @TWSASend);

в качестве третьего и четвертого параметров идут твои функции обработки перехвата
например

Код


Tsend: function (s: TSocket;
                  Buf: pChar;
                  len, flags:
                  Integer): Integer; stdcall;

Код


function Nsend(s: TSocket; Buf: pChar; len, flags: Integer): Integer; stdcall;
begin
    asm
      pushad
   end;
if len >= 64 then
    begin
    
      if (strposA(Buf, pAnsiChar('Host: www.google')) <> nil)

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

SyncMaster

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

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

Загрузка ...

Новичок

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

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

А что тут такого секретного? мне это надо не для хакинга -

вот сделал, скрин -

осталось только заблокировать этот урл и будет то что надо.

Это сообщение отредактировал(а) SyncMaster - 1.11.2010, 17:58

SyncMaster

Дата 8.11.2010, 16:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(casinosoftguru @ 1.11.2010, 11:09)

Код


function Nsend(s: TSocket; Buf: pChar; len, flags: Integer): Integer; stdcall;
begin
    asm
      pushad
   end;
if len >= 64 then
    begin
    
      if (strposA(Buf, pAnsiChar('Host: www.google')) <> nil)

Ага я так и сделал примерно, только вот с этого место можно по подробней -

SyncMaster

Дата 9.11.2010, 20:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Тут стал замечать что ИЕ - ФФ и Хром падают когда я захожу по запрещеному урл.

Заметил такую тему (кстати в опере нормально работает но юзает фунцию WSASend и WSARecv) если получить запросы от клинта и запрос от сервера то ужас.

От клиента все нормально а вот от сервера получается ерунда какая та типа -

TP/1.1 200 OK и.т.д то есть каие то закарючки и.т.д.

в Опере все нормально.

Это сообщение отредактировал(а) SyncMaster - 9.11.2010, 20:49

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