Hallo,
hiermit kann man ein Passwort erzeugen lassen. Die Länge kann man einstellen, und auch ob Sonderzeichen verwendet werden sollen.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
function RandPW(iPWLen: Integer; bSpecial: Boolean): String;
var
sPW: string;
begin
sPW := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
if bSpecial then
begin
sPW := sPW + '1234567890!"§$%&/()=?~+,.-{}[]²³\|*';
end;
Result := '';
repeat
Result := Result + sPW[Random(Length(sPW)) + 1];
until
(Length(Result) = iPWLen);
end;
Aufrufen hiermit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(RandPW(5, True)); //5 ist die Länge des Passwortes und das True ob auch Sonderzeichen verwendet werden sollen
end;
Grüsse, Daniel
