Закриптовать пароль (example perl crypt password)
Ключевые слова: 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)
