src/main/radsecret


1
2
3
4
5
6
7

#!/usr/bin/env perl
#
#  A tool which generates strong shared secrets.
#
use Convert::Base32;
use Crypt::URandom();
print join('-', unpack("(A4)*", lc encode_base32(Crypt::URandom::urandom(12)))), "\n";