diff options
author | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:33 -0400 |
---|---|---|
committer | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:33 -0400 |
commit | 8d3fc864d094eeadc721f8e93436b37a5fab173e (patch) | |
tree | 05e201c67dca55b4ccdf90ad479a25d95e3b1e63 /utilities/perl/cipherkeygen.pl |
Imported Upstream version 1.5.3
Diffstat (limited to 'utilities/perl/cipherkeygen.pl')
-rwxr-xr-x | utilities/perl/cipherkeygen.pl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/utilities/perl/cipherkeygen.pl b/utilities/perl/cipherkeygen.pl new file mode 100755 index 0000000..db53d88 --- /dev/null +++ b/utilities/perl/cipherkeygen.pl @@ -0,0 +1,24 @@ +#!/usr/bin/perl + +# cipherkeygen.pl + +# generates a cipher key of the format \d{4}[a-zA-Z]{4}\d{4}[a-zA-Z]{4}. +# because I'm lazy and not random enough. +# and because the utilities/perl directory is kinda bare... + + +# let's get a base key of \d{4}[A-Z]{4}\d{4}[A-Z]{4} +$key = int(rand() * 10) . int(rand() * 10) . int(rand() * 10) . int(rand() * 10) . chr(int(rand() * 26) + 0x41) . chr(int(rand() * 26) + 0x41) . chr(int(rand() * 26) + 0x41) . chr(int(rand() * 26) + 0x41) . int(rand() * 10) . int(rand() * 10) . int(rand() * 10) . int(rand() * 10) . chr(int(rand() * 26) + 0x41) . chr(int(rand() * 26) + 0x41) . chr(int(rand() * 26) + 0x41) . chr(int(rand() * 26) + 0x41); + +# now randomly lowercase the letters, printing as we go +foreach $c (unpack ("cccccccccccccccc", $key)) { + $c = chr($c); + if (rand() < 0.5) { + $c = lc($c); + } + print $c; +} +print "\n"; + + + |