AppSniff (Custom Packetsniffer)

[endeffects]

Hallo,

ich bin grad über folgenden Beitrag hier im Forum gestoßen:

http://www.delphipraxis.net/internal...iffer&start=15

Es geht dabei um den PacketSniffer AppSniff der sich in die Winsock
einklinkt um die Traffic zu überwachen. Ein Mitglied hat in diesem
Beitrag eine Lite-Version zusammengebastelt auf die ich gerne
aufsetzen möchte (siehe Anhang).

http://madshi.net/madCollection.exe - wird benötigt

In der aktuellen Version gibt die Lite Version leider lediglich
die Api Function Calls aus.

Zitat:

Hook - API: "recv " used.
Hook - API: "sendto " used.
Hook - API: "recvfrom " used.

Delphi-Quellcode:

Function TfrmMain.MessageHandler( Var Message: TMessage): Boolean;
Begin
   Try
      Result   := False;
      If ( Message.Msg = WM_Winsock2HookMSG ) Then Begin
         SetHookMessage( 'Hook - API: "' +
                                 GetEnumName( TypeInfo( WS2_Socket_Funktion), Message.WParam ) +
                                 ' " used.'  );
         Result := True;
      End;
   Except
      On Error:   Exception Do Begin
         Error.Message   := 'MessageHandler - Error:'#13#10 + Error.Message;
         Raise;
      End;
   End;
End;

Ich möchte aber die Packete die zu einem bestimmten Server gehen/kommen
in einem Memo ausgeben. Da der AppSniff Source sehr unübersichtlich ist
und mir einige DCUs fehlen hoffe ich das mir Jemand zeigen kann
wie genau ich die Pakete filtern und ausgeben kann.


MfG