vielleicht ist dir noch nicht aufgefallen, daß RandSeed auch noch verändert wird (sonst würdest du beim nächsten Aufruf deiner Funktion den seben Wert erhalben
)
ich hatte mir das mal vor langer Zeit etwa so übersetzt ... glaub ich
Delphi-Quellcode:
Function Random(Range: LongInt): LongInt;
Begin
RandSeed := Int64(RandSeed) * 134775813 + 1;
Result := TLargeIntRec(Int64(Range) * LongWord(RandSeed)).Hi;
End;
aber was mit EBX ist ... k.A.