Функция для генерации паролей в Excel

Описание функции

Функция =ГЕНЕРАЦИЯПАРОЛЯ([ДЛИНА]; [ВКЛ_СИМВ]) имеет два необязательных аргумента

• [ДЛИНА] - Длина пароля. По умолчанию генерируется пароль из 8 символов.
• [ВКЛ_СИМВ] - 0 (по умолчанию) - если пароль не должен содержать символы и 1 если в пароле должны содержаться символы.

Ниже приведены различные примеры работы данной функции.

Пример 1

Генерация пароля из 8 символов.

Пример 2

Генерация пароля заданной длины.

Пример 3

Генерация сложного пароля заданной длины с использованием дополнительных символов.

Код на VBA

Function ГЕНЕРАЦИЯПАРОЛЯ(Optional ДЛИНА As Integer = 8, Optional ВКЛ_СИМВ As Boolean = False) As String
 
    Dim i As Integer
    Dim simb As String * 1
    Dim arrsimb As Integer
    Dim password As String
    Randomize
 
    If ВКЛ_СИМВ = False Then
        For i = 1 To ДЛИНА
            arrsimb = Int(Rnd * 3)
            Select Case arrsimb
                Case 0
                    simb = Int(Rnd * 9)
                Case 1
                    simb = Chr(Int((90 - 65 + 1) * Rnd + 65))
                Case 2
                    simb = Chr(Int((122 - 97 + 1) * Rnd + 97))
            End Select
 
            password = password & simb
        Next
    Else
        For i = 1 To ДЛИНА
            simb = Chr(Int((126 - 33 + 1) * Rnd + 33))
            password = password & simb
        Next
    End If
 
    ГЕНЕРАЦИЯПАРОЛЯ = password
End Function