my $login="login";
my $pass="password";
$pass=crypt($pass,(join '',('.','/',0..9,'A'..'Z',
'a'..'z')[rand 64, rand 64]));
open (fil,">.htpasswd") or print $!;
flock(fil,2);
print fil $login.":".$pass."\n"
flock(fil,8);
close(fil);
change password using perl
UNIX
как в перл скрипте поменять пароль юзеру
или использовать команду passwd, но так что бы не повторять пароль
пробовал править shadow не получается
или подскажите где взять алгоритмы которыми кодируются пароли в этой системе
как в перл скрипте поменять пароль юзеру
или использовать команду passwd, но так что бы не повторять пароль
пробовал править shadow не получается
или подскажите где взять алгоритмы которыми кодируются пароли в этой системе
Брррр... Я не Юниксойд вообще-то, но в nix`ах пароли кодируются хэш-функцией (crc тож х-ф) по MD5.. Алгорит читай у эрфэцэшников, rfc-1321.. Советую почитать еще MD2 и SHA.. Я как недавно полез эту криптографию изучать, так до сих пор отойти не могу.. Втыкнуть - один фиг не втыкнул) Ну так, ток общий смысл и все такое.. А лагоритмы запомнить пока не выходит) Но штука руль!! Вот хэш-функции мне приглянулись больше всего%) Если чего умное про криптаграфию знаешь, или доки валяются интересные (рус/англ), то скинь плз, ага?)
Ссылка на MD5 ref - http://www.rfc-editor.org/rfc/rfc1321.txt
P.S. Если в вашем *nix`е пароли кодируются по-другому, то знайте - Я В ЭТОМ НЕ ВИНОВАТ))
Ссылка на MD5 ref - http://www.rfc-editor.org/rfc/rfc1321.txt
P.S. Если в вашем *nix`е пароли кодируются по-другому, то знайте - Я В ЭТОМ НЕ ВИНОВАТ))