случайный пароль от вайфая

Я написал такой скрипт для клиента, которому нужно было менять пароль WiFi каждую неделю. В моём случае роутер генерирует пароль на основе некоторых переменных и устанавливает новый пароль. Затем он отправляет его по электронной почте и через API подключается к моему SMS-шлюзу, отправляя сотрудникам пароль на эту неделю. Всё это происходит прямо в самом роутере. Если тебе всё ещё нужно что-то подобное — обращайся. С уважением, Josh

В моей ситуации хозяин нескольких кофеен хотел быть уверенным, что люди не займут столики на целый день, ничего не покупая, ведь его заведения были довольно маленькими. Поэтому он стал выдавать пароль от WiFi на неделю, напечатанный на чеке. Он предпочитал менять пароль раз в неделю, а не каждый день, и хотел, чтобы пароль начинался со слова coffee и содержал вариацию из 3–4 цифр. Пример: coffee1839

#######################################
## #VoIP Squared WiFi Password Generator Script###
#######################################

:local toEmail youremail@domain.com  
:local fromEmail router@yourdomain.com  
:local prepend coffee  
:local wifiprofile profile33  
:local secr [/system resource get write-sect-since-reboot];
/log info message=“Sector Writes Since Reboot=$secr”  
:local runc [/system script get WiFiPasswordGenerator run-count];
/log info message=“WiFiPasswordGenerator Run Count=$runc”  
:local date1 [:pick [/system clock get date] 4 6];
/log info message=“Month=$date1”  
:local time1 [:pick [/system clock get time] 6 8];
/log info message=“Seconds=$time1”  
:local time2 [:pick [/system clock get time] 3 5];
/log info message=“Minute=$time2”  
:if ($date1 < 02) do={ :set date1 (“03”); };  
:if ($time1 < 10) do={ :set time1 (“12”); };  
:if ($time2 < 10) do={ :set time2 (“15”); };  
:if ($runc < 10) do={ :set runc (“19”); }  
:if ($secr < 10) do={ :set secr (“25”); }  

## #Удалите, если хотите пароль подлиннее###  
:if ($secr > 99) do={ :set secr (“9”); };  
## #Удалите, если хотите пароль подлиннее###  

### #Используйте закомментированную строку ниже вместо следующей, если нужен более длинный пароль####  
#:local newPassword ($date1 * $time1 * $time2 * $secr);  

:local newPassword ($date1 * $time1 * $secr);  
/log info message=“Month x Seconds x Sector Writes Since Reboot=$newPassword”  
:set newPassword ($prepend . $newPassword);  
:interface wireless security-profiles set $wifiprofile wpa-pre-shared-key=“$newPassword”;  
:interface wireless security-profiles set $wifiprofile wpa2-pre-shared-key=“$newPassword”;  
:log info message=“New WiFi Password Set To=$newPassword”  
:log info message=“Preparing To Email New WiFi Password”  
delay 2  
:tool e-mail send user=$fromEmail to=$toEmail subject=“$[/system identity get name] WiFi Password” body=“This Week’s Wireless Password Is: $newPassword”;
delay 2  
:log info message=“New WiFi Password Has Been Emailed”  
:log info message=“See You Next Week”

Смените тему форума, и у вас получится. Смотрите ниже.

Рад, что тебе удалось подстроить это под свои нужды.

Именно то, что мне нужно было — спасибо огромное!!!

Привет, bvt1977! Вот изменённый скрипт для Capsman, надеюсь, он поможет…  
#######################################  
### Скрипт генерации пароля для WiFi ###  
#######################################  
# получатели почты  
:local recipients { "user1@gmail.com"; "user2@gmail.com"; "user3@gmail.com"; "user5@gmail.com"; "user1@yahoo.com" }  
:local fromEmail ************@gmail.com  
:local prepend home  
# :local wifiprofile WifiPass  
:local wifiprofile 0  

:local secr [/system resource get write-sect-since-reboot];
/log info message="Сектор записей с момента перезагрузки=$secr"  

:local runc [/system script get WiFiPasswordGenerator run-count];
/log info message="Количество запусков WiFiPasswordGenerator=$runc"  

:local date1 [:pick [/system clock get date] 4 6];
/log info message="Месяц=$date1"  

:local time1 [:pick [/system clock get time] 6 8];
/log info message="Секунды=$time1"  

:local time2 [:pick [/system clock get time] 3 5];
/log info message="Минуты=$time2"  

:if ($date1 < 02) do={  
:set date1 ("03");  
};  
:if ($time1 < 10) do={  
:set time1 ("12");  
};  
:if ($time2 < 10) do={  
:set time2 ("15");  
};  
:if ($runc < 10) do={  
:set runc ("19");  
}  
:if ($secr < 10) do={  
:set secr ("25");  
}  
### Уберите этот блок, если хотите более длинный пароль ###  
:if ($secr > 99) do={  
:set secr ("9");  
};  
### Уберите этот блок, если хотите более длинный пароль ###  

#### Используйте закомментированную строку ниже вместо следующей, если хотите более длинный пароль ####  
#:local newPassword ($date1 * $time1 * $time2 * $secr);  или  :local newPassword ($date1 * $time1 * $secr);  
:local newPassword ($date1 * $time1 * $secr);  
/log info message="Месяц x Секунды x Сектор записей с момента перезагрузки=$newPassword"  
:set newPassword ($prepend . $newPassword);  
:log info message="Готовлюсь отправить новый WiFi пароль пользователям по почте"  
:foreach r in=$recipients do={  
:put ("Отправка письма на " . [:tostr $r])
/tool e-mail send from=***********@gmail.com to=[:tostr $r] subject="WiFi AP Password" body="Пароль на эту неделю для беспроводной сети: $newPassword" server=173.194.67.108 port=587 start-tls=yes user=*********@gmail.com password=*******
}  
# Задержка 300 секунд нужна, чтобы пользователи, уже подключённые к WiFi, получили письмо до смены пароля.  
delay 300  
#  
/caps-man security set $wifiprofile passphrase="$newPassword";  
#  
:log info message="Новый WiFi пароль установлен: $newPassword"  
:log info message="Новый WiFi пароль отправлен по почте"  
:log info message="До встречи на следующей неделе"  
:set newPassword ($prepend . $newPassword);  
#  
:log info message="Новый WiFi пароль установлен: $newPassword"  
delay 2  
/caps-man security print file=WifiPassword

:local wifiprofile "Имя вашего профиля беспроводной безопасности"  
# "len=" в URL — это количество символов в создаваемом пароле  
/tool fetch url="https://www.random.org/passwords/\?num=1&len=10&format=plain&rnd=new" keep-result=yes dst-path="pass.txt"  
delay 3  
# Последняя цифра перед закрывающей скобкой должна совпадать с "len=" из URL  
:local newPassword [put [pick ([/file get [/file find name=pass.txt] contents]) 0 10]];
:interface wireless security-profiles set $wifiprofile wpa-pre-shared-key="$newPassword";  
:interface wireless security-profiles set $wifiprofile wpa2-pre-shared-key="$newPassword";  
/file remove [find name="pass.txt"];
/log info message="Новый пароль Wi-Fi = $newPassword"