Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Кодировка в текстовом редакторе https://www.cyberforum.ru/ delphi-beginners/ thread2357750.html
Задача: сделать простейший текстовый редактор. Сделано. При сохранении текста выводи абракадабру (другая кодировка). Например, сохранил текст "1111" в .txt. Открывая файл вижу следующее: ...
Проблема с программой Delphi
Вот само задание: Описать переменную расписание, содержащую: день недели; количество пар в этот день; время начала и конца пары; название предмета; фамилию преподавателя. Вывести полную информацию...
Сдвиг массива влево и вправо. Delphi
у меня массив mas из 10 столбцов и 1 строчки,нужно сдвинуть массив влево и вправо нажатием на кнопку,числа заранее внесены
Delphi Найти максимальный элемент в каждом столбце массива Подскажите пожалуйста. Я новичек, не получается( Дан двумерный массив(во вложениях есть то, что получилось), нужно найти максимальный элемент в каждом столбце массива. unit Unit1; interface uses... https://www.cyberforum.ru/ delphi-beginners/ thread2357578.html
Delphi Программная реализация метода сетевого планирования и управления https://www.cyberforum.ru/ delphi-beginners/ thread2357442.html
Здравствуйте, у меня такая проблема,программа запускается, но я не могу ввести данные в edit, не знаю в чем ошибка...Помогите пожалуйста,если можно,посмотрите пожалуйста программу,я прикрепила ее в...
Delphi Преобразовать строку, удалив все слова, содержащие менее двух различных букв
Нужна помощь! Дан текстовый файл Intel.in, содержащий строковые величины S. Преобразовать каждую из них, не привлекая других литеральных величин, удалив все слова, в которых встречается менее двух...
Как записать значение memo в файл? Delphi
Добрый день. Пожалуйста помогите записать значения memo в файл. Использовал Memo1.Lines.SaveToFile но информация перезаписывается, а мне нужно что бы она записовалась в 1 файл const ...
Delphi Заполнить StringGrid числами кратными 5 Помогите пожалуйста, надо заполнить StringGrid числами кратными 5, и чтобы количество строк в StringGrid было равно количеству Items Listbox, не получается никак :( https://www.cyberforum.ru/ delphi-beginners/ thread2357309.html
Delphi Работа со временем https://www.cyberforum.ru/ delphi-beginners/ thread2357225.html
procedure TForm1.Button1Click(Sender: TObject); var s: String; FS: TFormatSettings; begin GetLocaleFormatSettings (0, FS); FS.DateSeparator:='/'; FS.ShortDateFormat:='DD/MM/YYYY'; s:=DateToStr...
Delphi Земля не хочет крутиться вокруг Солнца Всем привет. Задача программы: надо показать вращение Земли (вместе со спутником) вокруг Солнца. Луна спокойно крутится вокруг Земли, но сама Земля почему-то "налетает" через минуту после запуска на... https://www.cyberforum.ru/ delphi-beginners/ thread2357059.html
0 / 0 / 0
Регистрация: 05.11.2018
Сообщений: 20
0
Delphi 6-7

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

24.11.2018, 21:50. Показов 2268. Ответов 10
Метки (Все метки)

Прошу помочь в составлении кода, а также выделить существующие, грубые ошибки.
Я в программировании не так давно, так что прошу повежливее.



Вот код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
unit Unit3;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  WAS123 = 0..255;
  TForm4 = class(TForm)
    passwordsgeneration: TButton;
    Edit1: TEdit;
 
 
 
 
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
{$R *.dfm}
 
 
var
  a,d,j,k,n:string;
  b,c,e,f,h,i,l,m,o,p:WAS123;
 
 
procedure Letter;
begin
begin
randomize;
a:='';
for b:=1 to 10 do
begin
repeat
c:=48+random(75);
until c in [48..57,97..122];
a:=a+chr(c);
end;
end;
                              {1ый блок}
 
begin
randomize;
d:='';
for e:=1 to 10 do
begin
repeat
f:=48+random(118);
until f in [48..57,97..122];
d:=d+chr(f);
end;
end;                                {2ой блок}
 
begin
randomize;
j:='';
for h:=1 to 10 do
begin
repeat
i:=48+random(99);
until i in [48..57,97..122];
j:=j+chr(i);
end;
end;                                {3ий блок}
 
begin
randomize;
k:='';
for l:=1 to 10 do
begin
repeat
m:=48+random(67);
until m in [48..57,97..122];
k:=k+chr(m);
end;
end;                                  {4ый блок}
 
begin
randomize;
n:='';
for o:=1 to 10 do
begin
repeat
p:=48+random(105);
until p in [48..57,97..122];
n:=n+chr(p);
end;
end;
ShowMessage(a);
ShowMessage(d);
ShowMessage(j);
ShowMessage(k);
ShowMessage(n);
end;
 
 
procedure passwordsgenerationClick(Sender: TObject);
begin
TEdit.Clear;
Letter;
end;
end.


Вернуться к обсуждению:
Генератор паролей
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2018, 21:50
Готовые ответы и решения:

Генератор паролей
Пишу программу "Генератор паролей", сначала написал на Pascal, компилировалось и работало отлично....

Генератор паролей
На курсовую надо создать генератор паролей... я в Delphi дуб дубом... помогите!!! Напишите как это...

Генератор паролей
Люди подскажите как сделать чтобы после каждых 15 символов ставил тире '-' или пропуск ' ' Вот код...

Генератор паролей
Начал писать генератор паролей, смотрел видео по нему, всё точь в точь так же написано.Код: unit...

10
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.