https://foro.gambas-es.org/viewtopic.php?f=5&t=4963&p=28721#p28721
-----------------------------------
vuott
Sabado, 31 Octobre 2015, 18:47

Obtener Numeros Casuales Desde Los File-device "/dev/random" Y "/dev/urandom"
-----------------------------------
Hola hermanosss,

podemos conseguir numeros casuales de tipo Byte (los [i]unsigned char[/i] del C) leyendo los file-device "[i]/dev/random[/i]" y "[i]/dev/urandom[/i]".

Ejemplo leyendo el archivo especial "[i]/dev/urandom[/i]":

[code linenumbers=false syntax=gambas]Public Sub Main()

  Dim fl As File
  Dim b As Byte
  
    fl = Open "/dev/urandom" For Read

    While True
      Read #fl, b
      Write "\r" & b & Space(2)
      Sleep 0.3
    Wend

End[/code]


Referencias:
* http://manpages.ubuntu.com/manpages/vivid/es/man4/random.4.html
* http://man7.org/linux/man-pages/man4/urandom.4.html


