|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Stupnik 2:5020/400 15 Apr 2002 15:46:30
To : Sadretdinova Nelly
Subject : Re: Замечание и свой вариант
--------------------------------------------------------------------------------
"Sadretdinova Nelly" <nelly@ngt.ru> wrote in message
news:a9eat5$i67$1@install.ugatu.ac.ru...
> > P.S. Могу предложить вариант
> > my $user_ip = $ENV{REMOTE_ADDR};
> > $user_ip =~ s'\.''g;
> > my $seed = $user_ip.time();
>
> Спасибо :-)
> Hо этот вариант по-моему тоже не совсем подходит.
>
> К примеру, когда много пользователей ходят через один прокси,
> $ENV{REMOTE_ADDR}одинаковый... а time тоже может быть одинаковый. Hе
> покатит.
Добавить $ENV{HTTP_X_FORWARDED_FOR};
И pid до кучи.
Можно еще rand().
Тогда уникальность почти гарантируется,
только вот лыжа будет еще та :)
my
$seed=time().$$.$ENV{REMOTE_ADDR}.$ENV{HTTP_X_FORWARDED_FOR}.int(rand(32767)
);
$seed=~s/\.//g;
while(length($seed)>8)
{
for(0..7)
{
substr($seed,$_,1)=(substr($seed,$_,1)+substr($seed,8+$_,1))%10;
}
substr($seed,8,8)='';
}
print $seed,"\n";
--
Best regards,
Konstantin.
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Замечание и свой вариант 