#!/usr/bin/perl
use Crypt::PasswdMD5;
$user = $ARGV[0];
$salt = '/usr/bin/mkpasswd -l 9'; #9 - значный салт
$pass = unix_md5_crypt($ARGV[1], $salt);
$command = 'adduser -p '$pass' $user';
Киевская городская библиотека
собрана Максимом Мошковым
