From 75f4967cdbe8d3e3d8fbe5a19b8b5e1d9b02d24c Mon Sep 17 00:00:00 2001
From: "J. Patrick Avery, Jr" <patrick.avery@cns.doe.gov>
Date: Fri, 5 Jun 2015 00:42:31 -0400
Subject: [PATCH] a token generator!

---
 bin/mktokens | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100755 bin/mktokens

diff --git a/bin/mktokens b/bin/mktokens
new file mode 100755
index 0000000..e2ff245
--- /dev/null
+++ b/bin/mktokens
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use Getopt::Std;
+use Digest::BubbleBabble qw{bubblebabble};
+
+sub readch {
+	my ($chars, $fh) = @_;
+	my $retval = '';
+	sysread $fh, $retval, $chars;
+	return $retval;
+}
+
+sub usage {
+	my ($msg) = @_;
+	print <<'EOB';
+Usage: token-hash [options] count
+    -c    category name
+    -s    size of token hash [default: 8]
+EOB
+	die "\n[x] $msg\n" if $msg;
+	exit 0;
+}
+
+my $count = 1;
+my $size  = 8;
+my $cat   = '';
+
+my %options=();
+getopts("c:s:h", \%options);
+usage("not enough arguments!") unless scalar @ARGV > 0;
+usage() if $options{h};
+
+$cat   = "$options{c}:1:" if $options{c} and $options{c} =~ m/\A ([[:alnum:]_-]+) \Z/msix;
+$size  = $options{s}      if $options{s} and $options{s} =~ m/\A (\d+)            \Z/msix;
+$count = $ARGV[0]         if $ARGV[0]    and $ARGV[0]    =~ m/\A (\d+)            \Z/msix;
+
+open my $fh, "<", "/dev/urandom";
+print "[+] Generating $count tokens [$size bytes of entropy]", $cat ? " with prefix '$cat'" : "", $/;
+print $cat, bubblebabble(Digest => readch($size, $fh)), $/ for (1 .. $count);