[pve-access-control.git] / oathkeygen

#!/usr/bin/perl

use strict;
use warnings;
use MIME::Base32 qw(RFC); #libmime-base32-perl

my $test;
open(RND, "/dev/urandom");
sysread(RND, $test, 10) == 10 || die "read randon data failed\n";
print MIME::Base32::encode($test) . "\n";
Commit	Line	Data
1abc2c0a DM	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