|
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
|