Zeitauflösung bei Random()

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Leider gibt es sowas wie echte Zufallszahlen nicht. Das Stichwort ist hierbei reproduzierbare Pseudozufallszahlen - man kann sich das so wie ein großes Array mit Zahlen vorstellen, dass durch Random und RandomRange einfach nur der Reihe nach ausgelesen wird.

Tastsächlich ist es aber nur eine Variable vom Typ LongInt. Beim Aufruf von Random/RandomRange wird über diese Variable eine mathematische Funktion gejagt und danach wird deren Ergebnis wieder dort gespeichert. Dieses Ergebnis wird auch noch in den gewünschten Bereich runterscalliert und als Ergebnis der Zufallsfunktion zurückgegeben.

RandSeed legt den Startwert dieser Zufalsfunktion fest (setzt also einfach die entsprechende Variable des Zufallsgenerators auf einen bestimmten Wert). Randomize setzt auch nur den Startwert auf einen aus der Systemzeit abgeleiteten Wert (RandomSeed = Timer).

Durch die feste Formel ergibt sich auch eine feste Reinfolge der Zahlen. Da aber in verschiedenen Compilern/Compilerversionen auch unterschiedliche Formeln eingesetzt werden, sollte man diese "festgelegt Reinfolge" nicht für Verschlüsselungen verwenden, das könnte mal Progleme beim Entschlüsseln geben.

Auf grund des Aufbaus und der Funktion des Zufallsgenerator kann man sich ja denken, dass nach 1-2 Millionen Zufallszahlen die Zufallszahlen wiederholen. Das läßt sich natürlich auch nicht umgehen, wenn man zwischendurch mit RandSeed/Randomize ein neuer Startwert gesetzt wird. Durch ein erneutes setzen des Startwertes sorgt mann eher dafür, dass sich diese Zahlenfolge schon früher wiederholt.


Baut das mal in ein Prog ein, daran sieht man sehr gut was ich meine.

Delphi-Quellcode:

{4 Label's werden benötigt}
Var I: Integer;

Begin
  RandSeed := 0;
  Label1.Caption := '';
  For I := 0 to 21 do Label1.Caption := Label1.Caption + ' ' + IntToStr(Random(90) + 10);
  RandSeed := 1;
  Label2.Caption := '';
  For I := 0 to 20 do Label2.Caption := Label2.Caption + ' ' + IntToStr(Random(90) + 10);
  RandSeed := 1;
  Label3.Caption := '';
  For I := 0 to 20 do Label3.Caption := Label3.Caption + ' ' + IntToStr(Random(90) + 10);
  RandSeed := 1;
  Label4.Caption := '';
  For I := 0 to 20 do Label4.Caption := Label4.Caption + ' ' + IntToStr(Random(90) + 10);
End;

PS: http://www.FrankNStein.de/Smiley-SehrVerdaechtig.gif Ich finde meine IE echt gemein, der hatte sich beim ersten Versuch das abzusenden einfach verabschiedet - alles noch mal ausdenken und neu schreiben. Dafür hab ich mich diesmal mal etwas kürzer gehalten.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif