Сниффер ВебДебаггер на делфи

[tromani]

Всем привет помогите решить проблему

Есть задача отловить определенный пакет который уходит по TCP внести в него изменения и отправить дальше по назначению

Уже перегуглил все что можно нашел 5 примеров сниферов, в этих примерах скомпилированные ехе работают но есть проблема, видимо они писанные на старых версиях делфи типа Д7 у меня ХЕ6 там вроде компилиться все но после этого не работает, пример наиболее перспективный на мой взгяд приложил. В общем если кто подскажет что с этим всем делать дальше

[Heneken87]

А чем вас не устраивают уже готовые снифферы? Или принципиально нужен свой и на Delphi? Сори за офтоп.

[tromani]

да, нужен свой

[tromani]

ну и к томуже всетаки принципиально задача интересная, для понимания что куда и как происходит

[Shouldercannon]

Delphi XE 10.1 не нравится

Addr_in.sin_addr.s_addr := inet_addr(PChar(Host));

Переделав

Addr_in.sin_addr.s_addr := inet_addr(PAnsiChar(AnsiString(Host)));

Получаем Access violation, имена сетевух в крикозябрах, но сниффер работает.

[tromani]

да там еще где array of char поменяйте на AnsiChar и все будет норм
только запускайте делфи от имени администратора иначе тоже работать не будет с этим я уж разобрался. с этими мелочами проблем нет, как поменять запрос и отправить его дальше вот в чем вопрос, ну в том смысле как поменять я себе представляю что сделать чтоб дальше ушло изменное содержание

[Aliens_wolfs]

Чтобы передавать пакеты дальше вам нужно отлавливать handle сокета жертвы, а это уже нужно делать Hook на ловлю пакетов и отправку в программе которая работает с нужным пакетом.
Вот тут есть кое что http://www.programmersforum.ru/showthread.php?t=281096

Просто так сниффером не получиться сделать подмену пакетов, тем более TCP.