Программа для генерации паролей - Pascal ABC

Формулировка задачи:

Ребята, помогите с написанием программы для генерации паролей из 8-ми символов где:первые три символа, это случайные цифры, четвёртый и пятый, это случайные символы из множества {!, ”, #, $, %, &, ‟, (, ), *}, шестой и седьмой, это случайные заглавные буквы русского алфавита, а восьмой буква Ё.

Код к задаче: «Программа для генерации паролей - Pascal ABC»

textual
Function PassGenerator : String;
Const
  m1 = '!”#$%&‟()*';
  m2 = '0123456789';
  m3 = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
Begin
  PassGenerator:=m2[Random(Length(m2))+1]+m2[Random(Length(m2))+1]+m2[Random(Length(m2))+1]+
    m1[Random(Length(m1))+1]+m1[Random(Length(m1))+1]+m3[Random(Length(m3))+1]+m3[Random(Length(m3))+1]+'Ё'
end;
 
Var i : Byte;
Begin
  Randomize;
  For i:=1 to 10 do Writeln(PassGenerator);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.643 из 5


СДЕЛАЙТЕ РЕПОСТ