So habe ein wenig rumgecoded aber es gibt noch ein paar Fragen.
Delphi-Quellcode:
function mix(a, b, c : integer): integer;
begin
a := (a - b);
a := (a - c);
a := (a xor (zeroFill(c,13)));
b := (b - c);
b := (b - a);
b := (b xor (a shl 8));
c := (c - a);
c := (c - b);
c := (c xor (zeroFill(b,13)));
a := (a - b);
a := (a - c);
a := (a xor (zeroFill(c,12)));
b := (b - c);
b := (b - a);
b := (b xor (a shl 16));
c := (c - a);
c := (c - b);
c := (c xor (zeroFill(b,5)));
a := (a - b);
a := (a - c);
a := (a xor (zeroFill(c,3)));
b := (b - c);
b := (b - a);
b := (b xor (a shl 10));
c := (c - a);
c := (c - b);
c := (c xor (zeroFill(b,15)));
result := mix(a, b, c);
end;
Wird die Ausagbe ein Array sein oder hab ich da irgendwie was falsch gemacht?
Habe noch so meine Array Verständnisschwierigkeiten bei Delphi