Delphi-Quellcode:
function Code: string;
var c: char;
begin
randomize:
while length(result) <= 26 do
begin
c := chr(random(26)+65);
if pos(c, result) = 0 then result := result + c;
end;
end;
Es dauert vielleciht ei wenig, bis ALLE 26 Buchstaben benutzt sind, aber dafür is sie schön kurz
