Возможно вы искали: 'Toy Story 3: The Video...'

May 31 2025 02:02:30

Статистика

Статей: 87772
Просмотров: 96425698

Игры

Injustice: Gods Among Us ...
Dark Souls 2 Dark Souls II - вторая часть самой хардкорной ролевой игры 2011-2012 года, с новым героем, сюжето...
Battlefield 4 Battlefield 4 - продолжение венценосного мультиплеер-ориентированного шутера от первого ли...

Кино

Steins;Gate Любители японской анимации уже давно поняли ,что аниме сериалы могут дать порой гораздо больше пи...
Ку! Кин-дза-дза Начинающий диджей Толик и всемирно известный виолончелист Владимир Чижов встречают на шумной моск...

Обзоры на игры

• Обзор Ibara [PCB/PS2]	18407
• Обзор The Walking ...	18853
• Обзор DMC: Devil M...	19921
• Обзор на игру Valk...	15921
• Обзор на игру Stars!	17810
• Обзор на Far Cry 3	18000
• Обзор на Resident ...	16063
• Обзор на Chivalry:...	17561
• Обзор на игру Kerb...	18021
• Обзор игры 007: Fr...	16667

Превью о играх

• Превью к игре Comp...	18003
• Превью о игре Mage...	14502
• Превью Incredible ...	14763
• Превью Firefall	13523
• Превью Dead Space 3	16378
• Превью о игре SimC...	14772
• Превью к игре Fuse	15479
• Превью Red Orche...	15589
• Превью Gothic 3	16388
• Превью Black & W...	17402

Главная » Статьи » Разное » Закриптовать пароль (example perl crypt password)

Закриптовать пароль (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 "$PASSt$cryptpwdn";

sub salt {
local($salt); # initialization
local($i, $rand);
local(@itoa64) = ( 0 .. 9, a .. z, A .. Z ); # 0 .. 63

warn "calculate saltn" 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: $saltn" 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)

Ссылки

HTML:
[BB Url]:

Похожие статьи
Название	Добавил	Добавлено
• Закриптовать пароль (example perl c...	Vova	08.05.2012

Ни одного комментария? Будешь первым :).

Пожалуйста, авторизуйтесь для добавления комментария.

Статьи

Рецензия на Pressure Чтобы обратить на себя внимание, начинающие маленькие разработчики, как правило, уходят в жанры, ...
Рецензия на Lost Chron... Игры, сделанные без любви и старания, похожи на воздушный шар – оболочка есть, а внутри пусто. Lo...
Рецензия на The Bridge «Верх» и «низ» в The Bridge — понятия относительные. Прогуливаясь под аркой, можно запросто перей...
Рецензия на SimCity Когда месяц назад состоялся релиз SimCity, по Сети прокатилось цунами народного гнева – глупые ош...
Рецензия на Strategy &... Название Strategy & Tactics: World War II вряд ли кому-то знакомо. Зато одного взгляда на ее скри...
Рецензия на игру Scrib... По сложившейся традиции в информационной карточке игры мы приводим в пример несколько похожих игр...
Рецензия на игру Walki... Зомби и продукция-по-лицензии — которые и сами по себе не лучшие представители игровой биосферы —...