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