6 open R, '/dev/urandom' or die $!;
8 system 'cat >/dev/null &';
13 my $r = read R, $s, $count;
14 die $! unless $r==$count;
20 my ($r) = unpack 'C', $b;
25 my ($min,$maxplus1) = @_;
27 return floor(($b/256.0) * ($maxplus1-$min)) + $min;
31 my $lenbits = randvalue 0,14;
32 my $len= (randbyteval << 8) | randbyteval;
33 $len &= (1 << $lenbits)-1;
34 my $data = randbytes $len;
35 if (randbyteval >= 0x80) {
36 $data =~ s{[\xc0\xdb]}{
37 $& eq "\xc0" ? "\xcb\xdc" :
38 $& eq "\xdb" ? "\xcb\xdd" :