Функция по созданию паролей.

Перед вызовом функции нужно добавить:

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, CountLine1)];
Number = RNG.RandomNumber(1, StrLen(StringRange));
Symbol = Mid(StringRange, Number, 1);
NewPass = NewPass + Symbol
EndDo;
//———————————————————————-
Return NewPass;

EndFunction

Андрей Янакаев

Добавить комментарий