Гениратор паролей - delphi 7
| 16.05.2013, 00:37 | |
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;
| |
|
| |
| Просмотров: 569 | Загрузок: 0 | | |
| Всего комментариев: 0 | |