PasSave 1.1

[Манжосов Денис :)]

Спасибо, на нафиг надо теперь. Сам сделаю. Десять минут делают хрень-полную ошибок. ИМХО!

[Ozerich]

Откуда ты знаешь что там много ошибок?ты же не качал.Генератор паролей 2.rar (1.2 Кбайт, 0 просмотров)
Да там в проге 1 кнопка тока.Там ошибкам негде быть.
Если хочешь продолжать ругаться то давай в личку

[Манжосов Денис :)]

Да то что меня взбесило то что тут каждый может создать такую же программу зачем она тогда нужна? Нечего сказать-держи язык за зубами.

[Ozerich]

не ожидал такой реакции.Давай прекратим спор.

[RealSHELS]

Но я еще вставлю слово в ваш спор. Денис был прав, у коде есть ошибка причем большая.

procedure TForm1.Button1Click(Sender: TObject);
var ch:string;
a,x:byte;
begin
 randomize;
 x:=1;
 edit2.Text:='';
 repeat
   if radiobutton2.Checked then  
     begin
      a:=random(6);
      if a=0 then ch:=chr(48+random(10));
    end
  else 
    begin
      a:=random(3);
      if a=1 then ch:=chr(65+random(26));   
      if a=2 then ch:=chr(97+random(26));
   end;
 edit2.Text:=edit2.Text+ch;
 inc(x);
until x>strtoint(edit1.Text);
end;

Когда присмотритесь, думаю поймете почему у меня генерирует при длине в 7 пароль "11", или вообще пусто, и с буквами также (например "bbb" или "accc")

[Ozerich]

procedure TForm1.Button1Click(Sender: TObject);   
var ch:string;   
a,x:byte;   
begin   
 randomize;   
 x:=1;   
 edit2.Text:='';   
 repeat   
   if radiobutton2.Checked then     
     begin   ch:=chr(48+random(10));   
    end   
  else    
    begin   
      a:=random(1)+1;   
      if a=1 then ch:=chr(65+random(26));      
      if a=2 then ch:=chr(97+random(26));   
   end;   
 edit2.Text:=edit2.Text+ch;   
 inc(x);   
until x>strtoint(edit1.Text);   
end;