Merge from vendor branch NTPD:
[dragonfly.git] / crypto / heimdal-0.6.3 / appl / test / uu_client.c
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"
35 RCSID("$Id: uu_client.c,v 1.7 2000/12/31 07:41:39 assar Exp $");
36
37 krb5_context context;
38
39 static int
40 proto (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
170 int
171 main(int argc, char **argv)
172 {
173     int port = client_setup(&context, &argc, argv);
174     return client_doit (argv[argc], port, service, proto);
175 }