]>
Commit | Line | Data |
---|---|---|
1abc2c0a DM |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
03e2a71e | 5 | use MIME::Base32; #libmime-base32-perl |
1abc2c0a DM |
6 | |
7 | my $test; | |
8 | open(RND, "/dev/urandom"); | |
b89cd205 | 9 | sysread(RND, $test, 10) == 10 || die "read random data failed\n"; |
03e2a71e | 10 | print MIME::Base32::encode_rfc3548($test) . "\n"; |
1abc2c0a | 11 |