we probably should just deprecate this altogether as it could be
worked around by doing a simple
dd if=/dev/urandom bs=1 count=10 status=none | base32
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
use MIME::Base32; #libmime-base32-perl
my $test;
-open(RND, "/dev/urandom");
-sysread(RND, $test, 10) == 10 || die "read random data failed\n";
+open(my $RND_FH, '<', "/dev/urandom");
+sysread($RND_FH, $test, 10) == 10 || die "read random data failed - $!\n";
print MIME::Base32::encode_rfc3548($test) . "\n";