| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | use strict; |
| 4 | use warnings; |
| 5 | use MIME::Base32; #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_rfc3548($test) . "\n"; |
| 11 | |