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