Home | History | Annotate | Line # | Download | only in cgdconfig
cgdconfig.c revision 1.18.4.1
      1  1.18.4.1      matt /* $NetBSD: cgdconfig.c,v 1.18.4.1 2007/11/06 23:12:30 matt Exp $ */
      2       1.1     elric 
      3       1.1     elric /*-
      4       1.5     elric  * Copyright (c) 2002, 2003 The NetBSD Foundation, Inc.
      5       1.1     elric  * All rights reserved.
      6       1.1     elric  *
      7       1.1     elric  * This code is derived from software contributed to The NetBSD Foundation
      8       1.1     elric  * by Roland C. Dowdeswell.
      9       1.1     elric  *
     10       1.1     elric  * Redistribution and use in source and binary forms, with or without
     11       1.1     elric  * modification, are permitted provided that the following conditions
     12       1.1     elric  * are met:
     13       1.1     elric  * 1. Redistributions of source code must retain the above copyright
     14       1.1     elric  *    notice, this list of conditions and the following disclaimer.
     15       1.1     elric  * 2. Redistributions in binary form must reproduce the above copyright
     16       1.1     elric  *    notice, this list of conditions and the following disclaimer in the
     17       1.1     elric  *    documentation and/or other materials provided with the distribution.
     18       1.1     elric  * 3. All advertising materials mentioning features or use of this software
     19       1.1     elric  *    must display the following acknowledgement:
     20       1.1     elric  *        This product includes software developed by the NetBSD
     21       1.1     elric  *        Foundation, Inc. and its contributors.
     22       1.1     elric  * 4. Neither the name of The NetBSD Foundation nor the names of its
     23       1.1     elric  *    contributors may be used to endorse or promote products derived
     24       1.1     elric  *    from this software without specific prior written permission.
     25       1.1     elric  *
     26       1.1     elric  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     27       1.1     elric  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     28       1.1     elric  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     29       1.1     elric  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     30       1.1     elric  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     31       1.1     elric  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     32       1.1     elric  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     33       1.1     elric  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     34       1.1     elric  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     35       1.1     elric  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     36       1.1     elric  * POSSIBILITY OF SUCH DAMAGE.
     37       1.1     elric  */
     38       1.1     elric 
     39       1.1     elric #include <sys/cdefs.h>
     40       1.1     elric #ifndef lint
     41       1.1     elric __COPYRIGHT(
     42       1.5     elric "@(#) Copyright (c) 2002, 2003\
     43       1.1     elric 	The NetBSD Foundation, Inc.  All rights reserved.");
     44  1.18.4.1      matt __RCSID("$NetBSD: cgdconfig.c,v 1.18.4.1 2007/11/06 23:12:30 matt Exp $");
     45       1.1     elric #endif
     46       1.1     elric 
     47       1.5     elric #include <err.h>
     48       1.1     elric #include <errno.h>
     49       1.1     elric #include <fcntl.h>
     50       1.1     elric #include <libgen.h>
     51       1.1     elric #include <stdio.h>
     52       1.1     elric #include <stdlib.h>
     53       1.1     elric #include <string.h>
     54       1.1     elric #include <unistd.h>
     55       1.1     elric #include <util.h>
     56       1.1     elric 
     57       1.1     elric #include <sys/ioctl.h>
     58       1.3     elric #include <sys/disklabel.h>
     59      1.14     elric #include <sys/mman.h>
     60       1.1     elric #include <sys/param.h>
     61      1.13     elric #include <sys/resource.h>
     62       1.1     elric 
     63       1.1     elric #include <dev/cgdvar.h>
     64       1.1     elric 
     65       1.5     elric #include <ufs/ffs/fs.h>
     66       1.5     elric 
     67       1.1     elric #include "params.h"
     68       1.1     elric #include "pkcs5_pbkdf2.h"
     69       1.1     elric #include "utils.h"
     70       1.1     elric 
     71       1.1     elric #define CGDCONFIG_DIR		"/etc/cgd"
     72       1.1     elric #define CGDCONFIG_CFILE		CGDCONFIG_DIR "/cgd.conf"
     73       1.1     elric 
     74      1.17    cbiere enum action {
     75      1.17    cbiere 	 ACTION_DEFAULT,		/* default -> configure */
     76      1.17    cbiere 	 ACTION_CONFIGURE,		/* configure, with paramsfile */
     77      1.17    cbiere 	 ACTION_UNCONFIGURE,		/* unconfigure */
     78      1.17    cbiere 	 ACTION_GENERATE,		/* generate a paramsfile */
     79      1.17    cbiere 	 ACTION_GENERATE_CONVERT,	/* generate a ``dup'' paramsfile */
     80      1.17    cbiere 	 ACTION_CONFIGALL,		/* configure all from config file */
     81      1.17    cbiere 	 ACTION_UNCONFIGALL,		/* unconfigure all from config file */
     82      1.17    cbiere 	 ACTION_CONFIGSTDIN		/* configure, key from stdin */
     83      1.17    cbiere };
     84       1.1     elric 
     85       1.1     elric /* if nflag is set, do not configure/unconfigure the cgd's */
     86       1.1     elric 
     87       1.1     elric int	nflag = 0;
     88       1.1     elric 
     89       1.3     elric static int	configure(int, char **, struct params *, int);
     90       1.1     elric static int	configure_stdin(struct params *, int argc, char **);
     91       1.1     elric static int	generate(struct params *, int, char **, const char *);
     92       1.5     elric static int	generate_convert(struct params *, int, char **, const char *);
     93       1.3     elric static int	unconfigure(int, char **, struct params *, int);
     94       1.3     elric static int	do_all(const char *, int, char **,
     95       1.3     elric 		       int (*)(int, char **, struct params *, int));
     96       1.1     elric 
     97       1.1     elric #define CONFIG_FLAGS_FROMALL	1	/* called from configure_all() */
     98       1.1     elric #define CONFIG_FLAGS_FROMMAIN	2	/* called from main() */
     99       1.1     elric 
    100       1.2     elric static int	 configure_params(int, const char *, const char *,
    101       1.2     elric 				  struct params *);
    102      1.13     elric static void	 eliminate_cores(void);
    103  1.18.4.1      matt static bits_t	*getkey(const char *, struct keygen *, size_t);
    104  1.18.4.1      matt static bits_t	*getkey_storedkey(const char *, struct keygen *, size_t);
    105  1.18.4.1      matt static bits_t	*getkey_randomkey(const char *, struct keygen *, size_t, int);
    106  1.18.4.1      matt static bits_t	*getkey_pkcs5_pbkdf2(const char *, struct keygen *, size_t, int);
    107      1.17    cbiere static int	 opendisk_werror(const char *, char *, size_t);
    108       1.3     elric static int	 unconfigure_fd(int);
    109       1.3     elric static int	 verify(struct params *, int);
    110       1.5     elric static int	 verify_disklabel(int);
    111       1.5     elric static int	 verify_ffs(int);
    112       1.9        cb static int	 verify_reenter(struct params *);
    113       1.1     elric 
    114       1.3     elric static void	 usage(void);
    115       1.1     elric 
    116       1.1     elric /* Verbose Framework */
    117      1.17    cbiere unsigned	verbose = 0;
    118       1.1     elric 
    119       1.1     elric #define VERBOSE(x,y)	if (verbose >= x) y
    120  1.18.4.1      matt #define VPRINTF(x,y)	if (verbose >= x) (void)printf y
    121       1.1     elric 
    122       1.1     elric static void
    123       1.1     elric usage(void)
    124       1.1     elric {
    125       1.1     elric 
    126  1.18.4.1      matt 	(void)fprintf(stderr, "usage: %s [-nv] [-V vmeth] cgd dev [paramsfile]\n",
    127       1.1     elric 	    getprogname());
    128  1.18.4.1      matt 	(void)fprintf(stderr, "       %s -C [-nv] [-f configfile]\n", getprogname());
    129  1.18.4.1      matt 	(void)fprintf(stderr, "       %s -U [-nv] [-f configfile]\n", getprogname());
    130  1.18.4.1      matt 	(void)fprintf(stderr, "       %s -G [-nv] [-i ivmeth] [-k kgmeth] "
    131       1.5     elric 	    "[-o outfile] paramsfile\n", getprogname());
    132  1.18.4.1      matt 	(void)fprintf(stderr, "       %s -g [-nv] [-i ivmeth] [-k kgmeth] "
    133       1.5     elric 	    "[-o outfile] alg [keylen]\n", getprogname());
    134  1.18.4.1      matt 	(void)fprintf(stderr, "       %s -s [-nv] [-i ivmeth] cgd dev alg "
    135       1.1     elric 	    "[keylen]\n", getprogname());
    136  1.18.4.1      matt 	(void)fprintf(stderr, "       %s -u [-nv] cgd\n", getprogname());
    137      1.17    cbiere 	exit(EXIT_FAILURE);
    138      1.17    cbiere }
    139      1.17    cbiere 
    140      1.17    cbiere static int
    141  1.18.4.1      matt parse_size_t(const char *s, size_t *l)
    142      1.17    cbiere {
    143      1.17    cbiere 	char *endptr;
    144      1.17    cbiere 	long v;
    145      1.17    cbiere 
    146      1.17    cbiere 	errno = 0;
    147      1.17    cbiere 	v = strtol(s, &endptr, 10);
    148      1.17    cbiere 	if ((v == LONG_MIN || v == LONG_MAX) && errno)
    149      1.17    cbiere 		return -1;
    150      1.17    cbiere 	if (v < INT_MIN || v > INT_MAX) {
    151      1.17    cbiere 		errno = ERANGE;
    152      1.17    cbiere 		return -1;
    153      1.17    cbiere 	}
    154      1.17    cbiere 	if (endptr == s) {
    155      1.17    cbiere 		errno = EINVAL;
    156      1.17    cbiere 		return -1;
    157      1.17    cbiere 	}
    158  1.18.4.1      matt 	*l = (size_t)v;
    159  1.18.4.1      matt 	return 0;
    160      1.17    cbiere }
    161      1.17    cbiere 
    162      1.17    cbiere static void
    163      1.17    cbiere set_action(enum action *action, enum action value)
    164      1.17    cbiere {
    165      1.17    cbiere 	if (*action != ACTION_DEFAULT)
    166      1.17    cbiere 		usage();
    167      1.17    cbiere 	*action = value;
    168       1.1     elric }
    169       1.1     elric 
    170       1.1     elric int
    171       1.1     elric main(int argc, char **argv)
    172       1.1     elric {
    173       1.5     elric 	struct params *p;
    174       1.5     elric 	struct params *tp;
    175       1.5     elric 	struct keygen *kg;
    176      1.17    cbiere 	enum action action = ACTION_DEFAULT;
    177       1.1     elric 	int	ch;
    178      1.17    cbiere 	const char	*cfile = NULL;
    179      1.17    cbiere 	const char	*outfile = NULL;
    180       1.1     elric 
    181      1.15     elric 	setprogname(*argv);
    182      1.13     elric 	eliminate_cores();
    183      1.14     elric 	if (mlockall(MCL_FUTURE))
    184      1.14     elric 		err(EXIT_FAILURE, "Can't lock memory");
    185       1.5     elric 	p = params_new();
    186       1.5     elric 	kg = NULL;
    187       1.1     elric 
    188       1.5     elric 	while ((ch = getopt(argc, argv, "CGUV:b:f:gi:k:no:usv")) != -1)
    189       1.1     elric 		switch (ch) {
    190       1.1     elric 		case 'C':
    191      1.17    cbiere 			set_action(&action, ACTION_CONFIGALL);
    192       1.1     elric 			break;
    193       1.5     elric 		case 'G':
    194      1.17    cbiere 			set_action(&action, ACTION_GENERATE_CONVERT);
    195       1.5     elric 			break;
    196       1.1     elric 		case 'U':
    197      1.17    cbiere 			set_action(&action, ACTION_UNCONFIGALL);
    198       1.1     elric 			break;
    199       1.3     elric 		case 'V':
    200       1.5     elric 			tp = params_verify_method(string_fromcharstar(optarg));
    201       1.5     elric 			if (!tp)
    202       1.3     elric 				usage();
    203       1.5     elric 			p = params_combine(p, tp);
    204       1.3     elric 			break;
    205       1.1     elric 		case 'b':
    206      1.17    cbiere 			{
    207  1.18.4.1      matt 				size_t size;
    208      1.17    cbiere 
    209  1.18.4.1      matt 				if (parse_size_t(optarg, &size) == -1)
    210      1.17    cbiere 					usage();
    211      1.17    cbiere 				tp = params_bsize(size);
    212      1.17    cbiere 				if (!tp)
    213      1.17    cbiere 					usage();
    214      1.17    cbiere 				p = params_combine(p, tp);
    215      1.17    cbiere 			}
    216       1.1     elric 			break;
    217       1.1     elric 		case 'f':
    218      1.17    cbiere 			if (cfile)
    219      1.17    cbiere 				usage();
    220      1.17    cbiere 			cfile = estrdup(optarg);
    221       1.1     elric 			break;
    222       1.1     elric 		case 'g':
    223      1.17    cbiere 			set_action(&action, ACTION_GENERATE);
    224       1.1     elric 			break;
    225       1.1     elric 		case 'i':
    226       1.5     elric 			tp = params_ivmeth(string_fromcharstar(optarg));
    227       1.5     elric 			p = params_combine(p, tp);
    228       1.1     elric 			break;
    229       1.1     elric 		case 'k':
    230       1.5     elric 			kg = keygen_method(string_fromcharstar(optarg));
    231       1.5     elric 			if (!kg)
    232       1.1     elric 				usage();
    233       1.5     elric 			keygen_addlist(&p->keygen, kg);
    234       1.1     elric 			break;
    235       1.1     elric 		case 'n':
    236       1.1     elric 			nflag = 1;
    237       1.1     elric 			break;
    238       1.1     elric 		case 'o':
    239      1.17    cbiere 			if (outfile)
    240      1.17    cbiere 				usage();
    241      1.17    cbiere 			outfile = estrdup(optarg);
    242       1.1     elric 			break;
    243       1.1     elric 		case 's':
    244      1.17    cbiere 			set_action(&action, ACTION_CONFIGSTDIN);
    245       1.1     elric 			break;
    246       1.1     elric 
    247       1.1     elric 		case 'u':
    248      1.17    cbiere 			set_action(&action, ACTION_UNCONFIGURE);
    249       1.1     elric 			break;
    250       1.1     elric 		case 'v':
    251       1.1     elric 			verbose++;
    252       1.1     elric 			break;
    253       1.1     elric 		default:
    254       1.1     elric 			usage();
    255       1.1     elric 			/* NOTREACHED */
    256       1.1     elric 		}
    257       1.1     elric 
    258       1.1     elric 	argc -= optind;
    259       1.1     elric 	argv += optind;
    260       1.1     elric 
    261      1.17    cbiere 	if (!outfile)
    262      1.17    cbiere 		outfile = "";
    263      1.17    cbiere 	if (!cfile)
    264      1.17    cbiere 		cfile = "";
    265      1.17    cbiere 
    266       1.1     elric 	/* validate the consistency of the arguments */
    267       1.1     elric 
    268       1.1     elric 	switch (action) {
    269      1.17    cbiere 	case ACTION_DEFAULT:	/* ACTION_CONFIGURE is the default */
    270       1.1     elric 	case ACTION_CONFIGURE:
    271       1.5     elric 		return configure(argc, argv, p, CONFIG_FLAGS_FROMMAIN);
    272       1.1     elric 	case ACTION_UNCONFIGURE:
    273       1.3     elric 		return unconfigure(argc, argv, NULL, CONFIG_FLAGS_FROMMAIN);
    274       1.1     elric 	case ACTION_GENERATE:
    275       1.5     elric 		return generate(p, argc, argv, outfile);
    276       1.5     elric 	case ACTION_GENERATE_CONVERT:
    277       1.5     elric 		return generate_convert(p, argc, argv, outfile);
    278       1.1     elric 	case ACTION_CONFIGALL:
    279       1.1     elric 		return do_all(cfile, argc, argv, configure);
    280       1.1     elric 	case ACTION_UNCONFIGALL:
    281       1.1     elric 		return do_all(cfile, argc, argv, unconfigure);
    282       1.1     elric 	case ACTION_CONFIGSTDIN:
    283       1.5     elric 		return configure_stdin(p, argc, argv);
    284  1.18.4.1      matt 	default:
    285  1.18.4.1      matt 		errx(EXIT_FAILURE, "undefined action");
    286  1.18.4.1      matt 		/* NOTREACHED */
    287       1.1     elric 	}
    288       1.1     elric }
    289       1.1     elric 
    290       1.5     elric static bits_t *
    291  1.18.4.1      matt getkey(const char *dev, struct keygen *kg, size_t len)
    292       1.1     elric {
    293       1.5     elric 	bits_t	*ret = NULL;
    294       1.5     elric 	bits_t	*tmp;
    295       1.1     elric 
    296  1.18.4.1      matt 	VPRINTF(3, ("getkey(\"%s\", %p, %zu) called\n", dev, kg, len));
    297       1.5     elric 	for (; kg; kg=kg->next) {
    298       1.5     elric 		switch (kg->kg_method) {
    299       1.5     elric 		case KEYGEN_STOREDKEY:
    300       1.5     elric 			tmp = getkey_storedkey(dev, kg, len);
    301       1.5     elric 			break;
    302       1.5     elric 		case KEYGEN_RANDOMKEY:
    303      1.12        tv 			tmp = getkey_randomkey(dev, kg, len, 1);
    304      1.12        tv 			break;
    305      1.12        tv 		case KEYGEN_URANDOMKEY:
    306      1.12        tv 			tmp = getkey_randomkey(dev, kg, len, 0);
    307       1.5     elric 			break;
    308      1.10       dan 		case KEYGEN_PKCS5_PBKDF2_SHA1:
    309      1.10       dan 			tmp = getkey_pkcs5_pbkdf2(dev, kg, len, 0);
    310      1.10       dan 			break;
    311      1.10       dan 		/* provide backwards compatibility for old config files */
    312      1.10       dan 		case KEYGEN_PKCS5_PBKDF2_OLD:
    313      1.10       dan 			tmp = getkey_pkcs5_pbkdf2(dev, kg, len, 1);
    314       1.5     elric 			break;
    315       1.5     elric 		default:
    316       1.5     elric 			warnx("unrecognised keygen method %d in getkey()",
    317       1.5     elric 			    kg->kg_method);
    318       1.5     elric 			if (ret)
    319       1.5     elric 				bits_free(ret);
    320       1.5     elric 			return NULL;
    321       1.5     elric 		}
    322       1.5     elric 
    323       1.5     elric 		if (ret)
    324       1.5     elric 			ret = bits_xor_d(tmp, ret);
    325       1.5     elric 		else
    326       1.5     elric 			ret = tmp;
    327       1.1     elric 	}
    328       1.5     elric 
    329       1.5     elric 	return ret;
    330       1.5     elric }
    331       1.5     elric 
    332       1.5     elric /*ARGSUSED*/
    333       1.5     elric static bits_t *
    334  1.18.4.1      matt getkey_storedkey(const char *target, struct keygen *kg, size_t keylen)
    335       1.5     elric {
    336       1.5     elric 	return bits_dup(kg->kg_key);
    337       1.1     elric }
    338       1.1     elric 
    339       1.5     elric /*ARGSUSED*/
    340       1.5     elric static bits_t *
    341  1.18.4.1      matt getkey_randomkey(const char *target, struct keygen *kg, size_t keylen, int hard)
    342       1.1     elric {
    343      1.12        tv 	return bits_getrandombits(keylen, hard);
    344       1.1     elric }
    345       1.1     elric 
    346       1.5     elric /*ARGSUSED*/
    347      1.10       dan /*
    348      1.10       dan  * XXX take, and pass through, a compat flag that indicates whether we
    349      1.10       dan  * provide backwards compatibility with a previous bug.  The previous
    350      1.10       dan  * behaviour is indicated by the keygen method pkcs5_pbkdf2, and a
    351      1.10       dan  * non-zero compat flag. The new default, and correct keygen method is
    352      1.10       dan  * called pcks5_pbkdf2/sha1.  When the old method is removed, so will
    353      1.10       dan  * be the compat argument.
    354      1.10       dan  */
    355       1.5     elric static bits_t *
    356  1.18.4.1      matt getkey_pkcs5_pbkdf2(const char *target, struct keygen *kg, size_t keylen,
    357  1.18.4.1      matt     int compat)
    358       1.1     elric {
    359       1.5     elric 	bits_t		*ret;
    360  1.18.4.1      matt 	const u_int8_t	*passp;
    361       1.5     elric 	char		 buf[1024];
    362       1.5     elric 	u_int8_t	*tmp;
    363       1.1     elric 
    364       1.5     elric 	snprintf(buf, sizeof(buf), "%s's passphrase:", target);
    365  1.18.4.1      matt 	passp = (const u_int8_t *)(void *)getpass(buf);
    366       1.5     elric 	if (pkcs5_pbkdf2(&tmp, BITS2BYTES(keylen), passp, strlen(passp),
    367       1.5     elric 	    bits_getbuf(kg->kg_salt), BITS2BYTES(bits_len(kg->kg_salt)),
    368      1.10       dan 	    kg->kg_iterations, compat)) {
    369       1.5     elric 		warnx("failed to generate PKCS#5 PBKDF2 key");
    370       1.5     elric 		return NULL;
    371       1.5     elric 	}
    372       1.5     elric 
    373       1.5     elric 	ret = bits_new(tmp, keylen);
    374       1.9        cb 	kg->kg_key = bits_dup(ret);
    375       1.5     elric 	free(tmp);
    376       1.1     elric 	return ret;
    377       1.1     elric }
    378       1.1     elric 
    379       1.5     elric /*ARGSUSED*/
    380       1.1     elric static int
    381       1.3     elric unconfigure(int argc, char **argv, struct params *inparams, int flags)
    382       1.1     elric {
    383       1.1     elric 	int	fd;
    384       1.1     elric 	int	ret;
    385       1.1     elric 	char	buf[MAXPATHLEN] = "";
    386       1.1     elric 
    387       1.1     elric 	/* only complain about additional arguments, if called from main() */
    388       1.1     elric 	if (flags == CONFIG_FLAGS_FROMMAIN && argc != 1)
    389       1.1     elric 		usage();
    390       1.1     elric 
    391       1.1     elric 	/* if called from do_all(), then ensure that 2 or 3 args exist */
    392       1.1     elric 	if (flags == CONFIG_FLAGS_FROMALL && (argc < 2 || argc > 3))
    393       1.1     elric 		return -1;
    394       1.1     elric 
    395       1.1     elric 	fd = opendisk(*argv, O_RDWR, buf, sizeof(buf), 1);
    396       1.1     elric 	if (fd == -1) {
    397      1.17    cbiere 		int saved_errno = errno;
    398      1.17    cbiere 
    399       1.5     elric 		warn("can't open cgd \"%s\", \"%s\"", *argv, buf);
    400       1.1     elric 
    401       1.1     elric 		/* this isn't fatal with nflag != 0 */
    402       1.1     elric 		if (!nflag)
    403      1.17    cbiere 			return saved_errno;
    404       1.1     elric 	}
    405       1.1     elric 
    406       1.1     elric 	VPRINTF(1, ("%s (%s): clearing\n", *argv, buf));
    407       1.1     elric 
    408       1.1     elric 	if (nflag)
    409       1.1     elric 		return 0;
    410       1.1     elric 
    411       1.3     elric 	ret = unconfigure_fd(fd);
    412  1.18.4.1      matt 	(void)close(fd);
    413       1.3     elric 	return ret;
    414       1.3     elric }
    415       1.3     elric 
    416       1.3     elric static int
    417       1.3     elric unconfigure_fd(int fd)
    418       1.3     elric {
    419       1.3     elric 	struct	cgd_ioctl ci;
    420       1.3     elric 
    421      1.17    cbiere 	if (ioctl(fd, CGDIOCCLR, &ci) == -1) {
    422      1.17    cbiere 		warn("ioctl");
    423       1.3     elric 		return -1;
    424       1.1     elric 	}
    425       1.1     elric 
    426       1.1     elric 	return 0;
    427       1.1     elric }
    428       1.1     elric 
    429       1.5     elric /*ARGSUSED*/
    430       1.1     elric static int
    431       1.3     elric configure(int argc, char **argv, struct params *inparams, int flags)
    432       1.1     elric {
    433       1.5     elric 	struct params	*p;
    434       1.5     elric 	int		 fd;
    435       1.5     elric 	int		 ret;
    436       1.5     elric 	char		 cgdname[PATH_MAX];
    437       1.1     elric 
    438      1.17    cbiere 	if (argc == 2) {
    439      1.17    cbiere 		char *pfile;
    440      1.17    cbiere 
    441      1.17    cbiere 		if (asprintf(&pfile, "%s/%s",
    442      1.17    cbiere 		    CGDCONFIG_DIR, basename(argv[1])) == -1)
    443      1.17    cbiere 			return -1;
    444      1.17    cbiere 
    445      1.17    cbiere 		p = params_cget(pfile);
    446      1.17    cbiere 		free(pfile);
    447      1.17    cbiere 	} else if (argc == 3) {
    448      1.17    cbiere 		p = params_cget(argv[2]);
    449      1.17    cbiere 	} else {
    450       1.1     elric 		/* print usage and exit, only if called from main() */
    451       1.5     elric 		if (flags == CONFIG_FLAGS_FROMMAIN) {
    452       1.5     elric 			warnx("wrong number of args");
    453       1.1     elric 			usage();
    454       1.5     elric 		}
    455       1.1     elric 		return -1;
    456       1.1     elric 	}
    457       1.1     elric 
    458       1.5     elric 	if (!p)
    459       1.5     elric 		return -1;
    460       1.2     elric 
    461       1.3     elric 	/*
    462       1.5     elric 	 * over-ride with command line specifications and fill in default
    463       1.5     elric 	 * values.
    464       1.3     elric 	 */
    465       1.3     elric 
    466       1.5     elric 	p = params_combine(p, inparams);
    467       1.5     elric 	ret = params_filldefaults(p);
    468       1.5     elric 	if (ret) {
    469       1.5     elric 		params_free(p);
    470       1.5     elric 		return ret;
    471       1.5     elric 	}
    472       1.5     elric 
    473       1.5     elric 	if (!params_verify(p)) {
    474       1.5     elric 		warnx("params invalid");
    475       1.5     elric 		return -1;
    476       1.5     elric 	}
    477       1.3     elric 
    478       1.3     elric 	/*
    479       1.3     elric 	 * loop over configuring the disk and checking to see if it
    480       1.3     elric 	 * verifies properly.  We open and close the disk device each
    481       1.3     elric 	 * time, because if the user passes us the block device we
    482       1.3     elric 	 * need to flush the buffer cache.
    483       1.3     elric 	 */
    484       1.3     elric 
    485       1.3     elric 	for (;;) {
    486       1.3     elric 		fd = opendisk_werror(argv[0], cgdname, sizeof(cgdname));
    487       1.3     elric 		if (fd == -1)
    488       1.3     elric 			return -1;
    489       1.3     elric 
    490       1.5     elric 		if (p->key)
    491       1.5     elric 			bits_free(p->key);
    492       1.5     elric 
    493       1.5     elric 		p->key = getkey(argv[1], p->keygen, p->keylen);
    494       1.5     elric 		if (!p->key)
    495       1.3     elric 			goto bail_err;
    496       1.3     elric 
    497       1.5     elric 		ret = configure_params(fd, cgdname, argv[1], p);
    498       1.3     elric 		if (ret)
    499       1.3     elric 			goto bail_err;
    500       1.3     elric 
    501       1.5     elric 		ret = verify(p, fd);
    502       1.3     elric 		if (ret == -1)
    503       1.3     elric 			goto bail_err;
    504       1.3     elric 		if (!ret)
    505       1.3     elric 			break;
    506       1.2     elric 
    507      1.17    cbiere 		warnx("verification failed, please reenter passphrase");
    508       1.1     elric 
    509  1.18.4.1      matt 		(void)unconfigure_fd(fd);
    510  1.18.4.1      matt 		(void)close(fd);
    511       1.3     elric 	}
    512       1.2     elric 
    513       1.5     elric 	params_free(p);
    514  1.18.4.1      matt 	(void)close(fd);
    515       1.3     elric 	return 0;
    516       1.3     elric bail_err:
    517       1.5     elric 	params_free(p);
    518  1.18.4.1      matt 	(void)close(fd);
    519       1.3     elric 	return -1;
    520       1.1     elric }
    521       1.1     elric 
    522       1.1     elric static int
    523       1.1     elric configure_stdin(struct params *p, int argc, char **argv)
    524       1.1     elric {
    525       1.2     elric 	int	fd;
    526       1.1     elric 	int	ret;
    527       1.2     elric 	char	cgdname[PATH_MAX];
    528       1.1     elric 
    529       1.1     elric 	if (argc < 3 || argc > 4)
    530       1.1     elric 		usage();
    531       1.1     elric 
    532       1.5     elric 	p->algorithm = string_fromcharstar(argv[2]);
    533      1.17    cbiere 	if (argc > 3) {
    534  1.18.4.1      matt 		size_t keylen;
    535      1.17    cbiere 
    536  1.18.4.1      matt 		if (parse_size_t(argv[3], &keylen) == -1) {
    537      1.17    cbiere 			warn("failed to parse key length");
    538      1.17    cbiere 			return -1;
    539      1.17    cbiere 		}
    540      1.17    cbiere 		p->keylen = keylen;
    541      1.17    cbiere 	}
    542       1.1     elric 
    543       1.1     elric 	ret = params_filldefaults(p);
    544       1.1     elric 	if (ret)
    545       1.1     elric 		return ret;
    546       1.1     elric 
    547       1.2     elric 	fd = opendisk_werror(argv[0], cgdname, sizeof(cgdname));
    548       1.2     elric 	if (fd == -1)
    549       1.2     elric 		return -1;
    550       1.2     elric 
    551       1.5     elric 	p->key = bits_fget(stdin, p->keylen);
    552       1.5     elric 	if (!p->key) {
    553       1.5     elric 		warnx("failed to read key from stdin");
    554       1.1     elric 		return -1;
    555       1.5     elric 	}
    556       1.1     elric 
    557       1.2     elric 	return configure_params(fd, cgdname, argv[1], p);
    558       1.1     elric }
    559       1.1     elric 
    560       1.1     elric static int
    561      1.17    cbiere opendisk_werror(const char *cgd, char *buf, size_t buflen)
    562       1.2     elric {
    563       1.2     elric 	int	fd;
    564       1.2     elric 
    565      1.18    cbiere 	VPRINTF(3, ("opendisk_werror(%s, %s, %zu) called.\n", cgd, buf, buflen));
    566       1.5     elric 
    567       1.2     elric 	/* sanity */
    568       1.2     elric 	if (!cgd || !buf)
    569       1.2     elric 		return -1;
    570       1.2     elric 
    571       1.2     elric 	if (nflag) {
    572      1.17    cbiere 		if (strlcpy(buf, cgd, buflen) >= buflen)
    573      1.17    cbiere 			return -1;
    574       1.2     elric 		return 0;
    575       1.2     elric 	}
    576       1.2     elric 
    577       1.3     elric 	fd = opendisk(cgd, O_RDWR, buf, buflen, 0);
    578       1.2     elric 	if (fd == -1)
    579       1.5     elric 		warnx("can't open cgd \"%s\", \"%s\"", cgd, buf);
    580       1.5     elric 
    581       1.2     elric 	return fd;
    582       1.2     elric }
    583       1.2     elric 
    584       1.2     elric static int
    585       1.2     elric configure_params(int fd, const char *cgd, const char *dev, struct params *p)
    586       1.1     elric {
    587       1.1     elric 	struct cgd_ioctl ci;
    588       1.1     elric 
    589       1.1     elric 	/* sanity */
    590       1.1     elric 	if (!cgd || !dev)
    591       1.1     elric 		return -1;
    592       1.1     elric 
    593  1.18.4.1      matt 	(void)memset(&ci, 0x0, sizeof(ci));
    594      1.16  christos 	ci.ci_disk = dev;
    595      1.16  christos 	ci.ci_alg = string_tocharstar(p->algorithm);
    596      1.16  christos 	ci.ci_ivmethod = string_tocharstar(p->ivmeth);
    597      1.16  christos 	ci.ci_key = bits_getbuf(p->key);
    598       1.1     elric 	ci.ci_keylen = p->keylen;
    599       1.1     elric 	ci.ci_blocksize = p->bsize;
    600       1.1     elric 
    601       1.1     elric 	VPRINTF(1, ("    with alg %s keylen %d blocksize %d ivmethod %s\n",
    602       1.5     elric 	    string_tocharstar(p->algorithm), p->keylen, p->bsize,
    603       1.5     elric 	    string_tocharstar(p->ivmeth)));
    604       1.5     elric 	VPRINTF(2, ("key: "));
    605       1.5     elric 	VERBOSE(2, bits_fprint(stdout, p->key));
    606       1.5     elric 	VPRINTF(2, ("\n"));
    607       1.1     elric 
    608       1.1     elric 	if (nflag)
    609       1.1     elric 		return 0;
    610       1.1     elric 
    611      1.17    cbiere 	if (ioctl(fd, CGDIOCSET, &ci) == -1) {
    612      1.17    cbiere 		int saved_errno = errno;
    613      1.17    cbiere 		warn("ioctl");
    614      1.17    cbiere 		return saved_errno;
    615       1.1     elric 	}
    616       1.1     elric 
    617       1.1     elric 	return 0;
    618       1.1     elric }
    619       1.1     elric 
    620       1.3     elric /*
    621       1.3     elric  * verify returns 0 for success, -1 for unrecoverable error, or 1 for retry.
    622       1.3     elric  */
    623       1.3     elric 
    624       1.3     elric #define SCANSIZE	8192
    625       1.3     elric 
    626       1.3     elric static int
    627       1.3     elric verify(struct params *p, int fd)
    628       1.3     elric {
    629       1.3     elric 
    630       1.3     elric 	switch (p->verify_method) {
    631       1.3     elric 	case VERIFY_NONE:
    632       1.3     elric 		return 0;
    633       1.3     elric 	case VERIFY_DISKLABEL:
    634       1.5     elric 		return verify_disklabel(fd);
    635       1.5     elric 	case VERIFY_FFS:
    636       1.5     elric 		return verify_ffs(fd);
    637       1.9        cb 	case VERIFY_REENTER:
    638       1.9        cb 		return verify_reenter(p);
    639       1.3     elric 	default:
    640       1.5     elric 		warnx("unimplemented verification method");
    641       1.3     elric 		return -1;
    642       1.3     elric 	}
    643       1.5     elric }
    644       1.5     elric 
    645       1.5     elric static int
    646       1.5     elric verify_disklabel(int fd)
    647       1.5     elric {
    648       1.5     elric 	struct	disklabel l;
    649      1.17    cbiere 	ssize_t	ret;
    650       1.5     elric 	char	buf[SCANSIZE];
    651       1.3     elric 
    652       1.3     elric 	/*
    653       1.3     elric 	 * we simply scan the first few blocks for a disklabel, ignoring
    654       1.3     elric 	 * any MBR/filecore sorts of logic.  MSDOS and RiscOS can't read
    655       1.3     elric 	 * a cgd, anyway, so it is unlikely that there will be non-native
    656       1.3     elric 	 * partition information.
    657       1.3     elric 	 */
    658       1.3     elric 
    659       1.3     elric 	ret = pread(fd, buf, 8192, 0);
    660      1.17    cbiere 	if (ret < 0) {
    661       1.5     elric 		warn("can't read disklabel area");
    662       1.3     elric 		return -1;
    663       1.3     elric 	}
    664       1.3     elric 
    665       1.3     elric 	/* now scan for the disklabel */
    666       1.3     elric 
    667      1.17    cbiere 	return disklabel_scan(&l, buf, (size_t)ret);
    668       1.3     elric }
    669       1.3     elric 
    670       1.7      fvdl static off_t sblock_try[] = SBLOCKSEARCH;
    671       1.7      fvdl 
    672       1.1     elric static int
    673       1.5     elric verify_ffs(int fd)
    674       1.5     elric {
    675  1.18.4.1      matt 	size_t	i;
    676       1.5     elric 
    677       1.7      fvdl 	for (i = 0; sblock_try[i] != -1; i++) {
    678  1.18.4.1      matt 		union {
    679  1.18.4.1      matt 		    char	buf[SBLOCKSIZE];
    680  1.18.4.1      matt 		    struct	fs fs;
    681  1.18.4.1      matt 		} u;
    682      1.17    cbiere 		ssize_t ret;
    683      1.17    cbiere 
    684  1.18.4.1      matt 		ret = pread(fd, &u, sizeof(u), sblock_try[i]);
    685      1.17    cbiere 		if (ret < 0) {
    686       1.7      fvdl 			warn("pread");
    687      1.17    cbiere 			break;
    688  1.18.4.1      matt 		} else if ((size_t)ret < sizeof(u)) {
    689      1.17    cbiere 			warnx("pread: incomplete block");
    690      1.17    cbiere 			break;
    691       1.7      fvdl 		}
    692  1.18.4.1      matt 		switch (u.fs.fs_magic) {
    693       1.7      fvdl 		case FS_UFS1_MAGIC:
    694       1.7      fvdl 		case FS_UFS2_MAGIC:
    695       1.7      fvdl 		case FS_UFS1_MAGIC_SWAPPED:
    696       1.7      fvdl 		case FS_UFS2_MAGIC_SWAPPED:
    697       1.7      fvdl 			return 0;
    698       1.7      fvdl 		default:
    699       1.7      fvdl 			continue;
    700       1.7      fvdl 		}
    701       1.5     elric 	}
    702      1.17    cbiere 
    703      1.17    cbiere 	return 1;	/* failure */
    704       1.9        cb }
    705       1.9        cb 
    706       1.9        cb static int
    707       1.9        cb verify_reenter(struct params *p)
    708       1.9        cb {
    709       1.9        cb 	struct keygen *kg;
    710       1.9        cb 	bits_t *orig_key, *key;
    711       1.9        cb 	int ret;
    712       1.9        cb 
    713       1.9        cb 	ret = 0;
    714       1.9        cb 	for (kg = p->keygen; kg && !ret; kg = kg->next) {
    715      1.10       dan 		if ((kg->kg_method != KEYGEN_PKCS5_PBKDF2_SHA1) &&
    716      1.10       dan 		    (kg->kg_method != KEYGEN_PKCS5_PBKDF2_OLD ))
    717       1.9        cb 			continue;
    718       1.9        cb 
    719       1.9        cb 		orig_key = kg->kg_key;
    720       1.9        cb 		kg->kg_key = NULL;
    721       1.9        cb 
    722      1.10       dan 		/* add a compat flag till the _OLD method goes away */
    723       1.9        cb 		key = getkey_pkcs5_pbkdf2("re-enter device", kg,
    724      1.10       dan 			bits_len(orig_key), kg->kg_method == KEYGEN_PKCS5_PBKDF2_OLD);
    725       1.9        cb 		ret = !bits_match(key, orig_key);
    726       1.9        cb 
    727       1.9        cb 		bits_free(key);
    728       1.9        cb 		bits_free(kg->kg_key);
    729       1.9        cb 		kg->kg_key = orig_key;
    730       1.9        cb 	}
    731       1.9        cb 
    732       1.9        cb 	return ret;
    733       1.5     elric }
    734       1.5     elric 
    735       1.5     elric static int
    736       1.1     elric generate(struct params *p, int argc, char **argv, const char *outfile)
    737       1.1     elric {
    738       1.1     elric 	int	 ret;
    739       1.1     elric 
    740       1.1     elric 	if (argc < 1 || argc > 2)
    741       1.1     elric 		usage();
    742       1.1     elric 
    743       1.5     elric 	p->algorithm = string_fromcharstar(argv[0]);
    744      1.17    cbiere 	if (argc > 1) {
    745  1.18.4.1      matt 		size_t keylen;
    746      1.17    cbiere 
    747  1.18.4.1      matt 		if (parse_size_t(argv[1], &keylen) == -1) {
    748      1.17    cbiere 			warn("Failed to parse key length");
    749      1.17    cbiere 			return -1;
    750      1.17    cbiere 		}
    751      1.17    cbiere 		p->keylen = keylen;
    752      1.17    cbiere 	}
    753       1.5     elric 
    754       1.5     elric 	ret = params_filldefaults(p);
    755       1.1     elric 	if (ret)
    756       1.1     elric 		return ret;
    757       1.5     elric 
    758       1.5     elric 	if (!p->keygen) {
    759      1.10       dan 		p->keygen = keygen_generate(KEYGEN_PKCS5_PBKDF2_SHA1);
    760       1.5     elric 		if (!p->keygen)
    761       1.5     elric 			return -1;
    762       1.5     elric 	}
    763       1.5     elric 
    764       1.5     elric 	if (keygen_filldefaults(p->keygen, p->keylen)) {
    765       1.5     elric 		warnx("Failed to generate defaults for keygen");
    766       1.5     elric 		return -1;
    767       1.5     elric 	}
    768       1.5     elric 
    769       1.5     elric 	if (!params_verify(p)) {
    770       1.5     elric 		warnx("invalid parameters generated");
    771       1.5     elric 		return -1;
    772       1.5     elric 	}
    773       1.5     elric 
    774       1.5     elric 	return params_cput(p, outfile);
    775       1.5     elric }
    776       1.5     elric 
    777       1.5     elric static int
    778       1.5     elric generate_convert(struct params *p, int argc, char **argv, const char *outfile)
    779       1.5     elric {
    780       1.5     elric 	struct params	*oldp;
    781       1.5     elric 	struct keygen	*kg;
    782       1.5     elric 
    783       1.5     elric 	if (argc != 1)
    784       1.5     elric 		usage();
    785       1.5     elric 
    786       1.5     elric 	oldp = params_cget(*argv);
    787       1.5     elric 	if (!oldp)
    788       1.5     elric 		return -1;
    789       1.5     elric 
    790       1.5     elric 	/* for sanity, we ensure that none of the keygens are randomkey */
    791       1.5     elric 	for (kg=p->keygen; kg; kg=kg->next)
    792       1.5     elric 		if (kg->kg_method == KEYGEN_RANDOMKEY)
    793       1.5     elric 			goto bail;
    794       1.5     elric 	for (kg=oldp->keygen; kg; kg=kg->next)
    795       1.5     elric 		if (kg->kg_method == KEYGEN_RANDOMKEY)
    796       1.5     elric 			goto bail;
    797       1.5     elric 
    798       1.5     elric 	if (!params_verify(oldp)) {
    799       1.5     elric 		warnx("invalid old parameters file \"%s\"", *argv);
    800       1.5     elric 		return -1;
    801       1.1     elric 	}
    802       1.1     elric 
    803       1.5     elric 	oldp->key = getkey("old file", oldp->keygen, oldp->keylen);
    804       1.5     elric 
    805       1.5     elric 	/* we copy across the non-keygen info, here. */
    806       1.5     elric 
    807       1.5     elric 	string_free(p->algorithm);
    808       1.5     elric 	string_free(p->ivmeth);
    809       1.5     elric 
    810       1.5     elric 	p->algorithm = string_dup(oldp->algorithm);
    811       1.5     elric 	p->ivmeth = string_dup(oldp->ivmeth);
    812       1.5     elric 	p->keylen = oldp->keylen;
    813       1.5     elric 	p->bsize = oldp->bsize;
    814       1.5     elric 	if (p->verify_method == VERIFY_UNKNOWN)
    815       1.5     elric 		p->verify_method = oldp->verify_method;
    816       1.5     elric 
    817       1.5     elric 	params_free(oldp);
    818       1.1     elric 
    819       1.5     elric 	if (!p->keygen) {
    820      1.10       dan 		p->keygen = keygen_generate(KEYGEN_PKCS5_PBKDF2_SHA1);
    821       1.5     elric 		if (!p->keygen)
    822       1.1     elric 			return -1;
    823       1.5     elric 	}
    824  1.18.4.1      matt 	(void)params_filldefaults(p);
    825  1.18.4.1      matt 	(void)keygen_filldefaults(p->keygen, p->keylen);
    826       1.5     elric 	p->key = getkey("new file", p->keygen, p->keylen);
    827       1.5     elric 
    828       1.5     elric 	kg = keygen_generate(KEYGEN_STOREDKEY);
    829       1.5     elric 	kg->kg_key = bits_xor(p->key, oldp->key);
    830       1.5     elric 	keygen_addlist(&p->keygen, kg);
    831       1.5     elric 
    832       1.5     elric 	if (!params_verify(p)) {
    833       1.5     elric 		warnx("can't generate new parameters file");
    834       1.5     elric 		return -1;
    835       1.1     elric 	}
    836       1.1     elric 
    837       1.5     elric 	return params_cput(p, outfile);
    838       1.5     elric bail:
    839       1.5     elric 	params_free(oldp);
    840       1.5     elric 	return -1;
    841       1.1     elric }
    842       1.1     elric 
    843       1.1     elric static int
    844  1.18.4.1      matt /*ARGSUSED*/
    845       1.1     elric do_all(const char *cfile, int argc, char **argv,
    846       1.3     elric        int (*conf)(int, char **, struct params *, int))
    847       1.1     elric {
    848       1.1     elric 	FILE		 *f;
    849       1.1     elric 	size_t		  len;
    850       1.1     elric 	size_t		  lineno;
    851       1.1     elric 	int		  my_argc;
    852       1.1     elric 	int		  ret;
    853       1.1     elric 	const char	 *fn;
    854       1.1     elric 	char		 *line;
    855       1.1     elric 	char		**my_argv;
    856       1.1     elric 
    857       1.1     elric 	if (argc > 0)
    858       1.1     elric 		usage();
    859       1.1     elric 
    860       1.1     elric 	if (!cfile[0])
    861       1.1     elric 		fn = CGDCONFIG_CFILE;
    862       1.1     elric 	else
    863       1.1     elric 		fn = cfile;
    864       1.1     elric 
    865       1.1     elric 	f = fopen(fn, "r");
    866       1.1     elric 	if (!f) {
    867       1.5     elric 		warn("could not open config file \"%s\"", fn);
    868       1.1     elric 		return -1;
    869       1.1     elric 	}
    870       1.1     elric 
    871       1.5     elric 	ret = chdir(CGDCONFIG_DIR);
    872       1.5     elric 	if (ret == -1)
    873       1.5     elric 		warn("could not chdir to %s", CGDCONFIG_DIR);
    874       1.5     elric 
    875       1.1     elric 	ret = 0;
    876       1.1     elric 	lineno = 0;
    877       1.1     elric 	for (;;) {
    878       1.1     elric 		line = fparseln(f, &len, &lineno, "\\\\#", FPARSELN_UNESCALL);
    879       1.1     elric 		if (!line)
    880       1.1     elric 			break;
    881       1.1     elric 		if (!*line)
    882       1.1     elric 			continue;
    883       1.1     elric 
    884       1.1     elric 		my_argv = words(line, &my_argc);
    885       1.3     elric 		ret = conf(my_argc, my_argv, NULL, CONFIG_FLAGS_FROMALL);
    886       1.1     elric 		if (ret) {
    887       1.5     elric 			warnx("action failed on \"%s\" line %lu", fn,
    888       1.1     elric 			    (u_long)lineno);
    889       1.1     elric 			break;
    890       1.1     elric 		}
    891       1.1     elric 		words_free(my_argv, my_argc);
    892       1.1     elric 	}
    893       1.1     elric 	return ret;
    894       1.1     elric }
    895      1.13     elric 
    896      1.13     elric static void
    897      1.13     elric eliminate_cores(void)
    898      1.13     elric {
    899      1.13     elric 	struct rlimit	rlp;
    900      1.13     elric 
    901      1.13     elric 	rlp.rlim_cur = 0;
    902      1.13     elric 	rlp.rlim_max = 0;
    903      1.17    cbiere 	if (setrlimit(RLIMIT_CORE, &rlp) == -1)
    904      1.13     elric 		err(EXIT_FAILURE, "Can't disable cores");
    905      1.13     elric }
    906