mikrotik_random_number

{

:local seed ([/certificate scep-server otp generate minutes-valid=0 as-value]->"password")
:local angka 0
:local char

:for i from=1 to=([:len $seed]-1) do={
  :set char [:tonum [:pick $seed $i]]

:if ( $char > 0 ) do= {
    :set angka [:tonum (($angka + $char)*2) ]
  }
}
:put $angka

}