[GTALUG] Recommended Linux Password Lengths

[Alvin Starr]

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 at netvel.net 
> <mailto:alvin at 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 at 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 at netvel.net              ||

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://gtalug.org/pipermail/talk/attachments/20160602/d1a6f619/attachment.html>