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