17 lines
283 B
Text
17 lines
283 B
Text
## Random Value
|
|
|
|
Return a random value from /dev/urandom
|
|
|
|
~~~
|
|
{{
|
|
:random:byte
|
|
'/dev/urandom file:R file:open
|
|
&file:read sip file:close ;
|
|
---reveal---
|
|
:n:random
|
|
random:byte #-8 shift
|
|
random:byte + #-8 shift
|
|
random:byte + #8 shift
|
|
random:byte + ;
|
|
}}
|
|
~~~
|