Hab den Code aus dem Delphi6 - Kochbuch, dort steht er (fast) genau so geschrieben, natürlich wird noch was anderes deklariert und hinzugefügt:
Delphi-Quellcode:
(...)
CONST keysize = 1000; { hier kann die Größe des Schlüssels geändert werden }
code = 4711; { der presönliche Schlüssel (Longint-Wert möglich) }
VAR
Verbindung: TVerbindung;
superkey: ARRAY[1..keysize] OF byte;
(...)
PROCEDURE TVerbindung.FormCreate(Sender: TObject);
VAR ini: Tinifile;
i: integer;
BEGIN
randseed := code;
randomize;
FOR i := 1 TO high(superkey) DO
superkey[i] := random(255);
(...)