pw
Добавлено: 2007-11-20 15:34:53
Нужно сменить списку пользователей пароли, без лишних вопросов, в мане pw так и не нашел чего хотел... Может кто делал подобное?
Пока противник рисует карты наступления, мы меняем ландшафты, причём вручную
https://forum.lissyara.su/
Код: Выделить всё
#!/usr/local/bin/perl
use Crypt::PasswdMD5;
$passclear=$ARGV[0];
print "password= $passclear\n";
$salt=$ARGV[1];
print "salt= $salt\n";
$unixcryptedpassword = unix_md5_crypt($passclear,$salt);
$apachecryptedpassword = apache_md5_crypt($passclear,$salt);
print "unix crypt pass= $unixcryptedpassword\n";
print "apache crypt pass= $apachecryptedpassword\n";
Код: Выделить всё
perl -e'@c=('a..z,A..Z',0..9);while(<>){chomp;$p.=$c[rand(@c)]until length$p>9;system("echo $p|pw usermod $_ -h fd&&echo $_ $p");$p=""}' userlist