Вот так? :-)

Pavel Titov 01.02.2003 22:09

@setpw[login;password][crypted] Добавление пользователя / изменение пароля
# Шифруемся
$crypted[^math:crypt[$password;^$apr1^$]]

^if(^passwd.locate[login;$login]){
	^rem{ Пользователь уже существует }
	$passwd[^remove[$passwd;^passwd.line[];1]]
}

# добавляем пользователя
^passwd.append{$login	$crypted}