1d82e2864SMark Murray#!/usr/bin/perl 2d82e2864SMark Murray 3d82e2864SMark Murray# 4d82e2864SMark Murray# Test program for /dev/random 5d82e2864SMark Murray# Read and display random numbers. 6d82e2864SMark Murray# Try tapping shift/alt/ctrl to get more randomness. 7d82e2864SMark Murray# 8d82e2864SMark Murray# 9d82e2864SMark Murray 10d82e2864SMark Murrayfor (;;) { 11d82e2864SMark Murray open(BIN, "/dev/random") || die "Cannot open /dev/random - $!\n"; 12d82e2864SMark Murray $len = sysread(BIN, $a, 128); 13d82e2864SMark Murray close(BIN); 14d82e2864SMark Murray if ($len > 0) { 15d82e2864SMark Murray print "$len bytes read: "; 16d82e2864SMark Murray for ($j = 0; $j < $len; $j++) { 17d82e2864SMark Murray $k = unpack("C", substr($a, $j, 1)); 18d82e2864SMark Murray printf("%.2X ", $k); 19d82e2864SMark Murray } 20d82e2864SMark Murray printf "\n"; 21d82e2864SMark Murray } 22d82e2864SMark Murray} 23