fix #1670: change PAM service name to project specific name
[pve-access-control.git] / oathkeygen
CommitLineData
1abc2c0a
DM
1#!/usr/bin/perl
2
3use strict;
4use warnings;
03e2a71e 5use MIME::Base32; #libmime-base32-perl
1abc2c0a
DM
6
7my $test;
8open(RND, "/dev/urandom");
9sysread(RND, $test, 10) == 10 || die "read randon data failed\n";
03e2a71e 10print MIME::Base32::encode_rfc3548($test) . "\n";
1abc2c0a 11