[ZXCCXZ]

Здравствуйте, возникла необходимость перенаправлять пакеты одного приложения на другой адрес.

Есть программа, которая подключается к серверу (по IP xx.xx.xx.xx, к порту 80).

Программа отправляет определённый пакет и получает в ответ другой пакет. Я напишу эмулятор сервера, но вот как перенаправить отосланный приложением пакет на нужный IP/порт?

[Bargest]

Адрес задан статически в программе? Тогда можно модифицировать эту программу вручную при помощи любого HEX-редактора и, если понадобится, дизассемблера для анализа. По мне - было бы самым простым и надёжным решением.
В теории можно сделать че-нить по типу сниффера, но эту тему я почти не шарю.

[ZXCCXZ]

Программа запакована с помощью Themida. Вряд ли удастся найти там IP и заменить его Нужно именно отлавливать и перенаправлять пакеты)

[Gravitas]

Можно попробовать отснифать айпи, куда посылается пакет. Потом пошалить в хостс, и вот вам перенаправление. Только вот порт вряд ли получится изменить...

[ZXCCXZ]

Сообщение от Gravitas.

Можно попробовать отснифать айпи, куда посылается пакет. Потом пошалить в хостс, и вот вам перенаправление. Только вот порт вряд ли получится изменить...

Да, перенаправление нужно на конкретный адрес и конкретный порт.

[Gravitas]

Ну вы погуглите, может возможно и порт через хостс перенаправить.

[ZXCCXZ]

Всё же это не будет полным решением, даже если я смогу настроить такое перенаправление через hosts. Мне нужно перенаправлять пакеты конкретной одной программы, а не всех.

[ZXCCXZ]

Ап теме, всё ещё требуется помощь в написании сниффера на Delphi.

[Gravitas]

На счет сниффера:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

program Project2; {C@T}   {$APPTYPE CONSOLE}    uses    Windows,WinSock;    Function GetLocalIP : String;//получаем свой локальный IP Var WSAData: TWSAData;      P: PHostEnt;      Name: array[0..$FF] of Char; Begin    WSAStartup($0101, WSAData);    GetHostName(Name, $FF);    P := GetHostByName(Name);    Result := inet_ntoa(PInAddr(P.h_addr_list^)^);    WSACleanup; End;    procedure DoSnifer; var    S:TSocket;    Adr:TSockAddr;    W:WSAData;    flag,count:integer;    a:array[0..262144] of byte;    f:Cardinal;    nw:Cardinal;    begin     WSAStartup(MakeWord(2,2),W);  S:=socket(AF_INET,SOCK_RAW,IPPROTO_IP);//создаем сырой сокет  ZeroMemory(@Adr,sizeof(Adr));  Adr.sin_family:=AF_INET;//заполняем структуру адреса  Adr.sin_addr.S_addr:=inet_addr(pchar(GetLocalIP));//выбираем сетевой интерфейс который будем слушать  bind(S,Adr,sizeof(Adr));//стартуем сервер  flag:=1;  ioctlsocket(S,$98000001,flag);//убираем блокировку сокета     f := CreateFile('Log.txt',GENERIC_ALL,0,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);//создаем файл    While true do    begin      count:=recv(S,A,sizeof(A),0);//получаем пакет данных      if count > 0 then        WriteFile(f,a,count,nw,0);//сохраняем эти данные в файл    end;  CloseHandle(f);  closesocket(S);  WSACleanup; end;    var     id:cardinal;     thr:Cardinal; begin    thr := BeginThread(nil,0,Addr(DoSnifer),nil,0,id);//запускаем сниффер в отдельном потоке чтобы не висла прога, и можно было выйти    Writeln('Press Enter To Exit');    readln; end.

Но это без перенаправления.