:local senha;
:local months ("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec");
:local ds [/system clock get date]

:local month [ :pick $ds 0 3 ];
:local mm ([ :find $months $month -1 ] + 1);
:if ($mm < 10) do={ :set $mm ("0" . $mm); }

:set  senha ( "user*" . $mm * [:pick $ds 4 6])

/ip hotspot user set "user" password=$senha

:local senha;
:local ds [/system clock get date]
:local mm [:pick $date 5 7];

:set  senha ( "user*" . $mm * [:pick $ds 8 10])

/ip hotspot user set "user" password=$senha