2 * Copyright (c) 1995, 1996, 1997, 1998 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
33 /* $FreeBSD: src/crypto/kerberosIV/appl/afsutil/kstring2key.c,v 1.2.2.1 2003/02/13 21:34:35 nectar Exp $ */
34 /* $DragonFly: src/crypto/kerberosIV/appl/afsutil/Attic/kstring2key.c,v 1.2 2003/06/17 04:24:36 dillon Exp $ */
38 RCSID("$Id: kstring2key.c,v 1.16 1999/12/02 16:58:28 joda Exp $");
47 #define OPENSSL_DES_LIBDES_COMPATIBILITY
48 #include <openssl/des.h>
57 "Usage: %s [-c AFS cellname] [ -5 krb5salt ] [ password ]\n",
60 " krb5salt is realmname APPEND principal APPEND instance\n");
66 krb5_string_to_key(char *str,
72 asprintf(&foo, "%s%s", str, salt);
74 errx (1, "malloc: out of memory");
75 des_string_to_key(foo, key);
81 main(int argc, char **argv)
85 char *cellname = 0, *salt = 0;
87 set_progname (argv[0]);
89 if (argc >= 3 && argv[1][0] == '-' && argv[1][1] == 'c')
95 else if (argc >= 3 && argv[1][0] == '-' && argv[1][1] == '5')
101 if (argc >= 2 && argv[1][0] == '-')
106 if (des_read_pw_string(buf, sizeof(buf)-1, "password: ", VERIFY))
107 errx (1, "Error reading password.");
110 strlcpy(buf, argv[1], sizeof(buf));
118 afs_string_to_key(buf, cellname, &key);
120 krb5_string_to_key(buf, salt, &key);
122 des_string_to_key(buf, &key);
126 unsigned char *tkey = (unsigned char *) &key;
128 for(j = 0; j < 8; j++)
129 if(tkey[j] != '\\' && isalpha(tkey[j]) != 0)
130 printf("%c", tkey[j]);
132 printf("\\%03o",(unsigned char)tkey[j]);
135 for(j = 0; j < 8; j++)
136 printf("%02x",(unsigned char)tkey[j]);