Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Составить программу формирования квадратной матрицы А n го порядка (n строк и n столбцов) случайными числами, сделать возможным ее редактирование. " https://www.cyberforum.ru/ delphi-beginners/ thread1045937.html
Составить программу формирования квадратной матрицы А n-го порядка (n строк и n столбцов) случайными числами, сделать возможным ее редактирование. Вычислить количество четных элементов выше k-ой...
Чем можно реализовать панель быстрого запуска в программе? Delphi
Нужно реализовать панель быстрого запуска в программе, то есть добавить иконки,например, печать, поиск и прочее, с помощью чего это все можно сделать?
Delphi массив tshape и отталкивание
создается массив шейпов в рандомных местах на форме, но не соприкасаясь друг с другом,по нажатию они начинают движение, и нужно сделать так что бы они все отталкивались друг от друга и не выходили за...
Delphi одномерный массив в консольном приложении Найти среднее арифметическое квадратов элементов массива А={a}, удовлетворяющих условию: a>=c. Добавлено через 2 минуты Помогите очень надо. Спасибо Добавлено через 15 минут на контрольную... https://www.cyberforum.ru/ delphi-beginners/ thread1045836.html
Delphi Решение диф. уравнений 2-го порядка методом эйлера https://www.cyberforum.ru/ delphi-beginners/ thread1045820.html
помогите ввести 2 параметра: омега и гамма в алгоритме эйлера в функцию ye условие: ye:=ye+h-2*ye*гамма - (омега^2)*xe не могу сообразить что мне прописать чтобы они выводились в программе также...
Изменение размера шрифта Delphi
Привет) Подскажите пожалуйста как можно изменить размера шрифта в поле вывода с помощью объекта ScrollBar
тест. счетчик ответов, нужна дороботка Delphi
помогите с счетчиком ответов, ответ и вопрос считываются с документа ини формата, но я не пойму как сделать чтоб всё правильно было, счет идет неверный, правильные вопросы отмечены плюсом, и еще...
Delphi Записать пример в Delphi Как записать в Delphi этот пример ln(x)+(x+1)^3 https://www.cyberforum.ru/ delphi-beginners/ thread1045612.html
Delphi Подскажите с числами https://www.cyberforum.ru/ delphi-beginners/ thread1045599.html
var i: Integer; begin for i:= 151000000000 to 151000000100 do Memo1.Lines.Add(IntToStr(i)); выводит в мемо от 676144640 до 676144740. далжно от 151000000000 до 151000000100.
Delphi Есть массив объектов, как внутри метода определить индекс объекта вызвавшего метод Есть массив объектов (т.е. например так - object:array of tobject;) как внутри метода класса определить индекс объекта вызвавшего метод? https://www.cyberforum.ru/ delphi-beginners/ thread1045508.html
65 / 0 / 3
Регистрация: 06.11.2010
Сообщений: 177
0

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

17.12.2013, 21:25. Просмотров 1470. Ответов 3
Метки (Все метки)


Здравствуйте! Мне нужно создать генератор паролей, где https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{1} - {b}_{2} - произвольные большие буквы английского алфавита, https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{3} - {b}_{10-q-1} - произвольные маленькие русские буквы,
https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{10-q} - {b}_{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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var q:longint;
    b:array [1..10] of byte;
    i:longint;
const mas:array [1..33] of char =  ( 'а','б','в','г','д','е','ё','ж','з','и',
     'й','к','л','м','н','о','п','р','с','т',
     'у','ф','х','ц','ч','ш','щ','ъ','ы', 'ь',
     'э','ю','я');
begin
randomize;
q:=Length(Edit1.Text) mod 6;
b[1]:=65+random(5);
b[2]:=64+random(4);
for i:=3 to 10-q-1 do
    b[i]:=165+random(3);
Edit2.Clear;
for i:=1 to 10 do
  begin
  edit2.Text:=edit2.Text+char(b[i]);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
 
end;
 
end.
Я пробовал указать символы как ASCII код, но не получается

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

Генератор паролей
Здравствуйте!Как написать генератор паролей с разделителем? Если можно с примерами. Требования:...

Генератор паролей
Добрый день! Прошу помогите с кодом, точнее как написать... Я новичок, начал изучать Delphi....

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

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

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