AutoIt: 3.3.6.1
Версия: 0.1
Категория: Вспомогательные функции
Описание: Генератор пароля любой длины, но (пока что) фиксированной сложности. Неиспользуемые аргументы оставил для использования в будущем.
Код:
Способы облегчения и урезки кода хочу узреть я. Было бы неплохо. :IL_AutoIt_1:
Версия: 0.1
Категория: Вспомогательные функции
Описание: Генератор пароля любой длины, но (пока что) фиксированной сложности. Неиспользуемые аргументы оставил для использования в будущем.
Код:
Код:
Global $password, $nums, $smalls, $larges
ConsoleWrite(PassGen(8))
Func PassGen($arg)
For $i = 1 To $arg
$res = GenType(1)
$password = $password & $res
Next
Return $password
EndFunc
Func PassGenNum($arg)
$chars = ""
For $i = 1 To $arg
$char = Chr(Random(48,57,1))
$chars = $chars & $char
$nums = $nums + 1
Next
Return $chars
EndFunc
Func PassGenSmall($arg)
$chars = ""
For $i = 1 To $arg
$char = Chr(Random(97,122,1))
$chars = $chars & $char
$smalls = $smalls + 1
Next
Return $chars
EndFunc
Func PassGenLarge($arg)
$chars = ""
For $i = 1 To $arg
$char = Chr(Random(65,90,1))
$chars = $chars & $char
$larges = $larges + 1
Next
Return $chars
EndFunc
Func GenType($arg)
$i = Random(0,2,1)
Switch $i
Case 0
$res = PassGenNum($arg)
Case 1
$res = PassGenSmall($arg)
Case 2
$res = PassGenLarge($arg)
EndSwitch
Return $res
EndFunc
ConsoleWrite(@LF&"nums = "&$nums&@LF&"smalls = "&$smalls&@LF&"larges = "&$larges&@LF)
