Генератор паролей

procedure TForm1.Button1Click(Sender: TObject);
const
s='abcdefghijklmnopqrstuvwxyz';
var
i:integer;
begin
for i:=1 TO 10 DO
edit1.Text:=edit1.Text+s[random(length(s)+1)+1];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='';
end;

function WeakPassword(len: integer): string;
var
  c: integer;
  ch: AnsiChar;
  key: array [0 .. 7] of longint;
  a, b: longint;
  x: int64;
 
  procedure morph();
  var
    r: longint;
  begin
 
    r := -1;
    repeat
      Inc(r);
      Inc(b, a + ((a shl 6) xor (a shr 8)) + (key[r mod 8] + r));
      Inc(r);
      Inc(a, b + ((b shl 6) xor (b shr 8)) + (key[r mod 8] + r));
    until r = 63;
 
  end;
 
  function RND(): byte;
  begin
    morph();
    Result := (a + b) mod $100;
  end;
 
  function RND32(idx: integer): longint;
  begin
    morph();
    case idx of
      0:
        Result := a;
      1:
        Result := b;
    end;
 
  end;
 
begin
 
  Result := '';
 
  for c := 0 to 7 do
    key[c] := random($FFFFFFFF);
 
  b := 0;
  a := GetTickCount;
  a := RND32(0);
  if QueryPerformanceCounter(x) then
    b := (x {shr 0}) and $FFFFFF
  else
    b := 0;
  b := RND32(1);
 
{for c := 0 to $FFFF do Morph();}
 
 
  c := 0;
 
  while c < len do
  begin
 
    ch := AnsiChar(RND());
 
    if ch in ['а' .. 'я', 'А' .. 'Я', 'a' .. 'z', 'A' .. 'Z', '0' .. '9'] then
    begin
      Result := Result + ch;
      Inc(c);
    end; {else morph();}
 
  end;
 
end;

Memo1.Lines.Add(WeakPassword(StrToIntDef(Edit1.Text, 5)));

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.CLEAR;
end;