[pve-access-control.git] / oathkeygen

#!/usr/bin/perl

use strict;
use warnings;
use MIME::Base32; #libmime-base32-perl

my $test;
open(RND, "/dev/urandom");
sysread(RND, $test, 10) == 10 || die "read randon data failed\n";
print MIME::Base32::encode_rfc3548($test) . "\n";
Commit	Line	Data
1abc2c0a DM	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
03e2a71e	5	use MIME::Base32; #libmime-base32-perl
1abc2c0a DM	6
	7	my $test;
	8	open(RND, "/dev/urandom");
	9	sysread(RND, $test, 10) == 10 \|\| die "read randon data failed\n";
03e2a71e	10	print MIME::Base32::encode_rfc3548($test) . "\n";
1abc2c0a	11