03656ac1b0
the "core" Kerberos functionality. The rest of the userland will get their own changes later.
57 lines
1.2 KiB
C
57 lines
1.2 KiB
C
/*
|
|
* Copyright 1985, 1986, 1987, 1988 by the Massachusetts Institute
|
|
* of Technology
|
|
*
|
|
* For copying and distribution information, please see the file
|
|
* <mit-copyright.h>.
|
|
*
|
|
* Description.
|
|
*/
|
|
|
|
#include "adm_locl.h"
|
|
|
|
RCSID("$Id: kstash.c,v 1.10 1997/03/30 17:35:37 assar Exp $");
|
|
|
|
/* change this later, but krblib_dbm needs it for now */
|
|
|
|
static des_cblock master_key;
|
|
static des_key_schedule master_key_schedule;
|
|
|
|
static void
|
|
clear_secrets(void)
|
|
{
|
|
memset(master_key_schedule, 0, sizeof(master_key_schedule));
|
|
memset(master_key, 0, sizeof(master_key));
|
|
}
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
long n;
|
|
int ret = 0;
|
|
set_progname (argv[0]);
|
|
|
|
if ((n = kerb_init()))
|
|
errx(1, "Kerberos db and cache init failed = %ld\n", n);
|
|
|
|
if (kdb_get_master_key (KDB_GET_PROMPT, &master_key,
|
|
master_key_schedule) != 0) {
|
|
clear_secrets();
|
|
errx(1, "Couldn't read master key.");
|
|
}
|
|
|
|
if (kdb_verify_master_key (&master_key, master_key_schedule, stderr) < 0) {
|
|
clear_secrets();
|
|
return 1;
|
|
}
|
|
|
|
ret = kdb_kstash(&master_key, MKEYFILE);
|
|
if(ret < 0)
|
|
warn("writing master key");
|
|
else
|
|
fprintf(stderr, "Wrote master key to %s\n", MKEYFILE);
|
|
|
|
clear_secrets();
|
|
return ret;
|
|
}
|