mirror.MikroTik/eworm.routeros-scripts
1
0
Fork 0
mirror of https://git.eworm.de/cgit/routeros-scripts synced 2025-06-21 01:15:42 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

global-functions: $GetRandomNumber: use $GetRandomSha256

Browse source
This commit is contained in:
Christian Hesse 2020-06-18 12:51:09 +02:00
parent 529dbbe4f8
commit 12015af855
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
global-functions
View file

@ -305,16 +305,22 @@
} }
# generate random number # generate random number
# Warning: This is a *very* weak algorithm and in *no way*
# useful for cryptography or similar!
:set GetRandomNumber do={ :set GetRandomNumber do={
:local Max ([ :tonum $1 ] + 1); :local Max ([ :tonum $1 ] + 1);
:local Sum 0;
:foreach Interface in=[ /interface find ] do={ :global GetRandomSha256;
:set Sum ($Sum + [ /interface get $Interface tx-byte ]);
:local Num;
:local Sha256 [ $GetRandomSha256 ];
:for I from=0 to=63 do={
:local Char [ :pick $Sha256 $I ];
:if ($Char~"[0-9]") do={
:set Num ($Num . $Char);
}
} }
:return ($Sum % $Max);
:return ([ :tonum [ :pick $Num 0 18 ] ] % $Max);
} }
# generate random sha256 string # generate random sha256 string