1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
/*
* Implementation of srvtab handling for the wallet client.
*
* Written by Russ Allbery <rra@stanford.edu>
* Copyright 2007, 2008, 2010 Board of Trustees, Leland Stanford Jr. University
*
* See LICENSE for licensing terms.
*/
#include <config.h>
#include <portable/system.h>
#include <krb5.h>
#include <client/internal.h>
#include <util/util.h>
#ifndef KRB5_KRB4_COMPAT
# define ANAME_SZ 40
# define INST_SZ 40
# define REALM_SZ 40
#endif
/*
* Given the Kerberos context, srvtab file name, a Kerberos principal (as a
* string), and a keytab file name, extract the des-cbc-crc key from that
* keytab and write it to the newly created srvtab file as a srvtab. Convert
* the principal from Kerberos v5 form to Kerberos v4 form.
*
* On any failure, print an error message to standard error and then exit.
*/
void
write_srvtab(krb5_context ctx, const char *srvtab, const char *principal,
const char *keytab)
{
krb5_keytab kt;
krb5_principal princ;
krb5_keytab_entry entry;
krb5_error_code ret;
size_t length;
char aname[ANAME_SZ + 1] = "";
char inst[INST_SZ + 1] = "";
char realm[REALM_SZ + 1] = "";
char data[ANAME_SZ + 1 + INST_SZ + 1 + REALM_SZ + 1 + 1 + 8];
/* Open the keytab and get the DES key. */
ret = krb5_parse_name(ctx, principal, &princ);
if (ret != 0)
die_krb5(ctx, ret, "error parsing Kerberos principal %s", principal);
ret = krb5_kt_resolve(ctx, keytab, &kt);
if (ret != 0)
die_krb5(ctx, ret, "error opening keytab %s", keytab);
ret = krb5_kt_get_entry(ctx, kt, princ, 0, ENCTYPE_DES_CBC_CRC, &entry);
if (ret != 0)
die_krb5(ctx, ret, "error reading DES key from keytab %s", keytab);
#ifdef HAVE_KRB5_KEYTAB_ENTRY_KEYBLOCK
if (entry.keyblock.keyvalue.length != 8)
die("invalid DES key length in keytab");
#else
if (entry.key.length != 8)
die("invalid DES key length in keytab");
#endif
krb5_kt_close(ctx, kt);
/* Convert the principal to a Kerberos v4 principal. */
ret = krb5_524_conv_principal(ctx, princ, aname, inst, realm);
if (ret != 0)
die_krb5(ctx, ret, "error converting principal %s to Kerberos v4",
principal);
/* Assemble the srvtab data. */
length = 0;
strcpy(data + length, aname);
length += strlen(aname);
data[length++] = '\0';
strcpy(data + length, inst);
length += strlen(inst);
data[length++] = '\0';
strcpy(data + length, realm);
length += strlen(realm);
data[length++] = '\0';
data[length++] = (unsigned char) entry.vno;
#ifdef HAVE_KRB5_KEYTAB_ENTRY_KEYBLOCK
memcpy(data + length, entry.keyblock.keyvalue.data, 8);
#else
memcpy(data + length, entry.key.contents, 8);
#endif
length += 8;
#ifdef HAVE_KRB5_KT_FREE_ENTRY
krb5_kt_free_entry(ctx, &entry);
#else
krb5_free_keytab_entry_contents(ctx, &entry);
#endif
/* Write out the srvtab file. */
write_file(srvtab, data, length);
}
|
