Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.03.2012, 19:05
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию Генератор паролей

Люди помогите написать простейший генератор паролей.!хочу чтобы программа состояла из едит буттон т.е.нажимаешь на буттон в графе эдит появляется пароль.
__________________
http://stroilki.ru/ мой сайт
Ответить с цитированием
  #2  
Старый 16.03.2012, 19:33
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Объявляешь переменные:
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  
Старый 16.03.2012, 19:34
Snake22 Snake22 вне форума
Активный
 
Регистрация: 20.02.2011
Сообщения: 374
Репутация: 744
По умолчанию

Код:
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  
Старый 16.03.2012, 19:41
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

В форрм1 ни чего не надо?а то написал компилирую какое-то окно выскакивает.
var
i, num : integer;
randomize;
for i:=0 to 9 do
begin
num:= random(9);
Edit1.Text:= Edit1.Text + inttostr(num);
end;
Или не правильно?
Ответить с цитированием
  #5  
Старый 16.03.2012, 19:45
Snake22 Snake22 вне форума
Активный
 
Регистрация: 20.02.2011
Сообщения: 374
Репутация: 744
По умолчанию

какое окно?
покажи весь код.
перед randomze; у тебя begin пропущен
на форме едит1 должен быть
Ответить с цитированием
  #6  
Старый 16.03.2012, 19:55
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

Кажись у меня программа касячная .Подскажите где норм.скинуть чтоб бес касяков.
Ответить с цитированием
  #7  
Старый 16.03.2012, 20:27
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Сомневаюсь я что это программа косячная.
Пошаговая инструкция так сказать:
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  
Старый 17.03.2012, 09:06
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

Цитата:
Сообщение от m1sclick
Сомневаюсь я что это программа косячная.
Пошаговая инструкция так сказать:
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. Радуешься.
Хорошо если радуешься.
Ответить с цитированием
  #9  
Старый 17.03.2012, 09:20
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

окно выскакивает. я HELP нажимаю-пишет:"не удается найти файл справки проверьте наличие файла на диске и при необходимости переустановите."
Ответить с цитированием
  #10  
Старый 17.03.2012, 10:28
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

И все же подскажите где можно скачать делфи без всяких проблем.
Ответить с цитированием
  #11  
Старый 17.03.2012, 10:32
nixel nixel вне форума
Начинающий
 
Регистрация: 12.12.2011
Адрес: Москва
Сообщения: 150
Версия Delphi: XE2-U4
Репутация: 131
По умолчанию

http://www.delphilab.ru/content/blogcategory/53/96/
Вторая ссылка в гугле. Акурат после данного форума.

Какое окно выскакивает?
Ответить с цитированием
  #12  
Старый 17.03.2012, 10:48
m1sclick m1sclick вне форума
Начинающий
 
Регистрация: 04.07.2011
Адрес: Украина
Сообщения: 186
Версия Delphi: 2010
Репутация: 2094
По умолчанию

Как-же это все таки печально....
Вот, держи: http://rghost.ru/37064533
Ответить с цитированием
  #13  
Старый 17.03.2012, 17:48
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

Цитата:
Сообщение от m1sclick
Как-же это все таки печально....
Вот, держи: http://rghost.ru/37064533
Готовенькое хорошо,но хочется самому что-то сделать.
Ответить с цитированием
  #14  
Старый 17.03.2012, 17:52
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

Цитата:
Сообщение от nixel
http://www.delphilab.ru/content/blogcategory/53/96/
Вторая ссылка в гугле. Акурат после данного форума.

Какое окно выскакивает?
попытался скачать файл вот что получилось:"ВНИМАНИЕ! Для Вашего IP адреса исчерпан лимит подключений! Попробуйте повторить через 15 минут(ы)."
Ответить с цитированием
  #15  
Старый 17.03.2012, 18:18
Аватар для Паскаль
Паскаль Паскаль вне форума
Новичок
 
Регистрация: 01.02.2012
Сообщения: 78
Версия Delphi: Delphi 7
Репутация: -656
По умолчанию

Все таки скачал спасибо.Быстро.Вирусов нет.
А как установить.Почему то не устанавливается.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:03.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter