1abc2c0a DM |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use MIME::Base32 qw(RFC); #libmime-base32-perl |
6 | |
7 | my $test; |
8 | open(RND, "/dev/urandom"); |
9 | sysread(RND, $test, 10) == 10 || die "read randon data failed\n"; |
10 | print MIME::Base32::encode($test) . "\n"; |
11 | |