Das müsste eigentlich klappen:
Delphi-Quellcode:
type TKey = array of char;
procedure GenerateKey(var AKey: TKey);
type TAlpha = 'A'..'Z','a'..'z'; // evtl. noch plus '0'..'9'
var i: integer;
begin
// Prozedur bekommt das bereits auf die korrekte Länge initialisierte Array als Parameter
// (den Code zum array initialisieren hast du ja schon)
// ich mach also mal direkt weiter:
for i := Low(Key) to High(Key)
do Key[i] := TAlpha(random(51));
// Alphabet hat 26 Buchstaben, mal zwei wegen Groß- und Kleinbuchstaben.
// Wenn du die numerischen Chars noch dazunimmst also 61
end;
//edit:
Natürlich nicht vergessen, vorher einmal randomize aufzurufen (z.B. im Application.Initialize). War dir vermutlich auch vorher schon klar, aber ich sag's sicherheitshalber nochmal dazu.
Sonst macht ja die ganze Verschlüsselung nicht viel Sinn.
