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" <[email protected]> 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 <[email protected]> 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 [email protected]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)[email protected]
> ||
>
>
> ---
> Talk Mailing List
> [email protected]
> https://gtalug.org/mailman/listinfo/talk
>
>
---
Talk Mailing List
[email protected]
https://gtalug.org/mailman/listinfo/talk
