[software] [catdoc] [tcl] [geography] [old things]

Testing system random number generator

This is small Tcl script which tests if given random number sequece (at least 2500 bytes) passes requirements of US Federal Information Protection Standard FIPS 140-1. On Solaris or Linux system you can run
./fips140 /dev/random
On FreeBSD read from /dev/random returns even in blocking mode without reading requested amount of bytes. So collect 2500 bytes from /dev/random yourself before running program on this file