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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
/*
* $Source$
* $Author$
*
* Copyright 1990 by the Massachusetts Institute of Technology.
*
* For copying and distribution information, please see the file
* <krb5/copyright.h>.
*
* krb5_mk_priv()
*/
#if !defined(lint) && !defined(SABER)
static char rcsid_mk_priv_c[] =
"$Id$";
#endif /* !lint & !SABER */
#include <krb5/copyright.h>
#include <krb5/krb5.h>
#include <krb5/asn1.h>
#include <krb5/libos-proto.h>
#include <krb5/ext-proto.h>
/*
Formats a KRB_PRIV message into outbuf.
userdata is formatted as the user data in the message.
etype specifies the encryption type; key specifies the key for the
encryption; sender_addr and recv_addr specify the full addresses (host
and port) of the sender and receiver.
The outbuf buffer storage is allocated, and should be freed by the
caller when finished.
returns system errors
*/
krb5_error_code
krb5_mk_priv(DECLARG(const krb5_data *, userdata),
DECLARG(const krb5_enctype, etype),
DECLARG(const krb5_keyblock *, key),
DECLARG(const krb5_fulladdr *, sender_addr),
DECLARG(const krb5_fulladdr *, recv_addr),
DECLARG(krb5_data *, outbuf))
OLDDECLARG(const krb5_data *, userdata)
OLDDECLARG(const krb5_enctype, etype)
OLDDECLARG(const krb5_keyblock *, key)
OLDDECLARG(const krb5_fulladdr *, sender_addr)
OLDDECLARG(const krb5_fulladdr *, recv_addr)
OLDDECLARG(krb5_data *, outbuf)
{
krb5_error_code retval;
krb5_encrypt_block eblock;
krb5_priv privmsg;
krb5_priv_enc_part privmsg_enc_part;
krb5_address *addrs[2];
krb5_data *scratch;
if (!valid_etype(etype))
return KRB5KDC_ERR_ETYPE_NOSUPP; /* XXX */
privmsg.etype = etype;
privmsg_enc_part.user_data = *userdata;
privmsg_enc_part.addresses = addrs;
addrs[0] = sender_addr->address;
addrs[1] = 0;
if (retval = krb5_ms_timeofday(&privmsg_enc_part.timestamp, &privmsg_enc_part.msec))
return retval;
if (krb5_fulladdr_order(sender_addr, recv_addr) > 0)
privmsg_enc_part.msec = (privmsg_enc_part.msec & MSEC_VAL_MASK) | MSEC_DIRBIT;
else
/* this should be a no-op, but just to be sure... */
privmsg_enc_part.msec = privmsg_enc_part.msec & MSEC_VAL_MASK;
/* start by encoding to-be-encrypted part of the message */
if (retval = encode_krb5_enc_priv_part(&privmsg_enc_part, &scratch))
return retval;
#define cleanup_scratch() { (void) bzero(scratch->data, scratch->length); krb5_free_data(scratch); }
/* put together an eblock for this encryption */
eblock.crypto_entry = krb5_csarray[etype]->system;
privmsg.enc_part.length = krb5_encrypt_size(scratch->length,
eblock.crypto_entry);
/* add padding area, and zero it */
if (!(scratch->data = realloc(scratch->data, privmsg.enc_part.length))) {
/* may destroy scratch->data */
xfree(scratch);
return ENOMEM;
}
bzero(scratch->data + scratch->length,
privmsg.enc_part.length - scratch->length);
if (!(privmsg.enc_part.data = malloc(privmsg.enc_part.length))) {
retval = ENOMEM;
goto clean_scratch;
}
#define cleanup_encpart() {(void) bzero(privmsg.enc_part.data, privmsg.enc_part.length); free(privmsg.enc_part.data); privmsg.enc_part.length = 0; privmsg.enc_part.data = 0;}
/* do any necessary key pre-processing */
if (retval = (*eblock.crypto_entry->process_key)(&eblock, key)) {
goto clean_encpart;
}
#define cleanup_prockey() {(void) (*eblock.crypto_entry->finish_key)(&eblock);}
/* call the encryption routine */
if (retval =
(*eblock.crypto_entry->encrypt_func)((krb5_pointer) scratch->data,
(krb5_pointer) privmsg.enc_part.data,
scratch->length, &eblock, 0)) {
goto clean_prockey;
}
/* private message is now assembled-- do some cleanup */
cleanup_scratch();
if (retval = (*eblock.crypto_entry->finish_key)(&eblock)) {
cleanup_encpart();
return retval;
}
/* encode private message */
if (retval = encode_krb5_priv(&privmsg, &scratch)) {
cleanup_encpart();
return retval;
}
cleanup_encpart();
*outbuf = *scratch;
free((char *)scratch);
return 0;
clean_prockey:
cleanup_prockey();
clean_encpart:
cleanup_encpart();
clean_scratch:
cleanup_scratch();
return retval;
}
|
