Packet-Sniffer

[thomasschaf]

Hallo,

ich versuche, einen Packet-Sniffer zu bauen.

Dabei benutze ich diese Vorlage.

Habe mir dazu eine Form gebastelt, "On-Events" zugewiesen und versucht zu kompilieren.

Der erste Fehler tritt auf:
unit1.pas(213,14) Error: Identifier not found "pipheader2"
Ich hoffte, dies sei ein Tippfehler vom Autor und habe alle pipheader2 durch pipheader ersetzt.

Folgendes hat sich erledigt:
Dann kommt aber eine Fehlermeldung, mit der ich nicht viel anfangen kann und mich aufhält:
unit1.pas(214,16) Error: Illegal qualifier
Das bezieht sich auf:
  if pipheader.Protocol = 6 then ... Damit ist (so glaube ich) gemeint, dass der Compiler mit dem ".Protocol" nicht anzufangen weiß, da sich dort auch der Cursor hinsetzt.

Es ist ja pipheader vom Typ TIPHeaderPtr.
Der wurde ja am Anfang definiert (siehe Quelle):

Delphi-Quellcode:

  TIPHeaderPtr = ^TIPHeader;

  TIPHeader = packed record
    VerLen:   byte;
    TOS:      byte;
    TotalLen: word;
    Identifer: word;
    FragOffsets: word;
    TTL:      byte;
    Protocol: byte;  // Da ist auch "Protocol"
    CheckSum: word;
    SourceIp: DWORD;
    DestIp:   DWORD;
    Options:  DWORD;
  end;

  ...

Es ist auch (siehe Kommentar) Protocol als Eigenschaft/Property(?) definiert, es wird aber nicht darauf zugegriffen.

Was soll ich tun ?
Es sind vielleicht Einstellungen im Compiler zu machen ?

UPDATE
Nun habe ich folgendes ausprobiert, was mir geholfen hat, sodass das Projekt compiliert!

Delphi-Quellcode:

//{$mode objfpc}{$H+}
{$mode delphi}{$H+}

Nun gibts einen Fehler hier:

Delphi-Quellcode:

    Result := bind(RawSocket, sa, sizeof(sa));
    if Result = SOCKET_ERROR then
      raise Exception.Create('bind failed');

Habe die Exception mittels "on e:Except..." abgefangen:
Exception : bind failed

Was soll ich nun tun ?

(Habe das Projekt mal angehängt.)

Vielen Dank

THOMAS

[Uwe Raabe]

Ich weiß nicht, wie es bei FreePascal ist, aber bei Delphi werden Pointer-Referenzen wenn nötig standardmäßig automatisch aufgelöst. pipheader.protocol entspricht also eigentlich pipheader^.protocol .

[thomasschaf]

Hallo,

(Siehe Update)

zur Vollständigkeit möchte ich die veränderte Version hochladen.

Ich habe ein "on e:except do..." eingebunden, um Fehler auszuwerten.

Vielen Dank

[thomasschaf]

Mit GetLastError erhalte ich:

Exception : bind failed / 10013 / Der Zugriff auf einen Socket war aufgrund der Zugriffsrechte des Sockets unzul?ssig.

Habe über die Fehlermeldung nichts Brauchbares finden können.

Was bedeutet dieser Fehler ?

[Klaus01]

Hallo,

einen RAW_SOCKET kann in der Regel nur der root user (bzw. ein User mit dessen Rechten) öffnen.

Grüße
Klaus

[thomasschaf]

Falls du das meinst, was ich meine:

Mir ist gerade (auch) aufgefallen, dass es mit Admin-Rechten klappt.

Warum geht das denn als "eingeschränkter, normaler" Nutzer nicht

[Klaus01]

Zitat von thomasschaf:

Warum geht das denn als "eingeschränkter, normaler" Nutzer nicht

Ich denke, dass es aus Sicherheitsgründen eingeschränkt ist.

Grüße
Klaus

[thomasschaf]

Ok, das wäre natürlich möglich.

So habe ich wenigstens den Fehler gefunden.

Danke sehr.

[JamesTKirk]

Zitat von Uwe Raabe:

Ich weiß nicht, wie es bei FreePascal ist, aber bei Delphi werden Pointer-Referenzen wenn nötig standardmäßig automatisch aufgelöst. pipheader.protocol entspricht also eigentlich pipheader^.protocol .

Das funktioniert in Free Pascal nur im Modus Delphi. In den anderen Modi ist das nicht erlaubt, um die "Striktheit" der Sprache wieder sicherzustellen (ich persönlich habe es ganz gern, wenn mich der Compiler auf sowas mit einem Fehler aufmerksam macht ).

Daher ergibt sich auch die Lösung von thomasschaf das {$mode objfpc} durch {$mode delphi} zu ersetzen.

Gruß,
Sven

[thomasschaf]

Wo man dann gerade dabei ist:
Wenn ich am Anfang {$mode delphi} setze, bedeutet das dann, dass der Compiler auf den Delphi-Modus umstellt, also alles wie in Delphi-Language behandelt wird ?

Wozu kaufen sich dann die Leute Delphi ?