Mit einer kurzen Prozdur einen Schlüssel erzeugen

[gekmihesg]

Delphi-Quellcode:

function createstr(count:integer); string;
var
 c: char;
begin
 result:='';
 if count > 26 then
  exit;
 while length(result) < count do
  begin
   c:=chr(random(26)+65);
   if pos(c,result) = 0 then
    result:=result + c;
  end;
end;