ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/52      01 Sep 2001  22:59:46
 To : Igor Nikolayev
 Subject : Re: crypt
 -------------------------------------------------------------------------------- 
 

 
 IN>Я совсем недавно нашел функцию для криптования (где, не помню).
 IN>Кто-нибудь может мне рассказать, что в ней вообще происходит (если
 IN>можно, подробно),
 
 Твоя подпрограмма шифрует пароль, используя однононаправленную функцию 
 crypt() -- perldoc -f crypt, man 3 crypt.
 
 IN>насколько она эффективна, и какие есть другие
 IN>варианты криптования.
 
 Твой вариант неэффективен: неправильно инициализируется rand().
 Hу и еще может проблема, если ты станешь применять ее на старых машинах, где
 crypt не умеет MD5.
 
 Так будет лучше:
 (пункт про старые машины уместен и тут)
 
 sub crypt_password($) {
   my $password = shift;
   my $salt = '$1$';
   for (1..8) {
    $salt .= ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64];
   }   
   return (crypt($password, $salt));
 }  
 
 -- 
 Pavel Ammosov                                               O    \
 apavel@aha.ru                                                 __  )
 http://isabase.philol.msu.ru/~apavel/                             )
 wget -O - isabase.philol.msu.ru/~apavel/key.asc|pgp -fka    O    /
 
 --- FIDOGATE 4.4.0-snp10
  * Origin: Zenon N.S.P. news server (2:5020/52.0)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    crypt   Igor Nikolayev   31 Aug 2001 20:06:34   Re: crypt   Alexei Ptshelnikov   31 Aug 2001 23:39:26   Re: crypt   Pavel Ammosov   01 Sep 2001 22:59:46