Random ist kein reiner Zufall

[dino]

ist das, was du da geschrieben hast das da unten?(oder zumindest ein Teil davon?
wenn ja, was davon?

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;