#1::
MsgBox % PassGen(16)
return

PassGen(PassLen) ; Параметр - длина пароля
{
    alph = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 ; Задаем набор символов для генерации пароля
    len := StrLen(alph) 
    x0 := A_TickCount ; Устанавливаем начальное значение последовательности псевдослучайных чисел
	a := 12345 ;\
	c := 54321 ; } Константы
	m := 2**32 ;/
    Pass =     ; Тут будет сгенерированный Пароль
    loop %PassLen%
    {
		x0 := Mod(a*x0+c,m) ; Вычисляем следующее псевдостучайное число
        Pass .= SubStr(alph, mod(x0, len), 1) ; Выбираем случайный символ из списка
    }
return Pass  ; Возвращаем пароль
}