Ip-Protokoll und (CRC-16) Berechnung... Und ich versteh nix.

[Kedariodakon]

Zitat von Basilikum:

hier meine Routine:

Delphi-Quellcode:

Function                          CalcIPChecksum(Const Packet : Pointer;Const Bytes : LongWord) : Word;
Var
  Checksum                        : LongWord;
  X                               : Integer;
begin
  Checksum:=0;
  For X:=1 To (Bytes shr 1) Do Checksum:=Checksum + PWords(Packet)^[X - 1];
  If ((Bytes and 1) > 0) Then Checksum:=Checksum + PBytes(Packet)^[Bytes - 1];
  CheckSum:=(CheckSum shr 16) + (CheckSum and $FFFF);
  CheckSum:=CheckSum + (CheckSum shr 16);
  Result:=Word(not Checksum);
end;

die Checksumme wird von den ersten n Bytes des Packets berechnet, wobei n die Header-Länge gemäss IP-Header ist.

Zu beachten ist:
- vor der Berechnung wird das Feld der Checksumme im IP-Header auf $0000 gesetzt

1. Was ist PWords???
2. Was ist PBytes???
3. Kommt in Packet mein Byte Array? Wenn ja warum arbeitest du dann mit Pointern?
4. Kommt in Bytes die Länge des Byte Arrays? Wenn ja ein Word reicht aus, da ein Ip-Packet net größer als 1500 Bytes werden kann.

Zitat von Basilikum:

...
- die Checksumme liegt im Packet in Network-Byte-Order vor.... mittels WinSock.NToHS lässt sich ein Word (S-hort) von Network-Byte-Order zu Host-Byte-Order wandeln (WinSock.HToNS für Gegenrichtung)

Bahnhof *tüttüt*

Bye