Passwort Creator [Aktuell Version 1.2|31.1.2005-20:15]

[KLS]

Z.B. so:

Delphi-Quellcode:

function RandName(Length : Integer):String; 
var 
  i : Byte; 
begin 
  result := ''; 
  SetLength(Result,Length); 
  for i := 1 to Length do 
  case random(2) of
    0 : Result[i] := Char(Random(25)+65);
    1 : Result[i] := Char(Random(10)+48);
  end;
end;

PS: Die Variable "Length" ist schlecht gewählt. Nenne sie besser "PWLength".