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

[pali4ev]

Привет всем , помогите мне сделать генератор , а если еще можно то исходник..
1)Допустим я ввел в Edit "delphi" , и при нажатие на кнопку , программа выдавала несколько слов типа "delphI , DeLpHi , DELPHI , dElphi , DELPHi" и тд....

зарание спасибо

[Bayazet]

procedure TForm1.Button1Click(Sender: TObject);
  var
    str : string;
    i, j, k : integer;
begin
  str := Edit1.Text;
  randomize;
  j := random(length(str));
  For i := 1 to j do
  begin
    k := random(length(str));
    If str[k] in ['A'..'Z'] then str[k] := chr(ord(str[k])+32)
    else
    If str[k] in ['a'..'z'] then str[k] := chr(ord(str[k])-32);
  end;
  edit1.Text := str;
end;

[Hollander]

Тебе нужны все комбинации или по какому-то условию?

Как-то долго я писал )))

[pali4ev]

Bayazet Во - во спасибо! Но чуть чуть не то , надо так чтобы например ввел я privet , и в label ввел все эти результаты , а не по одному.

[Bayazet]

при должном запасе времени можно и дождаться, пока рэндом выдаст все возможные варианты

[KORN]

тут надо прощитывать все варианты а их 2^n...

[Bayazet]

ну, если делать "ход конем", то:

function ShivorotNaVyvorot : string;
  var
    str : string;
    i, j, k : integer;
begin
  str := Form1.Edit1.Text;
  randomize;
  For i := 1 to length(str) do
  begin
    k := random(length(str));
    If str[k] in ['A'..'Z'] then str[k] := chr(ord(str[k])+32)
    else
    If str[k] in ['a'..'z'] then str[k] := chr(ord(str[k])-32);
  end;
  result := str;
end;

procedure TForm1.Button2Click(Sender: TObject);
  var
    i, max, count : integer;
    str : string;
begin
  max := length(Form1.Edit1.Text);
  count := 0;
  i := 0;
  While (i < 10000000) and (count < sqr(max)) do
  begin
    i := i+1;
    str := ShivorotNaVyvorot;
    If pos(str, Form1.Memo1.Text) = 0 then
    begin
      Form1.Memo1.Text := Form1.Memo1.Text + str + ' ';
      count := count+1;
      Form1.Refresh;
    end;
  end;
end;

только так делать НЕ надо, это называется метод 1000 обезьян, которые за 1000 лет смогут написать что-нибудь из Шекспира