Для жадных и ленивых, как я!
Всё очень просто
Цитата из справки 1С
"Длина не менее 7 символов; Содержит не менее 3-х типов символов из перечисленных ниже:
- Заглавные буквы;
- Строчные буквы;
- Цифры;
- Специальные символы;
- Не совпадает с именем пользователя;
- Не является последовательностью символов."
Для примера я использовал только заглавные и строчные буквы латинского алфавита и цифры
Процедура Пуск()
ГСЧ = Новый ГенераторСлучайныхЧисел();
//здесь в скобках можно передать число (инициализацию последовательности случайных чисел определённым числом), а можно и не передавать (генератор случайных чисел инициализируется временем работы операционной системы с момента старта)
//Что всё это значит?
//Это значит, что для ГСЧ = Новый ГенераторСлучайныхЧисел(2016) будет своя уникальная последовательность случайных чисел и она статична.
//Если использовать код, представленный ниже, то для 2016 это последовательность "sfBjgZR" и такая последовательность будет постоянна;
//Так же для уникальности я всегда использую ТекущаяУниверсальнаяДатаВМиллисекундах(), но, повторюсь, его можно не указывать
Пароль = "";
Неиспользуемые = ":<=>?@;[\]^_`"; //мои исключения
Пока СтрДлина(Пароль) < 7 Цикл
НекийСимвол = Символ(ГСЧ.СлучайноеЧисло(48, 122));
//Сначала получаем число из диапазона между 48 и 122
//И получаем его символ по ASCII (см.таблицу)
Если Найти(Неиспользуемые, НекийСимвол) > 0 Тогда//проверка на исключения
Продолжить;
КонецЕсли;
Пароль = Пароль + НекийСимвол;
КонецЦикла;
Сообщить(Пароль);
КонецПроцедуры//Пуск()
