suche Passwortgenerator algorithm in Delphi

[titanic]

Hallo delphi_fun,

hier :http://www.delphipraxis.net/internal...t.php?t=134824
gab es das schonmal:

Zitat:

Delphi-Quellcode:

function TForm1.PassWort(PLen:Integer):String; 
begin 
  Randomize; 
  str:='1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ|<>^°!§$%&/=?+#*-'; 
  Result:=''; 
  repeat 
    Result:=Result+str[Random(Length(str))+1]; 
  until(Length(Result)=PLen) 
end;

die Funktion erzeugt ein PW der Länge 'PLen' aus den Zeichen des String-Wertes 'str' (kannst du ja nach deinen wünschen zuweisen).

also z.B.

irgendwas:=PassWort(8); Frohes Programmieren

Titanic