1 2 3 4 5
set randchan [tcl::chan::random [tcl::randomseed]] proc rand_hex {} { global randchan return [binary encode hex [read randchan 8]] }