]>
git.proxmox.com Git - pve-access-control.git/blob - src/oathkeygen
574b0c715882051b6e6e0afcc6754bfd58a6e365
5 use MIME
::Base32
; #libmime-base32-perl
8 open(my $RND_FH, '<', "/dev/urandom");
9 sysread($RND_FH, $test, 10) == 10 || die "read random data failed - $!\n";
10 print MIME
::Base32
::encode_rfc3548
($test) . "\n";