ISAAC (Indirection, Shift, Accumulate, Add, and Count) is a (pseudo) Random Number generator that is supposedly cryptographically secure. The designer of the ISAAC algorithm, Bob Jenkins, has his homepage at http://burtleburtle.net/bob/rand/isaacafa.html
The random package also includes an implementation of the ISAAC algorithm.
The memchan random channel uses the ISAAC algorithm too.
The following code implements the ISAAC algorithm. It provides three public commands in the "isaac" namespace:
#
# ----------------------------------------------------------------------
# ISAAC: a fast cryptographic random number generator
# Derived from the source code for ISAAC by Bob Jenkins.
#
# ISAAC (Indirection, Shift, Accumulate, Add, and Count) generates
# 32-bit random numbers. Cycles are guaranteed to be at least 2^40
# values long, and they are 2^8295 values long on average. The
# results are uniformly distributed, unbiased, and unpredictable
# unless you know the seed.
#
# For more information, see the ISAAC homepage at
# http://www.burtleburtle.net/bob/rand/isaacafa.html
#
# This implementation (c) 2004 by Frank Pilhofer. Released under BSD
# license.
# ----------------------------------------------------------------------
#
package require Tcl 8.4
namespace eval isaac {
#
# Random numbers
#
variable randrsl
variable randcnt 256
#
# Internal state
#
variable mm
variable aa
variable bb
variable cc
}
#
# Mix helper
#
proc isaac::mix {a b c d e f g h} {
set a [expr {($a ^ ($b << 11)) & 0xffffffff}]
set d [expr {($d + $a) & 0xffffffff}]
set b [expr {($b + $c) & 0xffffffff}]
set b [expr {($b ^ ($c >> 2)) & 0xffffffff}]
set e [expr {($e + $b) & 0xffffffff}]
set c [expr {($c + $d) & 0xffffffff}]
set c [expr {($c ^ ($d << 8)) & 0xffffffff}]
set f [expr {($f + $c) & 0xffffffff}]
set d [expr {($d + $e) & 0xffffffff}]
set d [expr {($d ^ ($e >> 16)) & 0xffffffff}]
set g [expr {($g + $d) & 0xffffffff}]
set e [expr {($e + $f) & 0xffffffff}]
set e [expr {($e ^ ($f << 10)) & 0xffffffff}]
set h [expr {($h + $e) & 0xffffffff}]
set f [expr {($f + $g) & 0xffffffff}]
set f [expr {($f ^ ($g >> 4)) & 0xffffffff}]
set a [expr {($a + $f) & 0xffffffff}]
set g [expr {($g + $h) & 0xffffffff}]
set g [expr {($g ^ ($h << 8)) & 0xffffffff}]
set b [expr {($b + $g) & 0xffffffff}]
set h [expr {($h + $a) & 0xffffffff}]
set h [expr {($h ^ ($a >> 9)) & 0xffffffff}]
set c [expr {($c + $h) & 0xffffffff}]
set a [expr {($a + $b) & 0xffffffff}]
return [list $a $b $c $d $e $f $g $h]
}
#
# Initialize, from a (binary) seed string
#
proc isaac::init {seed} {
variable aa
variable bb
variable cc
variable mm
#
# Seed needs to be 256 * 32 bit integers
#
set slen [string length $seed]
if {$slen < 1024} {
append seed [string repeat "\0" [expr {1024-$slen}]]
}
binary scan $seed i256 iseed
#
# Initialize
#
set aa 0
set bb 0
set cc 0
set mm [list]
set a 0x9e3779b9
set b 0x9e3779b9
set c 0x9e3779b9
set d 0x9e3779b9
set e 0x9e3779b9
set f 0x9e3779b9
set g 0x9e3779b9
set h 0x9e3779b9
set tmm [list]
for {set i 0} {$i < 4} {incr i} {
foreach {a b c d e f g h} [mix $a $b $c $d $e $f $g $h] {}
}
for {set i 0} {$i < 256} {incr i 8} {
incr a [lindex $iseed $i]
incr b [lindex $iseed [expr {$i + 1}]]
incr c [lindex $iseed [expr {$i + 2}]]
incr d [lindex $iseed [expr {$i + 3}]]
incr e [lindex $iseed [expr {$i + 4}]]
incr f [lindex $iseed [expr {$i + 5}]]
incr g [lindex $iseed [expr {$i + 6}]]
incr h [lindex $iseed [expr {$i + 7}]]
set a [expr {$a & 0xffffffff}]
set b [expr {$b & 0xffffffff}]
set c [expr {$c & 0xffffffff}]
set d [expr {$d & 0xffffffff}]
set e [expr {$e & 0xffffffff}]
set f [expr {$f & 0xffffffff}]
set g [expr {$g & 0xffffffff}]
set h [expr {$h & 0xffffffff}]
foreach {a b c d e f g h} [mix $a $b $c $d $e $f $g $h] {}
lappend tmm $a $b $c $d $e $f $g $h
}
for {set i 0} {$i < 256} {incr i 8} {
incr a [lindex $tmm $i]
incr b [lindex $tmm [expr {$i + 1}]]
incr c [lindex $tmm [expr {$i + 2}]]
incr d [lindex $tmm [expr {$i + 3}]]
incr e [lindex $tmm [expr {$i + 4}]]
incr f [lindex $tmm [expr {$i + 5}]]
incr g [lindex $tmm [expr {$i + 6}]]
incr h [lindex $tmm [expr {$i + 7}]]
set a [expr {$a & 0xffffffff}]
set b [expr {$b & 0xffffffff}]
set c [expr {$c & 0xffffffff}]
set d [expr {$d & 0xffffffff}]
set e [expr {$e & 0xffffffff}]
set f [expr {$f & 0xffffffff}]
set g [expr {$g & 0xffffffff}]
set h [expr {$h & 0xffffffff}]
foreach {a b c d e f g h} [mix $a $b $c $d $e $f $g $h] {}
lappend mm $a $b $c $d $e $f $g $h
}
isaac
}
#
# Produce some more random numbers
#
proc isaac::isaac {} {
variable aa
variable bb
variable cc
variable mm
variable randrsl
variable randcnt
set cc [expr {($cc + 1) & 0xffffffff}]
set bb [expr {($bb + $cc) & 0xffffffff}]
set randrsl [list]
for {set i 0} {$i < 256} {incr i} {
set x [lindex $mm $i]
if {($i % 4) == 0} {
set aa [expr {($aa ^ ($aa << 13)) & 0xffffffff}]
} elseif {($i % 4) == 1} {
set aa [expr {($aa ^ ($aa >> 6)) & 0xffffffff}]
} elseif {($i % 4) == 2} {
set aa [expr {($aa ^ ($aa << 2)) & 0xffffffff}]
} else {
set aa [expr {($aa ^ ($aa >> 16)) & 0xffffffff}]
}
set tmp [lindex $mm [expr {($i + 128) & 0xff}]]
set aa [expr {($tmp + $aa) & 0xffffffff}]
set tmp [lindex $mm [expr {($x >> 2) & 0xff}]]
set y [expr {($tmp + $aa + $bb) & 0xffffffff}]
set mm [lreplace $mm $i $i $y]
set tmp [lindex $mm [expr {($y >> 10) & 0xff}]]
set bb [expr {($tmp + $x) & 0xffffffff}]
lappend randrsl $bb
}
set randcnt 0
}
#
# ----------------------------------------------------------------------
# Public interface
# ----------------------------------------------------------------------
#
#
# Initialize with a random (binary string) seed
#
proc isaac::srand {seed} {
init $seed
}
#
# Generates an integer random number in the [0,0xffffffff] interval
#
proc isaac::int32 {} {
variable randcnt
variable randrsl
if {$randcnt >= 256} {
isaac
}
set res [lindex $randrsl $randcnt]
incr randcnt
return $res
}
#
# Generates a floating-point random number in the [0,1) interval
#
proc isaac::rand {} {
set tmp [int32]
return [expr {double($tmp) / 4294967296.0}]
}
#
# ----------------------------------------------------------------------
# Print test vectors, for comparison with the original code
# ----------------------------------------------------------------------
#
proc isaac::test {} {
variable randrsl
init [string repeat "\0" 1024]
for {set i 0} {$i < 2} {incr i} {
isaac
for {set j 0} {$j < 256} {incr j} {
puts -nonewline [format "%.8x " [lindex $randrsl $j]]
if {($j & 7) == 7} {
puts ""
}
}
}
}
proc isaac::test2 {} {
srand [string repeat "\0" 1024]
for {set j 0} {$j < 256} {incr j} {
int32
}
for {set i 0} {$i < 2} {incr i} {
for {set j 0} {$j < 256} {incr j} {
set random [int32]
puts -nonewline [format "%.8x " $random]
if {($j & 7) == 7} {
puts ""
}
}
}
}Initially written by FPX.