View | Details | Raw Unified | Return to bug 28991
Collapse All | Expand All

(-)adduser.perl (-1 / +1 lines)
Lines 894-900 Link Here
894
894
895
    warn "calculate salt\n" if $verbose > 1;
895
    warn "calculate salt\n" if $verbose > 1;
896
    # to64
896
    # to64
897
    for ($i = 0; $i < 8; $i++) {
897
    for ($i = 0; $i < 27; $i++) {
898
	srand(time + $rand + $$); 
898
	srand(time + $rand + $$); 
899
	$rand = rand(25*29*17 + $rand);
899
	$rand = rand(25*29*17 + $rand);
900
	$salt .=  $itoa64[$rand & $#itoa64];
900
	$salt .=  $itoa64[$rand & $#itoa64];

Return to bug 28991