The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Закриптовать пароль (example perl crypt password)


<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>
Ключевые слова: example, perl, crypt, password,  (найти похожие документы)
_ RU.UNIX.BSD (2:5077/15.22) _____________________________________ RU.UNIX.BSD _ From : Nikola Krasnoyarsky 2:5053/13.19 06 Aug 99 19:49:14 Subj : Закриптовать пароль ________________________________________________________________________________ Hello! sasha@jagular.ellink.ru -> All about Закриптовать пароль at 05/08/1999 13:26:00 s> Hужно введенный пароль закриптовать чтобы он выглядел как в s> master.passwd s> А если бы это еще и на перле было, то было бы вообще замечательно. ===cut=== #!/usr/bin/perl # допустимые символы в пароле $passstr = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM1234567890"; # сгенерируем srand(time()+$$); $t = ""; for (1..6) { $c = int(rand(length($passstr))); $t = $t . substr($passstr,$c,1); } $PASS=$t; if ($#ARGV == 0) { $PASS=$ARGV[0]; } # зашифруем его $cryptpwd = crypt($PASS, &salt); print "$PASS\t$cryptpwd\n"; sub salt { local($salt); # initialization local($i, $rand); local(@itoa64) = ( 0 .. 9, a .. z, A .. Z ); # 0 .. 63 warn "calculate salt\n" if $verbose > 1; # to64 for ($i = 0; $i < 8; $i++) { srand(time + $rand + $$); $rand = rand(25*29*17 + $rand); $salt .= $itoa64[$rand & $#itoa64]; } warn "Salt is: $salt\n" if $verbose > 1; return $salt; } ===cut=== n|kl //wsl [nikl@fannet.ru] --- teddy bear 1.24.1 * Origin: 1024x768x256 .. sounds like one mean woman... (2:5053/13.19)

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

 Добавить комментарий
Имя:
E-Mail:
Заголовок:
Текст:




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру