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

[Kedariodakon]

*tüttüt*
Zusammenfassung:

Delphi-Quellcode:

Function    CRC2Test: Word;
Type
   PWords = ^TWords;
   TWords = Array[0..high(word)] Of Word;
   PBytes = ^TBytes;
   TBytes = Array[0..high(word)] Of Byte;

   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;

Const 
   cProto: Array[ $00..$2D ] Of Byte  =
   ( $45, $00, $00, $28, $A2, $EE, $40, $00, $80, $06, $0E, $55, $C0, $A8, $64, $39, 
       $C0, $A8, $64, $02, $06, $4D, $01, $BD, $0A, $62, $36, $C5, $47, $E8, $96, $1E,
     $50, $10, $FC, $FD, $42, $12, $00, $00, $00, $00, $00, $00, $00, $00 ); 
Var
  headerlen : LongWord; 
   buf : Array[0..$f * 4 - 1] Of byte;
  cs : word; 
Begin
   headerlen:=(cProto[0] and $0f) shl 2;
   move(cProto,buf,headerlen);

   cs:=pwords(@buf)^[5];

   pwords(@buf)^[5]:=0; // checksum feld 0-en vor Berechnung
   pwords(@buf)^[5]:=CalcIPChecksum(@buf,headerlen); // Checksum neu berechnen

   Assert(cs = pwords(@buf)^[5],'Checksum incorrect');
   Result   := cs;
End;

Dann kommt bei mir 21774 raus obwohl 3669 das richtige ergebniss wär ?!?!?



Bin ich zu blöd?
Im Grunde soll doch die Checksum das 1er Komplement der Summe alle Word vom Ip-Header sein, wobei aber die Checksumm auf 0 gesetzt wird korrekt?

Vereinfacht:

Delphi-Quellcode:

Function   CRC1Test: Word;
Const
   cIPPHeader: Array[ $00..$09 ] Of Integer  =
      (   $4500, $0028, $A2EE, $4000, $8006, $0000, $C0A8, $6439,   $C0A8, $6402   );
Begin
   Result   := Not ( Word( SumInt( cIPPHeader ) And $FFFF ) );
End;

Aber auch hier lieg ich mit 3 zuviel

Bye