1 /* 2 * Copyright (c) 1997-2002 Kungliga Tekniska H�gskolan 3 * (Royal Institute of Technology, Stockholm, Sweden). 4 * All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 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. 16 * 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. 20 * 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 31 * SUCH DAMAGE. 32 */ 33 34 #include "headers.h" 35 36 RCSID("$Id: kstash.c,v 1.15 2002/04/18 09:47:25 joda Exp $"); 37 38 krb5_context context; 39 40 const char *keyfile = HDB_DB_DIR "/m-key"; 41 int convert_flag; 42 int help_flag; 43 int version_flag; 44 45 int master_key_fd = -1; 46 47 const char *enctype_str = "des3-cbc-sha1"; 48 49 struct getargs args[] = { 50 { "enctype", 'e', arg_string, &enctype_str, "encryption type" }, 51 { "key-file", 'k', arg_string, &keyfile, "master key file", "file" }, 52 { "convert-file", 0, arg_flag, &convert_flag, 53 "just convert keyfile to new format" }, 54 { "master-key-fd", 0, arg_integer, &master_key_fd, 55 "filedescriptor to read passphrase from", "fd" }, 56 { "help", 'h', arg_flag, &help_flag }, 57 { "version", 0, arg_flag, &version_flag } 58 }; 59 60 int num_args = sizeof(args) / sizeof(args[0]); 61 62 int 63 main(int argc, char **argv) 64 { 65 char buf[1024]; 66 krb5_error_code ret; 67 68 krb5_enctype enctype; 69 70 hdb_master_key mkey; 71 72 krb5_program_setup(&context, argc, argv, args, num_args, NULL); 73 74 if(help_flag) 75 krb5_std_usage(0, args, num_args); 76 if(version_flag){ 77 print_version(NULL); 78 exit(0); 79 } 80 81 ret = krb5_string_to_enctype(context, enctype_str, &enctype); 82 if(ret) 83 krb5_err(context, 1, ret, "krb5_string_to_enctype"); 84 85 ret = hdb_read_master_key(context, keyfile, &mkey); 86 if(ret && ret != ENOENT) 87 krb5_err(context, 1, ret, "reading master key from %s", keyfile); 88 89 if (convert_flag) { 90 if (ret) 91 krb5_err(context, 1, ret, "reading master key from %s", keyfile); 92 } else { 93 krb5_keyblock key; 94 krb5_salt salt; 95 salt.salttype = KRB5_PW_SALT; 96 /* XXX better value? */ 97 salt.saltvalue.data = NULL; 98 salt.saltvalue.length = 0; 99 if(master_key_fd != -1) { 100 ssize_t n; 101 n = read(master_key_fd, buf, sizeof(buf)); 102 if(n <= 0) 103 krb5_err(context, 1, errno, "failed to read passphrase"); 104 buf[n] = '\0'; 105 buf[strcspn(buf, "\r\n")] = '\0'; 106 } else { 107 if(des_read_pw_string(buf, sizeof(buf), "Master key: ", 1)) 108 exit(1); 109 } 110 krb5_string_to_key_salt(context, enctype, buf, salt, &key); 111 ret = hdb_add_master_key(context, &key, &mkey); 112 113 krb5_free_keyblock_contents(context, &key); 114 115 } 116 117 { 118 char *new, *old; 119 asprintf(&old, "%s.old", keyfile); 120 asprintf(&new, "%s.new", keyfile); 121 if(unlink(new) < 0 && errno != ENOENT) { 122 ret = errno; 123 goto out; 124 } 125 krb5_warnx(context, "writing key to `%s'", keyfile); 126 ret = hdb_write_master_key(context, new, mkey); 127 if(ret) 128 unlink(new); 129 else { 130 unlink(old); 131 if(link(keyfile, old) < 0 && errno != ENOENT) { 132 ret = errno; 133 unlink(new); 134 } else if(rename(new, keyfile) < 0) { 135 ret = errno; 136 } 137 } 138 out: 139 free(old); 140 free(new); 141 if(ret) 142 krb5_warn(context, errno, "writing master key file"); 143 } 144 145 hdb_free_master_key(context, mkey); 146 147 exit(ret != 0); 148 } 149