in reply to RE: Create encrypted passwords
in thread Create encrypted passwords

Better still: 

$salt = join '', ('a'..'z','A'..'Z',0..9,'.','/')[rand 64, rand 64] ;

[download]

-Ducky

Update: Ok, took me a year to come back and fix this, but it's fixed the way I'd do it today. =/

Replies are listed 'Best First'.
RE: RE: RE: Create encrypted passwords
by btrott (Parson) on Mar 28, 2000 at 23:50 UTC
    That doesn't work. You're taking an array slice (incorrectly), then assigning it to a scalar variable. You want something like this: 
    my @chars = ('a'..'z', 'A'..'Z', 0..9, '.', '/');
my $salt = join '', @chars[rand @chars, rand @chars];

    [download]
    Note the "@" before "chars"--that denotes an array slice. And since we're taking an array slice and want to end up with a scalar, we need to do a join.
[reply]
[d/l]
RE: RE: RE: Create encrypted passwords
by chromatic (Archbishop) on Mar 28, 2000 at 23:42 UTC
    What if you want to expand the valid characters someday? 
    @chars=(a..z,A..Z,0..9,'.','/');
 $salt= join '', @chars[rand(@chars), rand(@chars)];

    [download]
    or even 
    my $elem = @chars;
$salt = join '', @chars[rand($elem), rand($elem)];

    [download]
[reply]
[d/l]
[select]

In Section Craft