Eigene Zufallszahlen generieren

[himitsu]

Am besten, du packst den folgenden Code in eine DLL und bindest diese in deine Progs ein.
etzt mußt du nur noch dafür sorgen, das die Gegenseite genau die selbe DLL besitzt. Natürlich bezieht sich das auf die fertig komplierte Version und nich nur auf den Quellcode.

So kannst du die Programme ändern ohne das der Zufallsgenerator geändert wird.
Genauso läst sich auch der Zufallsgenerator austauchen, in dem du die DLL auf einem anderen System neu kompilierst.

Delphi-Quellcode:

Procedure RandomBitMap(Code: LongInt; Var BitMap: TBitMap);
  Var X, Y: Integer;

  Begin
    RandSeed := Code;
    For X := 0 to BitMap.Width - 1 do
      For Y := 0 to BitMap.Height - 1 do
        BitMap.Canvas.Pixels[X, Y] := RGB(
          Random(256), Random(256), Random(256));
  End;