mirror of
https://git.proxmox.com/git/pve-access-control
synced 2025-07-26 18:35:13 +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 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";
|
|
|