|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Igor Nikolayev 2:5020/968.168 31 Aug 2001 20:06:34 To : All Subject : crypt --------------------------------------------------------------------------------
Я совсем недавно нашел функцию для криптования (где, не помню). Кто-нибудь
может мне рассказать, что в ней вообще происходит (если можно, подробно),
насколько она эффективна, и какие есть другие варианты криптования. Hу или где
про все это можно почитать.
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));
}
see you Игорь Hиколаев
--- no respect
* Origin: welcome to fight club (2:5020/968.168)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/190903b8fb6f2.html, оценка из 5, голосов 10
|