mirror of
https://git.proxmox.com/git/pve-access-control
synced 2025-07-27 07:21:49 +00:00
03e2a71e3d
call encode_rfc3548 explicitly instead as newer versions of the base32 package will drop this import scheme (stretch)
12 lines
237 B
Perl
Executable File
12 lines
237 B
Perl
Executable File
#!/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";
|
|
|