Get Random Bytes on *NIX

Created by CecilWesterhof.

Getting Random Bytes on a *NIX System

There are several reasons you want to get a set of random bytes. I wrote a version for *NIX systems:

proc getRandomBytesNix {count {secure False}} {
    if $secure {
        set randFile /dev/random
    } else {
        set randFile /dev/urandom
    }
    set    randDev [open $randFile rb]
    set    random  [read $randDev  $count]
    close  $randDev
    return $random
}

In almost all cases you do not need /dev/random, so normally you would call it like:

set random [getRandomBytesNix 16]

As always: comments, tips and questions are appreciated.