Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/12: Рейтинг темы: голосов - 12, средняя оценка - 4.75
Skeptik
0 / 0 / 1
Регистрация: 21.10.2009
Сообщений: 88
1

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

07.07.2010, 23:54. Просмотров 2302. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program passwords_Generator;
uses crt;
var a,b:array[1..1000] of integer;
n,i:integer; s:string;
begin
clrscr;
write('Vvedite kol. simvolov:'); read(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(122-97+1)+97;
b[i]:=random(10);
write(chr(a[i]),b[i]);
end;
readkey
End.
Подскажите, как сделать, чтобы выводило случайный образом цифры и буквы =) Пока что выводит поочередно буква, цифра, буква, цифра
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.07.2010, 23:54
Ответы с готовыми решениями:

Генератор паролей
Создайте генератор паролей, который выдает текстовый файл со 100...

Программа - генератор паролей
нужна программа. условия: a. Ввод идентификатора пользователя с клавиатуры....

Нужно создать программу генератора паролей
Помогите создать программу генератора паролей он должен генерировать пароли...

Генератор
. Генератор Имя входного файла input.txt Имя выходного файла output.txt...

Генератор случайных чисел
1) дан массив целых чисел. Найти сумму элементов массива, принадлежащих...

1
Хохол
Эксперт С++
475 / 443 / 34
Регистрация: 20.11.2009
Сообщений: 1,292
08.07.2010, 00:01 2
Pascal
1
2
3
4
5
6
7
8
9
function randomSymbol: char;
var r: byte;
begin
  r := random(36);
  if r <= 9 then
     randomSymbol := chr(r+ord('0'))
  else
     randomSymbol := chr(r-10 + ord('a'));
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.07.2010, 00:01

Генератор псевдослучайных чисел
с программированием и моделированием всегда было туго, обращаюсь к...

Генератор случайных слов
Именно слов, а не тарабарщины по типу x98hwro20jd это я нашёл и сам, как...

Генератор табличных чисел
Создать Генератор табличных чисел. 0123 4567 89AB CDEF Условие:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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