|
#1
|
||||
|
||||
Генератор паролей
Люди помогите написать простейший генератор паролей.!хочу чтобы программа состояла из едит буттон т.е.нажимаешь на буттон в графе эдит появляется пароль.
http://stroilki.ru/ мой сайт |
#2
|
|||
|
|||
Объявляешь переменные:
i, num : integer; Затем пишешь такой код: Код:
randomize; for i:=0 to 9 do begin num:= random(9); Edit1.Text:= Edit1.Text + inttostr(num); end; |
Этот пользователь сказал Спасибо m1sclick за это полезное сообщение: | ||
Паскаль (16.03.2012)
|
#3
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var a,b,c,tmp:Char; dlina, i,X:integer; begin Edit1.Clear; Randomize;//подключаем рандом dlina:=10; //кол-во символов в пароле for i:=0 to dlina-1 do begin a:=Inttostr(random(9))[1] //генерируем цифру b:=Char(65+Random(25));//заглавную юукву c:=Char(97+Random(25));//строчную X:=Random(3); case x of //выбираем рандомно либо цифру либо заглавную/строчную 0: tmp:=a; 1: tmp:=b; 2: tmp:=c; end; Edit1.text:=Edit1.Text+tmp; //добавляем к паролю end; end; если нужны русские буквы то они в диапазоне 195-255 Последний раз редактировалось Snake22, 16.03.2012 в 19:42. |
#4
|
||||
|
||||
В форрм1 ни чего не надо?а то написал компилирую какое-то окно выскакивает.
var i, num : integer; randomize; for i:=0 to 9 do begin num:= random(9); Edit1.Text:= Edit1.Text + inttostr(num); end; Или не правильно? |
#5
|
|||
|
|||
какое окно?
покажи весь код. перед randomze; у тебя begin пропущен на форме едит1 должен быть |
#6
|
||||
|
||||
Кажись у меня программа касячная .Подскажите где норм.скинуть чтоб бес касяков.
|
#7
|
|||
|
|||
Сомневаюсь я что это программа косячная.
Пошаговая инструкция так сказать: 1. Запускаешь Delphi. 2. File - New - VCL Forms Application 3. На форму перетаскиваешь 1хTButton, 1xTEdit 4. В Edit1 очищаешь свойство Text 5. Делаешь двойной клик на Button1 5. В процедуре перед begin но после procedure TForm1.Button1Click..... объявляешь переменные. 6. После слова begin вставляешь сам код. 7. Нажимаешь F9. 8. Радуешься. |
#8
|
||||
|
||||
Цитата:
|
#9
|
||||
|
||||
окно выскакивает. я HELP нажимаю-пишет:"не удается найти файл справки проверьте наличие файла на диске и при необходимости переустановите."
|
#10
|
||||
|
||||
И все же подскажите где можно скачать делфи без всяких проблем.
|
#11
|
|||
|
|||
http://www.delphilab.ru/content/blogcategory/53/96/
Вторая ссылка в гугле. Акурат после данного форума. Какое окно выскакивает? |
#12
|
|||
|
|||
Как-же это все таки печально....
Вот, держи: http://rghost.ru/37064533 |
#13
|
||||
|
||||
Цитата:
|
#14
|
||||
|
||||
Цитата:
|
#15
|
||||
|
||||
Все таки скачал спасибо.Быстро.Вирусов нет.
А как установить.Почему то не устанавливается. |