mirror of
https://git.proxmox.com/git/pve-access-control
synced 2025-08-04 16:57:25 +00:00
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 random data failed\n";
|
|
print MIME::Base32::encode_rfc3548($test) . "\n";
|
|
|