112059Smarkm#!/usr/bin/perl
212059Smarkm
312059Smarkm#
412059Smarkm# Test program for /dev/random
512059Smarkm# Read and display random numbers.
612059Smarkm# Try tapping shift/alt/ctrl to get more randomness.
712059Smarkm#
850477Speter# $FreeBSD$
912059Smarkm#
1012059Smarkm
1112059Smarkmfor (;;) {
1212059Smarkm	open(BIN, "/dev/random") || die "Cannot open /dev/random - $!\n";
1312059Smarkm	$len = sysread(BIN, $a, 128);
1412059Smarkm	close(BIN);
1512059Smarkm	if ($len > 0) {
1612059Smarkm		print "$len bytes read: ";
1712059Smarkm		for ($j = 0; $j < $len; $j++) {
1812059Smarkm			$k = unpack("C", substr($a, $j, 1));
1912059Smarkm			printf("%.2X ", $k);
2012059Smarkm		}
2112059Smarkm		printf "\n";
2212059Smarkm	}
2312059Smarkm}
24