hammer.urandom revision 12059
138032Speter#!/usr/bin/perl 238032Speter 3261363Sgshapiro# 464562Sgshapiro# Test program for /dev/urandom 538032Speter# Read and display random numbers. 638032Speter# This also reads /dev/zero to make sure there is no brokenness there. 738032Speter# 838032Speter# $Id$ 938032Speter# 1038032Speter 1138032Speteropen(ZERO, "/dev/zero") || die "Cannot open /dev/zero - $!\n"; 1238032Speter 1338032Speterfor (;;) { 1438032Speter open(BIN, "/dev/urandom"); 1538032Speter $len = sysread(BIN, $a, 20); 16261363Sgshapiro sysread(ZERO, $b, 20); 1764562Sgshapiro close(BIN); 1864562Sgshapiro if ($len > 0) { 19 for ($j = 0; $j < $len; $j += 2) { 20 $k = unpack("S", substr($a, $j, 2)); 21 $z = unpack("S", substr($b, $j, 2)); 22 $z == 0 || die "/dev/zero is returning non-zero!\n"; 23 printf("%.4X ", $k); 24 } 25 printf "\n"; 26 } 27} 28