2 * Copyright (c) 1997 - 2000 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
34 #include "test_locl.h"
35 RCSID("$Id: uu_client.c,v 1.7 2000/12/31 07:41:39 assar Exp $");
40 proto (int sock
, const char *hostname
, const char *service
)
42 struct sockaddr_in remote
, local
;
44 krb5_address remote_addr
, local_addr
;
47 krb5_auth_context auth_context
;
48 krb5_error_code status
;
49 krb5_principal client
;
52 krb5_creds mcred
, cred
;
54 addrlen
= sizeof(local
);
55 if (getsockname (sock
, (struct sockaddr
*)&local
, &addrlen
) < 0
56 || addrlen
!= sizeof(local
))
57 err (1, "getsockname(%s)", hostname
);
59 addrlen
= sizeof(remote
);
60 if (getpeername (sock
, (struct sockaddr
*)&remote
, &addrlen
) < 0
61 || addrlen
!= sizeof(remote
))
62 err (1, "getpeername(%s)", hostname
);
64 status
= krb5_init_context(&context
);
66 errx(1, "krb5_init_context failed: %d", status
);
68 status
= krb5_cc_default (context
, &ccache
);
70 krb5_err(context
, 1, status
, "krb5_cc_default");
72 status
= krb5_auth_con_init (context
, &auth_context
);
74 krb5_err(context
, 1, status
, "krb5_auth_con_init");
76 local_addr
.addr_type
= AF_INET
;
77 local_addr
.address
.length
= sizeof(local
.sin_addr
);
78 local_addr
.address
.data
= &local
.sin_addr
;
80 remote_addr
.addr_type
= AF_INET
;
81 remote_addr
.address
.length
= sizeof(remote
.sin_addr
);
82 remote_addr
.address
.data
= &remote
.sin_addr
;
84 status
= krb5_auth_con_setaddrs (context
,
89 krb5_err(context
, 1, status
, "krb5_auth_con_setaddr");
91 status
= krb5_cc_get_principal(context
, ccache
, &client
);
93 krb5_err(context
, 1, status
, "krb5_cc_get_principal");
94 status
= krb5_make_principal(context
, &mcred
.server
,
95 *krb5_princ_realm(context
, client
),
97 *krb5_princ_realm(context
, client
),
100 krb5_err(context
, 1, status
, "krb5_make_principal");
102 status
= krb5_cc_retrieve_cred(context
, ccache
, 0, &mcred
, &cred
);
104 krb5_err(context
, 1, status
, "krb5_cc_retrieve_cred");
109 status
= krb5_unparse_name(context
, cred
.client
, &client_name
);
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
);
116 krb5_err(context
, 1, status
, "krb5_write_message");
120 status
= krb5_write_message(context
, &sock
, &cred
.ticket
);
122 krb5_err(context
, 1, status
, "krb5_write_message");
124 status
= krb5_auth_con_setuserkey(context
, auth_context
, &cred
.session
);
126 krb5_err(context
, 1, status
, "krb5_auth_con_setuserkey");
128 status
= krb5_recvauth(context
, &auth_context
, &sock
,
129 VERSION
, client
, 0, NULL
, NULL
);
132 krb5_err(context
, 1, status
, "krb5_recvauth");
137 krb5_data_zero (&packet
);
139 status
= krb5_mk_safe (context
,
145 krb5_err(context
, 1, status
, "krb5_mk_safe");
147 status
= krb5_write_message(context
, &sock
, &packet
);
149 krb5_err(context
, 1, status
, "krb5_write_message");
151 data
.data
= "hemligt";
154 krb5_data_free (&packet
);
156 status
= krb5_mk_priv (context
,
162 krb5_err(context
, 1, status
, "krb5_mk_priv");
164 status
= krb5_write_message(context
, &sock
, &packet
);
166 krb5_err(context
, 1, status
, "krb5_write_message");
171 main(int argc
, char **argv
)
173 int port
= client_setup(&context
, &argc
, argv
);
174 return client_doit (argv
[argc
], port
, service
, proto
);