1#!/usr/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