software/tcl/fips140.html

   1 <HTML><HEAD>
   2 <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=koi8-r">
   3 <TITLE>Testing random number generator</TITLE>
   4 <META NAME="description" CONTENT="Perfoms FIPS-140 test on the file/device with random bytes">
   5 </HEAD><BODY>
   6 <h1><A NAME="fips140">Testing system random number generator</A></H1>
   7 This is small <A HREF="fips140.tcl">Tcl script</A> which tests if
   8 given random number sequece (at least 2500 bytes) passes requirements
   9 of US Federal Information Protection Standard <A
  10 HREF="http://www.cerberussystems.com/INFOSEC/stds/fip140-1.htm#sec4.9"
  11 >FIPS 140-1</A>. On Solaris or Linux system you can run
  12
  13 <pre>
  14 ./fips140 /dev/random
  15 </pre>
  16 On FreeBSD read  from <TT>/dev/random</TT> returns even in blocking mode
  17 without reading requested amount of bytes. So collect 2500 bytes from
  18 <tt>/dev/random</tt> yourself before running program on this file
  19 </BODY>
  20 </HTML>