Mit einer kurzen Prozdur einen Schlüssel erzeugen

[fiasko]

Delphi-Quellcode:

function Code: string;
const
  s: string = 'abcdefghijklmnopqrstuvwxyz';
var
  i,j: Integer;
begin
  randomize;
  result:='';
  for i:=1 to 25 do
  begin
    j:=random(length(s)+1);
    result:=result+s[j];
    delete(s,j,1);
  end;
  result:=result+s;
end;

Ist vielleicht ein µ schneller...