11 lines
229 B
Text
11 lines
229 B
Text
integer fn = open("/dev/urandom","rb")
|
|
if fn=-1 then
|
|
puts(1,"cannot open /dev/urandom\n")
|
|
else
|
|
sequence s = {}
|
|
for i=1 to 4 do
|
|
s &= getc(fn)
|
|
end for
|
|
close(fn)
|
|
?bytes_to_int(s,signed:=false)
|
|
end if
|