projects
/
pve-access-control.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
bump version to 4.0-7
[pve-access-control.git]
/
oathkeygen
1
#!/usr/bin/perl
2
3
use
strict
;
4
use
warnings
;
5
use
MIME
::
Base32
qw(RFC)
;
#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
(
$test
) .
"
\n
"
;
11