AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zufallszahlen allgemeine Frage

Ein Thema von derseitzer · begonnen am 5. Mär 2018 · letzter Beitrag vom 7. Mär 2018
Antwort Antwort
Seite 1 von 2  1 2      
derseitzer

Registriert seit: 12. Okt 2016
235 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 10:16
Hallo Leute,
Ich habe mich etwas über Zufallszahlen informiert und wie man sie erzeugen kann, allerdings erschließt sich mir nicht ganz alles.
Zufallszahlen können ja mit bestimmten Vorgehensweisen erzeugt werden, indem man ein beliebige Zahl X nimmt und kurz gesagt mit ihr soviel herumrechnet, sodass das Ergebnis eben zufällig ist. Diese Zahl X bekommen die meisten Random Funktionen, soweit ich es nun verstanden habe (bitte belehrt mich eines Besseren!), durch das Einlesen der Clock auf dem Controller oder PC. Wenn das aber nun so wäre müsste ich ja, durch etwas Ausprobieren und ein paar Programmierkentnisse diesen Zufall überlisten können?! Falls es wirklich mit der Clock gemacht wird könnte man ja die Anzahl der Werte der Randomfunktion z.B. durch Testen herausfinden und mithilfe eines Programmes einen Klick zur richtigen Zeit setzen. Somit wäre es ja möglich jedes Casinoprogramm zu umgehen.
Warum funktioniert das nicht oder wo liegt der Fehler an meiner Argumentation?
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".
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#2

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 10:21
Der unvermeidliche Link zum Thema Zufallszahlen:

Random Number
https://xkcd.com/221/
Michael Justin
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 10:29
Wenn das aber nun so wäre müsste ich ja, durch etwas Ausprobieren und ein paar Programmierkentnisse diesen Zufall überlisten können?! Falls es wirklich mit der Clock gemacht wird könnte man ja die Anzahl der Werte der Randomfunktion z.B. durch Testen herausfinden und mithilfe eines Programmes einen Klick zur richtigen Zeit setzen. Somit wäre es ja möglich jedes Casinoprogramm zu umgehen.
Warum funktioniert das nicht oder wo liegt der Fehler an meiner Argumentation?
Ja in der Theorie kannst du Pseudo-Zufallsgeneratoren auf die Art wie du es beschrieben hast überlisten.
Problem wird nur sein dass du auf die Millisekunde genau herausfinden musst wann der Seed für den RNG erstellt wurde UND du musst wissen wie viele Zahlen schon generiert wurden um die nächste Zahl berechnen zu können. Also in der Theorie machbar, in der Praxis eher schwierig.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
derseitzer

Registriert seit: 12. Okt 2016
235 Beiträge
 
Delphi 10 Seattle Professional
 
#4

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 10:40
Zitat:
Problem wird nur sein dass du auf die Millisekunde genau herausfinden musst wann der Seed für den RNG erstellt wurde UND du musst wissen wie viele Zahlen schon generiert wurden um die nächste Zahl berechnen zu können. Also in der Theorie machbar, in der Praxis eher schwierig.
Was meinst du mit "wieviele Zahlen schon generiert wurden"? Wenn ich jetzt das Programm starte und die Frequenz der Zufallszahlengenerierung wüsste und immer den exakt selben Ping hätte, dann wäre das gut möglich? ich kann mir, auch wenn es wegen des Pings nicht möglich ist, nicht vorstellen das es so einfach geht
  Mit Zitat antworten Zitat
derseitzer

Registriert seit: 12. Okt 2016
235 Beiträge
 
Delphi 10 Seattle Professional
 
#5

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 11:40
Ich habe nun folgendes getestet:
Ich habe direkt hintereinander zwei Zufallszahlen erstellen lassen und habe die Befehlszeit gemessen.
Code:
QueryPerformanceCounter(startTime);
a:= Random(100);
QueryPerformanceCounter(endTime);
b:= Random(100);
Lässt man die Counterbefehle weg, so erzeugt das System einwandfreie Zufallszahlen (mal gleich und ein andermal total unterschiedlich).
Wie kann das möglich sein, wenn der Counter mir zeigt, dass eigentlich 0 zeit zwischen den beiden Befehlen vergangen ist?
(starttime: 35982319073 und endtime: 35982319073).

