suche Passwortgenerator algorithm in Delphi

[delphi_fun]

Hallo!

Da ich neu im Welt der Delphi suche ich eine function die erzeugt mir passwörte, also passwortgenerator
(Alphanumerisch 8 Zeichen Länge wäre perfekt)

Danke!

[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.

Delphi-Quellcode:

irgendwas:=PassWort(8);

Frohes Programmieren :coder:

Titanic