uu_client.c revision 72445 
1/*
2 * Copyright (c) 1997 - 2000 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 "test_locl.h"
35RCSID("$Id: uu_client.c,v 1.7 2000/12/31 07:41:39 assar Exp $");
36
37krb5_context context;
38
39static int
40proto (int sock, const char *hostname, const char *service)
41{
42    struct sockaddr_in remote, local;
43    socklen_t addrlen;
44    krb5_address remote_addr, local_addr;
45    krb5_context context;
46    krb5_ccache ccache;
47    krb5_auth_context auth_context;
48    krb5_error_code status;
49    krb5_principal client;
50    krb5_data data;
51    krb5_data packet;
52    krb5_creds mcred, cred;
53
54    addrlen = sizeof(local);
55    if (getsockname (sock, (struct sockaddr *)&local, &addrlen) < 0
56	|| addrlen != sizeof(local))
57	err (1, "getsockname(%s)", hostname);
58
59    addrlen = sizeof(remote);
60    if (getpeername (sock, (struct sockaddr *)&remote, &addrlen) < 0
61	|| addrlen != sizeof(remote))
62	err (1, "getpeername(%s)", hostname);
63
64    status = krb5_init_context(&context);
65    if (status)
66	errx(1, "krb5_init_context failed: %d", status);
67
68    status = krb5_cc_default (context, &ccache);
69    if (status)
70	krb5_err(context, 1, status, "krb5_cc_default");
71
72    status = krb5_auth_con_init (context, &auth_context);
73    if (status)
74	krb5_err(context, 1, status, "krb5_auth_con_init");
75
76    local_addr.addr_type = AF_INET;
77    local_addr.address.length = sizeof(local.sin_addr);
78    local_addr.address.data   = &local.sin_addr;
79
80    remote_addr.addr_type = AF_INET;
81    remote_addr.address.length = sizeof(remote.sin_addr);
82    remote_addr.address.data   = &remote.sin_addr;
83
84    status = krb5_auth_con_setaddrs (context,
85				     auth_context,
86				     &local_addr,
87				     &remote_addr);
88    if (status)
89	krb5_err(context, 1, status, "krb5_auth_con_setaddr");
90
91    status = krb5_cc_get_principal(context, ccache, &client);
92    if(status)
93	krb5_err(context, 1, status, "krb5_cc_get_principal");
94    status = krb5_make_principal(context, &mcred.server,
95				 *krb5_princ_realm(context, client),
96				 "krbtgt",
97				 *krb5_princ_realm(context, client),
98				 NULL);
99    if(status)
100	krb5_err(context, 1, status, "krb5_make_principal");
101
102    status = krb5_cc_retrieve_cred(context, ccache, 0, &mcred, &cred);
103    if(status)
104	krb5_err(context, 1, status, "krb5_cc_retrieve_cred");
105
106    {
107	char *client_name;
108	krb5_data data;
109	status = krb5_unparse_name(context, cred.client, &client_name);
110	if(status)
111	    krb5_err(context, 1, status, "krb5_unparse_name");
112	data.data = client_name;
113	data.length = strlen(client_name) + 1;
114	status = krb5_write_message(context, &sock, &data);
115	if(status)
116	    krb5_err(context, 1, status, "krb5_write_message");
117	free(client_name);
118    }
119
120    status = krb5_write_message(context, &sock, &cred.ticket);
121    if(status)
122	krb5_err(context, 1, status, "krb5_write_message");
123
124    status = krb5_auth_con_setuserkey(context, auth_context, &cred.session);
125    if(status)
126	krb5_err(context, 1, status, "krb5_auth_con_setuserkey");
127
128    status = krb5_recvauth(context, &auth_context, &sock,
129			   VERSION, client, 0, NULL, NULL);
130
131    if (status)
132	krb5_err(context, 1, status, "krb5_recvauth");
133
134    data.data   = "hej";
135    data.length = 3;
136
137    krb5_data_zero (&packet);
138
139    status = krb5_mk_safe (context,
140			   auth_context,
141			   &data,
142			   &packet,
143			   NULL);
144    if (status)
145	krb5_err(context, 1, status, "krb5_mk_safe");
146
147    status = krb5_write_message(context, &sock, &packet);
148    if(status)
149	krb5_err(context, 1, status, "krb5_write_message");
150
151    data.data   = "hemligt";
152    data.length = 7;
153
154    krb5_data_free (&packet);
155
156    status = krb5_mk_priv (context,
157			   auth_context,
158			   &data,
159			   &packet,
160			   NULL);
161    if (status)
162	krb5_err(context, 1, status, "krb5_mk_priv");
163
164    status = krb5_write_message(context, &sock, &packet);
165    if(status)
166	krb5_err(context, 1, status, "krb5_write_message");
167    return 0;
168}
169
170int
171main(int argc, char **argv)
172{
173    int port = client_setup(&context, &argc, argv);
174    return client_doit (argv[argc], port, service, proto);
175}
176