]>
git.proxmox.com Git - pve-access-control.git/blob - src/oathkeygen
6 use MIME
::Base32
; # libmime-base32-perl
8 open(my $RND_FH, '<', "/dev/urandom") or die "Unable to open '/dev/urandom' - $!";
9 sysread($RND_FH, my $random_data, 10) == 10 or die "read random data failed - $!\n";
10 close $RND_FH or warn "Unable to close '/dev/urandom' - $!";
12 print MIME
::Base32
::encode_rfc3548
($random_data) . "\n";