| Current Path : /usr/src/tools/test/devrandom/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/src/tools/test/devrandom/hammer.random |
#!/usr/bin/perl
#
# Test program for /dev/random
# Read and display random numbers.
# Try tapping shift/alt/ctrl to get more randomness.
#
# $FreeBSD: release/9.1.0/tools/test/devrandom/hammer.random 50477 1999-08-28 01:08:13Z peter $
#
for (;;) {
open(BIN, "/dev/random") || die "Cannot open /dev/random - $!\n";
$len = sysread(BIN, $a, 128);
close(BIN);
if ($len > 0) {
print "$len bytes read: ";
for ($j = 0; $j < $len; $j++) {
$k = unpack("C", substr($a, $j, 1));
printf("%.2X ", $k);
}
printf "\n";
}
}