[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.

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