von einem Record eine prüfsumme erstellen

[Jackie1983]

hi

hat jemand eine idee wie ich von einem record
z.b.

Delphi-Quellcode:

  TMyHeader = packed record
    fKey     : string[50];
    fTime    : double;
    fTyp     : integer;
  end;

eine prüfsumme erstellen kann. Vielleicht mit XOR.
Kann mir da einer vielleicht helfen.....

[jfheins]

Wenn du keine allzu hohen Anspruche stellst, könnte das so gehen:

Delphi-Quellcode:

var
p: Pointer; // oder Pointer auf Byte
i: Integer;
begin
  p := @MyHeader;
  for i := 0 to 72 do
  begin
    i := i xor p;
    p:= p + 1;
  end;

So ungefähr - nicht getestet, dirkert im Browser geschrieben ;)

[Apollonius]

Eher so:

Delphi-Quellcode:

var
p: PByte;
i: Integer;
CheckSum: Byte;
begin
  p := @MyHeader;
  CheckSum := 0;
  for i := 1 to SizeOf(MyHeader) do
  begin
    CheckSum := CheckSum xor p^;
    Inc(p);
  end;

[bitsetter]

i kann man innerhalb der Schleife keinen Wert zuweisen

Zitat:

Zitat von Apollonius

Eher so:

Delphi-Quellcode:

    i := i xor p^;

ist bestimmt nicht richtig

Zitat:

Zitat von Apollonius

Delphi-Quellcode:

  i := 0;

kannst du dir sparen.

[Apollonius]

Was haben wir denn da gebaut? :oops: Ich sollte wirklich nicht ganz so gedankenlos abschreiben.

[Jackie1983]

thx