Функция по созданию паролей.
Перед вызовом функции нужно добавить:
RNG = New RandomNumberGenerator(Second(CurrentDate()));
Для получения пароля необходимо
NewPass = GetPassword(RNG);
Сама функция:
Function GetPassword(RNG, LenPas = 10, Str = True, Cap = True, Dig = True, Cha = False)Export
NewPass = «»;
If Not LenPas > 0 Then
Return NewPass;
EndIf;
//———————————————————————-
SAr = New Array;
If Str = True Then
SAr.Add(«abcdefghijklm»);
SAr.Add(«nopqrstuvwxyz»);
EndIf;
If Cap = True Then
SAr.Add(«ABCDEFGHIJKLM»);
SAr.Add(«NOPQRSTUVWXYZ»);
EndIf;
If Dig = True Then
SAr.Add(«12345»);
SAr.Add(«67890»);
EndIf;
If Cha = True Then
SAr.Add(«@$~»);
SAr.Add(«#%&»);
EndIf;
//———————————————————————-
If SAr.Count() = 0 Then
Return NewPass;
EndIf;
//———————————————————————-
CountLine = SAr.Count();
For i = 1 To LenPas Do
StringRange = SAr[RNG.RandomNumber(0, CountLine—1)];
Number = RNG.RandomNumber(1, StrLen(StringRange));
Symbol = Mid(StringRange, Number, 1);
NewPass = NewPass + Symbol
EndDo;
//———————————————————————-
Return NewPass;
EndFunction