Вчера наконец допилил скрипт, созданный уважаемым vqd и он начал работать....
Сам скрипт звучал так:
:local pop 3
:local mac
:local wifi [/log find message~"data from unknown device"]
foreach i in=$wifi do={
:set mac [:pick [/log get $i message ] 32 ([:len [/log get $i message ]]-13)]
if ([:len [/log find message~("data from unknown device " . $mac)] ] >= $pop) do={
if ([/interface wireless access-list find mac-address=$mac] = "" ) do={
/interface wireless access-list add mac-address=$mac authentication=no interface=all
}
}
}
Скрипт оказался неработоспособен... В силу того, что при неудачном вводе пароля в логах не проскакивает сообщение с фразой "data from unknown device"............... Допилил скрипт и вот что получилось
:local pop 4
:local mac
:local wifi [/log find message~"disconnected, unicast key exchange timeout"]
foreach i in=$wifi do={
:set mac [:pick [/log get $i message ] 0 ([:len [/log get $i message ]]-50)]
#:log warning $mac
if ([:len [/log find message~($mac . "@wlan1: disconnected, unicast key exchange timeout")] ] >= $pop) do={
if ([/interface wireless access-list find mac-address=$mac] = "" ) do={
/interface wireless access-list add mac-address=$mac authentication=no interface=all
}
}
}
#:log warning "FINISH"
Закидываем скрипт в планировщик и запускаем каждые N минут
Для того, чтобы в бан не попадали разрешённые девайсы, заранее добавляем их в ацесЛист...