Zufallszahlen allgemeine Frage

[Caps]

Zitat von derseitzer:

Eine wirkliche Zufallszahl gibt es ja so nicht, aber mich interessiert wie Firmen diese Zahlen bekommen, die extrem abhängig vom Zufall dieser Zahlen sind, wie Casino "xy" oder Spiel "xy".

Ich glaube mal gehört zu haben, dass es Zufallszahlgeneratoren gibt, die z.B. das Rauschen der Soundkarte ausnutzen, das wiederholt sich nie. So würde ich vermutlich rangehen, wenn ich echten Zufall wöllte.

lg Caps

[Neutral General]

Zitat von Caps:

Zitat von derseitzer:

Eine wirkliche Zufallszahl gibt es ja so nicht, aber mich interessiert wie Firmen diese Zahlen bekommen, die extrem abhängig vom Zufall dieser Zahlen sind, wie Casino "xy" oder Spiel "xy".

Ich glaube mal gehört zu haben, dass es Zufallszahlgeneratoren gibt, die z.B. das Rauschen der Soundkarte ausnutzen, das wiederholt sich nie. So würde ich vermutlich rangehen, wenn ich echten Zufall wöllte.

lg Caps

Es gibt auch random.org.

[Caps]

Oder so.

[himitsu]

Es gibt Vieles.

Angefangen von Bewegungen der Maus (nutzen einige Programme, um einen Verschlüsselungskey zu generieren) oder eben Soundkartenrauschen
bis zu https://www.idquantique.com/random-n...ber-generator/ oder https://www.google.de/search?q=rando...&tbm=isch&sa=X

[Blup]

Time Stamp Counter reicht schon für schöne Zufallszahlen, da braucht man keine zusätzliche Hardware.

https://en.wikipedia.org/wiki/Time_Stamp_Counter
http://www.delphipraxis.net/1170302-post182.html

[himitsu]

Zitat von Blup:

Time Stamp Counter reicht schon für schöne Zufallszahlen, da braucht man keine zusätzliche Hardware.

https://en.wikipedia.org/wiki/Time_Stamp_Counter
http://www.delphipraxis.net/1170302-post182.html

Achso?

Früher (vor über 10 Jahren, oder so) arbeitete Randomize mit GetTickCount, was unglücklich war, da viele Idioten/Unwissende ständig wiuederholt das aufriefen und sich in Schleifen wunderten, wenn sich Zufallszahlen auffallend häufig wiederholen.
Inzwischen wird QueryPerformanceCounter verwendet, was für normale Delphiprogramme wie RDTSC (TSC) aussieht.

[Blup]

GetTickCount liefert Millisekunden.
Time Stamp Counter liefert CPU-Cyclen.
Da immer mehrere unterschiedliche Prozesse laufen, ändert sich der Wert dieses Registers zwischen zwei Abfragen nicht um einen festen Betrag.

Beispiel Pseudocode:

Delphi-Quellcode:

function MyRandom(AValue: Integer): Integer;
begin
  RandSeed := RandSeed xor RTDSC;
  Result := Random(AValue);
end;