A lot of years ago Jan Carlson wrote a userfriendly password generator. It would generate a sequence of characters that sort of looked like a word. #!/usr/bin/perl $vowel = 'aeiouAEIOU'; $cnst = 'bcdfghjklmnpqrstvwxyzBCDFGHJKLMNPQRSTVWXYZ'; $letter = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; $digit = '0123456789'; $punt = '-=+;:,.*$'; srand; #print &p($cnst), &p($vowel), &p($cnst), &p($punt), # &p($cnst), &p($vowel), &p($cnst), &p($digit), "\n"; print &p($cnst), &p($vowel), &p($cnst), &p($punt), &p($cnst), &p($vowel), &p($cnst), &p($digit), "\n"; sub p { my($list) = @_; substr($list, int(rand(length($list))), 1); } On 06/02/2016 12:00 PM, Christopher Browne wrote:
On 2 June 2016 at 10:35, Alvin Starr <alvin@netvel.net <mailto:alvin@netvel.net>> wrote:
in the same vain uuidgen works quite well
uuidgen has the significant demerit of producing passwords that are pointedly difficult to remember, as they truly contain no meaning whatever.
That's fine if you're using a password manager (KeePass or such) to manage the values, but it's not so good for those passwords that need to be memorized.
-- When confronted by a difficult problem, solve it by reducing it to the question, "How would the Lone Ranger handle this?"
--- Talk Mailing List talk@gtalug.org https://gtalug.org/mailman/listinfo/talk
A lot of years ago Jan Carlson wrote a user friendly password generator. It would generate a sequence of characters that sort of looked like a word. I have used it a bunch over the years because it generates a random sequence of stuff that is kind of memorable. #!/usr/bin/perl $vowel = 'aeiouAEIOU'; $cnst = 'bcdfghjklmnpqrstvwxyzBCDFGHJKLMNPQRSTVWXYZ'; $letter = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; $digit = '0123456789'; $punt = '-=+;:,.*$'; srand; #print &p($cnst), &p($vowel), &p($cnst), &p($punt), # &p($cnst), &p($vowel), &p($cnst), &p($digit), "\n"; print &p($cnst), &p($vowel), &p($cnst), &p($punt), &p($cnst), &p($vowel), &p($cnst), &p($digit), "\n"; sub p { my($list) = @_; substr($list, int(rand(length($list))), 1); } -- Alvin Starr || voice: (905)513-7688 Netvel Inc. || Cell: (416)806-0133 alvin@netvel.net ||