Random mit Dec

[cookie22]

hallo,

ich hab folgendes problem, ich möchte mir mit dec eine zufalls zahl ausgeben lassen und zwar so wie mit dem random von delphi.

im moment mach ich das so, was aber sehr unschön ist, hat jemand eine bessere idee.

Delphi-Quellcode:

function GetRandom(range: Byte): integer;
var
  i: Byte;
begin
  Result := -1;
  RandomSeed;
  repeat
    RandomBuffer(i, sizeof(i));
  until
    (i < range) and (i <> -1);
  Result := i;
end;

für alle tips wär ich dankbar.

Gruss,
cookie

[sx2008]

Delphi-Quellcode:

function GetRandom(range: Byte): integer;
var
  i: Cardinal;
begin
  // RandomSeed;  // WEG, darf nur einmal aufgerufen werden
  RandomBuffer(i, sizeof(i));
  Result := i mod range;
end;

[cookie22]

vielen dank erst mal. :-D

warum darf ich randomseed nur einmal aufrufen?

[mkinzler]

Weil sich die Zufallszahlen sonst wiederholen würden

[cookie22]

der zufallsgenerator wird doch mit der aktuellen systemzeit bzw. anderen zufalls daten initialisiert, wie kann sich dann da was wiederholen? die voraussetzungen sind doch völlig anders. macht nicht gerade das nen cryptographisch sicheren random generator aus, dass sowas nicht passiert?

[Luckie]

Von Randomize weiß ich, dass man es nur einmal aufrufen sollte. Wie das mit RandomSeed ist, kann ich im Moment nicht sagen, da keine Delphihilfe zur Verfügung.

[Billa]

Ich sitze gerade nicht am Delphi-Rechner, aber ich würde sagen: Im Zweifel macht ein Versuch kluch ...

[cookie22]

es geht hier um das randomseed von dec 5.2. das ist doch ein yarrow random generator, da der cryptoraphisch sicher ist, sollte das eigentlich nix ausmachen. genau das unterscheidet ihn doch vom delphi randomize. oder sitze ich da einem irtum auf? :?

[sx2008]

Wenn man einen Zufallsgenerator hat, dann setzt man einmal den Anfangswert (Seed = Samen) und lässt ihn dann in Ruhe arbeiten.
Es spielt dabei keine Rolle, welcher Art der Zufallsgenerator ist; es ist immer das gleiche Prinzip.
Wenn man immer wieder die Initialisierung neu vornimmt, dann ist ja der Zufallsgenerator ausser Kraft gesetzt.

[Meflin]

Zitat:

Zitat von sx2008

Es spielt dabei keine Rolle, welcher Art der Zufallsgenerator ist; es ist immer das gleiche Prinzip.
Wenn man immer wieder die Initialisierung neu vornimmt, dann ist ja der Zufallsgenerator ausser Kraft gesetzt.

Wenn man mit konstanten Werten Seeded mag das ein Problem sein. Aber wenn du zum Beipsiel Umgebungsgeräsuche als Seed benutzt, kannste seeden so oft du willst - das tut überhauptkeinen Abbruch.

[Assertor]

Hi,

ich würde den RandomSeed der DEC nur einmal aufrufen. Mehrfach stellt zwar technisch kein Problem dar, aber ob es die Sicherheit erhöht...

Wer es theoretisch sicherer haben will, nutzt - wie oben schon genannt - echte Zufallsdaten. Dafür gibt es ein Overload der Prozedur RandomSeed mit

Delphi-Quellcode:

procedure RandomSeed(const Buffer; Size: Integer);

Wird nur RandomSeed() verwendet, wird ein pseudozufälliger Seed aus der Systemzeit und dem PerformanceCounter erzeugt. Mit einem Buffer mit echten Zufallsdaten ist das natürlich besser. Dann kann man z.B. Daten, die aus Mausbewegungen und Tastatureingaben des Benutzers erzeugt werden nutzen, so wie es bei TrueCrypt geschieht.

Gruß Assertor

[cookie22]

jo danke für die antworten. also kann man es mehrfach aufrufen, es bringt nur nicht wirklich was.