From cd99a9e8aafb91eccd3846e91ded31ee32ef95ad Mon Sep 17 00:00:00 2001
From: "J. Patrick Avery, Jr" <patrick.avery@cns.doe.gov>
Date: Sun, 7 Jun 2015 13:07:36 -0500
Subject: [PATCH] bin/mktokens: pulled in bubblebabble instead of depending on
 another package

---
 bin/mktokens | 52 ++++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 46 insertions(+), 6 deletions(-)

diff --git a/bin/mktokens b/bin/mktokens
index e2ff245..2e938ab 100755
--- a/bin/mktokens
+++ b/bin/mktokens
@@ -3,7 +3,46 @@ use strict;
 use warnings;
 
 use Getopt::Std;
-use Digest::BubbleBabble qw{bubblebabble};
+use vars qw( $VERSION @VOWELS @CONSONANTS );
+
+$VERSION = '1.0';
+
+# Digest::BubbleBabble from Benjamin Trott, cpan@stupidfool.org
+@VOWELS     = split //, q{aeuioy};
+@CONSONANTS = split //, q{bcdfghklmnprstvzx};
+
+sub bubblebabble {
+    my ($input) = @_;
+	my @dgst = map { ord } split //, $input;
+    my $dlen = length $input;
+
+    my $seed = 1;
+    my $rounds = int($dlen / 2) + 1;
+    my $retval = 'x';
+    for my $i (0..$rounds-1) {
+        if ($i+1 < $rounds || $dlen % 2) {
+            my $idx0 = ((($dgst[2 * $i] >> 6) & 3) + $seed) % 6;
+            my $idx1 =   ($dgst[2 * $i] >> 2) & 15;
+            my $idx2 =  (($dgst[2 * $i] &  3) + $seed / 6) % 6;
+            $retval .= $VOWELS[$idx0] . $CONSONANTS[$idx1] . $VOWELS[$idx2];
+            if ($i+1 < $rounds) {
+                my $idx3 = ($dgst[2 * $i + 1] >> 4) & 15;
+                my $idx4 =  $dgst[2 * $i + 1] & 15;
+                $retval .= $CONSONANTS[$idx3] . q/-/ . $CONSONANTS[$idx4];
+                $seed = ($seed * 5 + $dgst[2 * $i] * 7 +
+                                     $dgst[2 * $i + 1]) % 36;
+            }
+        } else {
+            my $idx0 = $seed % 6;
+            my $idx1 = 16;
+            my $idx2 = $seed / 6;
+            $retval .= $VOWELS[$idx0] . $CONSONANTS[$idx1] . $VOWELS[$idx2];
+        }
+    }
+    $retval .= 'x';
+    return $retval;
+}
+# --- END
 
 sub readch {
 	my ($chars, $fh) = @_;
@@ -28,14 +67,15 @@ my $size  = 8;
 my $cat   = '';
 
 my %options=();
-getopts("c:s:h", \%options);
-usage("not enough arguments!") unless scalar @ARGV > 0;
+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);
+open my $fh, '<', '/dev/urandom';
+print {*STDERR} "[+] Generating $count token", ($count > 1 ? 's' : ''), " [$size bytes of entropy]", $cat ? " with prefix '$cat'" : '', $/;
+print $cat, bubblebabble(readch($size, $fh)), $/ for (1 .. $count);
+close $fh;