ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexei Ptshelnikov                   2:5020/400     31 Aug 2001  23:39:26
 To : Igor Nikolayev
 Subject : Re: crypt
 -------------------------------------------------------------------------------- 
 

 "Igor Nikolayev" <Igor.Nikolayev@p168.f968.n5020.z2.fidonet.org>
 сообщил/сообщила в новостях следующее:
 news:999274226@p168.f968.n5020.z2.fidonet.ftn...
 
 > sub crypt_passwd {
 >  my($passwd) = @_;
 >  my($salt, $i, $rand);
 >  my(@itoa64) = (0..9, 'a'..'z', 'A'..'Z');
 >
 >  $salt = '$1$';
 >
 >  for ($i = 0; $i < 8; $i++) {
 >   srand(time + $rand + $$);
 >   $rand = rand(25*29*17 + $rand);
 >   $salt .=  $itoa64[$rand & $#itoa64];
 >  }
 >   return(crypt($passwd,$salt));
 > }
 
 Собственно главное - это функция crypt(), которая шифрует. Про неё читать
 здесь: perldoc -f crypt
 А остальное - это генерирование случайной последовательности знаков для
 применения этой функции.
 
 --
 WBR, Алексей Пчельников.
 mailto: alex@blackdolphin.ru
 ICQ: 59110395
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    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