Edit: die Funktion Random sagt eigentlich schon einiges Frage selbst beantwortet
Code:
function Random(const ARange: Integer): Integer;
{$IFDEF PUREPASCAL}
var
  Temp: Integer;
begin
  Temp := RandSeed * $08088405 + 1;
  RandSeed := Temp;
  Result := (UInt64(Cardinal(ARange)) * UInt64(Cardinal(Temp))) shr 32;
end;

Geändert von derseitzer ( 5. Mär 2018 um 11:47 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 12:57
Die Zeit spielt nur beim Aufruf von "randomize" eine Rolle. Da wird der Seed bestimmt.
Alle Aufrufe von random danach haben mit der (aktuelle) Systemzeit nichts mehr am Hut.
Ganz vereinfacht ist es quasi so:

randomize();
Base := Uhrzeit;

random();
Base := Base + 1;
Result := Base;

Natürlich wird in random mehr gerechnet als nur "+1". Das "+1" steht nur symbolisch für "1x Rechenoperationen auf der aktuellen Base durchführen".
Wenn du RandSeed manuell auf einen Wert setzt dann liefern mehrmalige Aufrufe von random auch immer die gleiche Zahlenfolge.
D.h. um Zufallszahlen hervorzusagen brauchst du zuerst den Seed (der an eine Uhrzeit gekoppelt ist) und du musst wissen wie oft random schon aufgerufen wurde, bzw. an welcher Position in der Zahlenfolge du bist.

Hier zum ausprobieren:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  RandSeed := 1234; // Gleicher Seed => Gleiche Zahlenfolge unten

  Memo1.Lines.Clear;
  for i := 1 to 15 do
    Memo1.Lines.Add(IntToStr(random(100)));
end;
Du kannst den Button so oft drücken wie du willst. Die ausgegebenen Zahlen sind immer die gleichen solange RandSeed = 1234 ist.
Und deswegen kannst du jetzt auch die 16. Zahl hervorsagen wenn du weißt wie der Seed ist/war und wie viele Zahlen schon generiert wurden.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."

Geändert von Neutral General ( 5. Mär 2018 um 13:03 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#7

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 13:12
Oder um das anders zu sagen:

Wer die Parameter kennt, der kann die nächsten Zufallszahlen ausrechnen.

* Nummerngenerator ist bekannt (die Berechnungsformel für Random ist fest entgebaut und wurde seit mehreren Delphi-Versionen auch nicht verändert)
* der RandSeed muß bekannt sein (entweder der aktuelle, oder ein Älterer, samt der Anzahl der schon berechneten Zufallszahlen)
* und der Zufallsbereich muß bekannt sein (die Grenze, welche an Random(x) übergeben wird)


Da die Formel bekannt ist und wenn man genügend Zufallszahlen (samt ihrer Grenze) kennt,
dann kann man daraus auch mit hoher Wahrscheinlichkeit bestimmen welcher RandSeed grade aktiv ist
und somit auch mit sehr hoher Wahrscheinlichkeit den nächsten Zufallswert bestimmen.
> Bei RandSeed=Integer gibt es nur 4 Milliarden Möglichkeiten und in der Reihe aller 4 Milliarden Zufallszahlen kann man die aktuelle Zahlenfolge (die bekannten Zufallszahlen) suchen ... je länger sie ist, um so eindeutiger ist sie bestimmbar.
$2B or not $2B

Geändert von himitsu ( 5. Mär 2018 um 13:18 Uhr)
  Mit Zitat antworten Zitat
Caps

Registriert seit: 23. Mär 2006
Ort: Leipzig
299 Beiträge
 
#8

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 16:47
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
"Der Mode cmCFS8 ist prohibitär und von mir entwickelt."
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#9

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 17:00
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.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Caps

Registriert seit: 23. Mär 2006
Ort: Leipzig
299 Beiträge
 
#10

AW: Zufallszahlen allgemeine Frage

  Alt 5. Mär 2018, 17:04
Oder so.
"Der Mode cmCFS8 ist prohibitär und von mir entwickelt."
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz