Re: [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 <al...@netvel.net 
<mailto:al...@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
al...@netvel.net              ||

---
Talk Mailing List
talk@gtalug.org
https://gtalug.org/mailman/listinfo/talk