Большой глЮк! Генерируеться один и тот же пароль! 
Помогите разобраться, уже надоело скрипты заливать.....как я не стараюсь присылаеться при регистрации один и тот же пароль!
Новым участникам генерируется один и тот же пароль
Если на вашей конференции всем новым участникам генерируется одинаковый пароль, это связано с неправильной работой Perl на сервере. В одних случаях Perl некорректно выполняет функцию rand, в других случаях - srand.
Исправлять следующим образом.
В файле register.cgi
Код:
Код:
if (($passwordverification eq "yes") && ($emailfunctions ne "off")) {
$seed = int(rand 100000);
$password = crypt($seed, aun);
$password =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$password =~ s/\.//g;
$password =~ s/\|//g;
$password = substr($password, 0, 7);
}
|
Заменить на:
Код:
if (($passwordverification eq "yes") && ($emailfunctions ne "off")) {
my @datapassword = qw(A B C D E F G H J K L M N P Q R S T U V W Y Z a b c d e f g h j k l m n p q r s t u v w y z 0 12 3 4 5 6 7 8 9);
srand(time * (time *time));
for(1..7){$password .= $datapassword[rand(@datapassword)];}
}
|
Если в вашем дистрибутиве присутствует второй вариант кода, то замените его первым.
