2 * Copyright (c) 1997-1999 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the Institute nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 RCSID("$Id: kstash.c,v 1.10 1999/11/13 04:14:17 assar Exp $");
40 char *keyfile = HDB_DB_DIR "/m-key";
46 struct getargs args[] = {
47 { "key-file", 'k', arg_string, &keyfile, "master key file", "file" },
48 { "version4-key-file", '4', arg_string, &v4_keyfile,
49 "kerberos 4 master key file", "file" },
50 { "convert-file", 0, arg_flag, &convert_flag,
51 "convert keytype of keyfile" },
52 { "help", 'h', arg_flag, &help_flag },
53 { "version", 0, arg_flag, &version_flag }
56 int num_args = sizeof(args) / sizeof(args[0]);
59 write_keyfile(EncryptionKey key)
69 f = fopen(keyfile, "w");
71 krb5_err(context, 1, errno, "%s", keyfile);
72 encode_EncryptionKey((unsigned char *)buf + sizeof(buf) - 1,
73 sizeof(buf), &key, &len);
74 fwrite(buf + sizeof(buf) - len, len, 1, f);
75 memset(buf, 0, sizeof(buf));
79 krb5_err(context, 1, e, "%s", keyfile);
89 unsigned char buf[1024];
95 f = fopen(keyfile, "r");
97 krb5_warn(context, errno, "%s", keyfile);
100 len = fread(buf, 1, sizeof(buf), f);
102 krb5_warn(context, errno, "fread");
107 ret = decode_EncryptionKey(buf, len, &key, &len);
108 memset(buf, 0, sizeof(buf));
110 krb5_warn(context, ret, "decode_EncryptionKey");
113 if(key.keytype == KEYTYPE_DES)
114 key.keytype = ETYPE_DES_CBC_MD5;
115 else if(key.keytype == ETYPE_DES_CBC_MD5) {
116 krb5_warnx(context, "keyfile already converted");
120 krb5_warnx(context, "bad encryption key type (%d)", key.keytype);
124 asprintf(&fn, "%s.old", keyfile);
126 krb5_warn(context, ENOMEM, "malloc");
130 if(rename(keyfile, fn) < 0) {
131 krb5_warn(context, errno, "rename");
136 krb5_free_keyblock_contents(context, &key);
139 memset(buf, 0, sizeof(buf));
142 krb5_free_keyblock_contents(context, &key);
147 main(int argc, char **argv)
153 krb5_program_setup(&context, argc, argv, args, num_args, NULL);
156 krb5_std_usage(0, args, num_args);
163 exit(convert_file());
165 key.keytype = ETYPE_DES_CBC_MD5; /* XXX */
167 f = fopen(v4_keyfile, "r");
169 krb5_err(context, 1, errno, "fopen(%s)", v4_keyfile);
170 key.keyvalue.length = sizeof(des_cblock);
171 key.keyvalue.data = malloc(key.keyvalue.length);
172 fread(key.keyvalue.data, 1, key.keyvalue.length, f);
176 salt.salttype = KRB5_PW_SALT;
177 /* XXX better value? */
178 salt.saltvalue.data = NULL;
179 salt.saltvalue.length = 0;
180 if(des_read_pw_string(buf, sizeof(buf), "Master key: ", 1))
182 krb5_string_to_key_salt(context, key.keytype, buf, salt, &key);
186 krb5_free_keyblock_contents(context, &key);