buildsys: split packaging and source build-systems

[pve-access-control.git] / src / oathkeygen

diff --git a/src/oathkeygen b/src/oathkeygen
new file mode 100755 (executable)
index 0000000..82e4eec
--- /dev/null
+++ b/src/oathkeygen
@@ -0,0 +1,11 @@
+#!/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";
+