Random ist kein reiner Zufall

[dino]

oh tschuldige, so wollte ich das net gesagt haben

ich meinte

Delphi-Quellcode:

procedure       _RandInt; 
asm 
{     ->EAX     Range   } 
{     <-EAX     Result  } 
        PUSH    EBX 
{$IFDEF PIC} 
        PUSH    EAX 
        CALL    GetGOT 
        MOV     EBX,EAX 
        POP     EAX 
        MOV     ECX,[EBX].OFFSET RandSeed 
        IMUL    EDX,[ECX],08088405H 
        INC     EDX 
        MOV     [ECX],EDX 
{$ELSE} 
        XOR     EBX, EBX 
        IMUL    EDX,[EBX].RandSeed,08088405H 
        INC     EDX 
        MOV     [EBX].RandSeed,EDX 
{$ENDIF} 
        MUL     EDX 
        MOV     EAX,EDX 
        POP     EBX 
end;

ist nur random(3) z.b. oder?

finde ich im debugger auch den code für randomize?