1#!/usr/bin/perl 2 3# 4# Perform primitive binning into 8-bit bins (take 8 bits of randomness 5# at a time) and see if the distribution is flat. The output should be 6# checked by eye - are all the numbers roughly the same? 7# 8# Redirect the output from this to a file - and make a cup of coffee while 9# it runs. This program is a CPU Hog! 10# 11# 12 13for ($i = 0; $i < (1024*32); $i++) { 14 open(BIN, "/dev/urandom") || die "Cannot open /dev/urandom - $!\n"; 15 $len = sysread(BIN, $a, 256); 16 close(BIN); 17 if ($len > 0) { 18 for ($j = 0; $j < $len; $j++) { 19 $k = unpack("C", substr($a, $j, 1)); 20 $bin[$k]++; 21 } 22 } 23} 24 25for ($i = 0; $i < 256; $i++) { 26 printf("%.2X ", $bin[$i]); 27} 28printf "\n"; 29