Updated 2018-08-24 14:56:27 by pooryorick

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.