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
