1#!/usr/pkg/bin/perl 2 3# 4# Test program for /dev/random 5# Read and display random numbers. 6# Try tapping shift/alt/ctrl to get more randomness. 7# 8# $FreeBSD: src/tools/test/devrandom/hammer.random,v 1.4 1999/08/28 00:54:24 peter Exp $ 9# $DragonFly: src/tools/test/devrandom/hammer.random,v 1.2 2003/06/17 04:29:11 dillon Exp $ 10# 11 12for (;;) { 13 open(BIN, "/dev/random") || die "Cannot open /dev/random - $!\n"; 14 $len = sysread(BIN, $a, 128); 15 close(BIN); 16 if ($len > 0) { 17 print "$len bytes read: "; 18 for ($j = 0; $j < $len; $j++) { 19 $k = unpack("C", substr($a, $j, 1)); 20 printf("%.2X ", $k); 21 } 22 printf "\n"; 23 } 24} 25