followup: s/CUSTOM_TFA_TYPES/USER_CONTROLLED_TFA_TYPES/
[pve-access-control.git] / oathkeygen
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