apg does a passable job of creating a pronounceable password. You can concatenate as many of them as you like. On 2 Jun 2016 12:13 p.m., "Alvin Starr" <alvin@netvel.net> wrote:
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> 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 Listtalk@gtalug.orghttps://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-0133alvin@netvel.net ||
--- Talk Mailing List talk@gtalug.org https://gtalug.org/mailman/listinfo/talk