Ist zwar alles ziemlich undurchsichtig, aber dies ergibt mit Sicherheit keinen Sinn:
Delphi-Quellcode:
for i := 0 to 15 do
move(block[i * 32 + 1], w, 32);
Bist Du sicher, daß
k[i] := floor(abs(sin(i + 1) * power(2, 32)));
die richtigen Werte liefert? Warum nicht die Konstanten einsetzen?
Gammatester