]>
git.proxmox.com Git - pve-access-control.git/blob - oathkeygen
5 use MIME
::Base32
qw(RFC); #libmime-base32-perl
8 open(RND
, "/dev/urandom");
9 sysread(RND
, $test, 10) == 10 || die "read randon data failed\n";
10 print MIME
::Base32
::encode
($test) . "\n";