xref: /freebsd/contrib/wpa/src/radius/radius_server.c (revision aa64588d28258aef88cc33b8043112e8856948d0)
1 /*
2  * hostapd / RADIUS authentication server
3  * Copyright (c) 2005-2008, Jouni Malinen <j@w1.fi>
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License version 2 as
7  * published by the Free Software Foundation.
8  *
9  * Alternatively, this software may be distributed under the terms of BSD
10  * license.
11  *
12  * See README and COPYING for more details.
13  */
14 
15 #include "includes.h"
16 #include <net/if.h>
17 
18 #include "common.h"
19 #include "radius.h"
20 #include "eloop.h"
21 #include "defs.h"
22 #include "eap_server/eap.h"
23 #include "radius_server.h"
24 
25 #define RADIUS_SESSION_TIMEOUT 60
26 #define RADIUS_MAX_SESSION 100
27 #define RADIUS_MAX_MSG_LEN 3000
28 
29 static struct eapol_callbacks radius_server_eapol_cb;
30 
31 struct radius_client;
32 struct radius_server_data;
33 
34 struct radius_server_counters {
35 	u32 access_requests;
36 	u32 invalid_requests;
37 	u32 dup_access_requests;
38 	u32 access_accepts;
39 	u32 access_rejects;
40 	u32 access_challenges;
41 	u32 malformed_access_requests;
42 	u32 bad_authenticators;
43 	u32 packets_dropped;
44 	u32 unknown_types;
45 };
46 
47 struct radius_session {
48 	struct radius_session *next;
49 	struct radius_client *client;
50 	struct radius_server_data *server;
51 	unsigned int sess_id;
52 	struct eap_sm *eap;
53 	struct eap_eapol_interface *eap_if;
54 
55 	struct radius_msg *last_msg;
56 	char *last_from_addr;
57 	int last_from_port;
58 	struct sockaddr_storage last_from;
59 	socklen_t last_fromlen;
60 	u8 last_identifier;
61 	struct radius_msg *last_reply;
62 	u8 last_authenticator[16];
63 };
64 
65 struct radius_client {
66 	struct radius_client *next;
67 	struct in_addr addr;
68 	struct in_addr mask;
69 #ifdef CONFIG_IPV6
70 	struct in6_addr addr6;
71 	struct in6_addr mask6;
72 #endif /* CONFIG_IPV6 */
73 	char *shared_secret;
74 	int shared_secret_len;
75 	struct radius_session *sessions;
76 	struct radius_server_counters counters;
77 };
78 
79 struct radius_server_data {
80 	int auth_sock;
81 	struct radius_client *clients;
82 	unsigned int next_sess_id;
83 	void *conf_ctx;
84 	int num_sess;
85 	void *eap_sim_db_priv;
86 	void *ssl_ctx;
87 	u8 *pac_opaque_encr_key;
88 	u8 *eap_fast_a_id;
89 	size_t eap_fast_a_id_len;
90 	char *eap_fast_a_id_info;
91 	int eap_fast_prov;
92 	int pac_key_lifetime;
93 	int pac_key_refresh_time;
94 	int eap_sim_aka_result_ind;
95 	int tnc;
96 	struct wps_context *wps;
97 	int ipv6;
98 	struct os_time start_time;
99 	struct radius_server_counters counters;
100 	int (*get_eap_user)(void *ctx, const u8 *identity, size_t identity_len,
101 			    int phase2, struct eap_user *user);
102 	char *eap_req_id_text;
103 	size_t eap_req_id_text_len;
104 };
105 
106 
107 extern int wpa_debug_level;
108 
109 #define RADIUS_DEBUG(args...) \
110 wpa_printf(MSG_DEBUG, "RADIUS SRV: " args)
111 #define RADIUS_ERROR(args...) \
112 wpa_printf(MSG_ERROR, "RADIUS SRV: " args)
113 #define RADIUS_DUMP(args...) \
114 wpa_hexdump(MSG_MSGDUMP, "RADIUS SRV: " args)
115 #define RADIUS_DUMP_ASCII(args...) \
116 wpa_hexdump_ascii(MSG_MSGDUMP, "RADIUS SRV: " args)
117 
118 
119 static void radius_server_session_timeout(void *eloop_ctx, void *timeout_ctx);
120 
121 
122 
123 static struct radius_client *
124 radius_server_get_client(struct radius_server_data *data, struct in_addr *addr,
125 			 int ipv6)
126 {
127 	struct radius_client *client = data->clients;
128 
129 	while (client) {
130 #ifdef CONFIG_IPV6
131 		if (ipv6) {
132 			struct in6_addr *addr6;
133 			int i;
134 
135 			addr6 = (struct in6_addr *) addr;
136 			for (i = 0; i < 16; i++) {
137 				if ((addr6->s6_addr[i] &
138 				     client->mask6.s6_addr[i]) !=
139 				    (client->addr6.s6_addr[i] &
140 				     client->mask6.s6_addr[i])) {
141 					i = 17;
142 					break;
143 				}
144 			}
145 			if (i == 16) {
146 				break;
147 			}
148 		}
149 #endif /* CONFIG_IPV6 */
150 		if (!ipv6 && (client->addr.s_addr & client->mask.s_addr) ==
151 		    (addr->s_addr & client->mask.s_addr)) {
152 			break;
153 		}
154 
155 		client = client->next;
156 	}
157 
158 	return client;
159 }
160 
161 
162 static struct radius_session *
163 radius_server_get_session(struct radius_client *client, unsigned int sess_id)
164 {
165 	struct radius_session *sess = client->sessions;
166 
167 	while (sess) {
168 		if (sess->sess_id == sess_id) {
169 			break;
170 		}
171 		sess = sess->next;
172 	}
173 
174 	return sess;
175 }
176 
177 
178 static void radius_server_session_free(struct radius_server_data *data,
179 				       struct radius_session *sess)
180 {
181 	eloop_cancel_timeout(radius_server_session_timeout, data, sess);
182 	eap_server_sm_deinit(sess->eap);
183 	if (sess->last_msg) {
184 		radius_msg_free(sess->last_msg);
185 		os_free(sess->last_msg);
186 	}
187 	os_free(sess->last_from_addr);
188 	if (sess->last_reply) {
189 		radius_msg_free(sess->last_reply);
190 		os_free(sess->last_reply);
191 	}
192 	os_free(sess);
193 	data->num_sess--;
194 }
195 
196 
197 static void radius_server_session_remove_timeout(void *eloop_ctx,
198 						 void *timeout_ctx);
199 
200 static void radius_server_session_remove(struct radius_server_data *data,
201 					 struct radius_session *sess)
202 {
203 	struct radius_client *client = sess->client;
204 	struct radius_session *session, *prev;
205 
206 	eloop_cancel_timeout(radius_server_session_remove_timeout, data, sess);
207 
208 	prev = NULL;
209 	session = client->sessions;
210 	while (session) {
211 		if (session == sess) {
212 			if (prev == NULL) {
213 				client->sessions = sess->next;
214 			} else {
215 				prev->next = sess->next;
216 			}
217 			radius_server_session_free(data, sess);
218 			break;
219 		}
220 		prev = session;
221 		session = session->next;
222 	}
223 }
224 
225 
226 static void radius_server_session_remove_timeout(void *eloop_ctx,
227 						 void *timeout_ctx)
228 {
229 	struct radius_server_data *data = eloop_ctx;
230 	struct radius_session *sess = timeout_ctx;
231 	RADIUS_DEBUG("Removing completed session 0x%x", sess->sess_id);
232 	radius_server_session_remove(data, sess);
233 }
234 
235 
236 static void radius_server_session_timeout(void *eloop_ctx, void *timeout_ctx)
237 {
238 	struct radius_server_data *data = eloop_ctx;
239 	struct radius_session *sess = timeout_ctx;
240 
241 	RADIUS_DEBUG("Timing out authentication session 0x%x", sess->sess_id);
242 	radius_server_session_remove(data, sess);
243 }
244 
245 
246 static struct radius_session *
247 radius_server_new_session(struct radius_server_data *data,
248 			  struct radius_client *client)
249 {
250 	struct radius_session *sess;
251 
252 	if (data->num_sess >= RADIUS_MAX_SESSION) {
253 		RADIUS_DEBUG("Maximum number of existing session - no room "
254 			     "for a new session");
255 		return NULL;
256 	}
257 
258 	sess = os_zalloc(sizeof(*sess));
259 	if (sess == NULL)
260 		return NULL;
261 
262 	sess->server = data;
263 	sess->client = client;
264 	sess->sess_id = data->next_sess_id++;
265 	sess->next = client->sessions;
266 	client->sessions = sess;
267 	eloop_register_timeout(RADIUS_SESSION_TIMEOUT, 0,
268 			       radius_server_session_timeout, data, sess);
269 	data->num_sess++;
270 	return sess;
271 }
272 
273 
274 static struct radius_session *
275 radius_server_get_new_session(struct radius_server_data *data,
276 			      struct radius_client *client,
277 			      struct radius_msg *msg)
278 {
279 	u8 *user;
280 	size_t user_len;
281 	int res;
282 	struct radius_session *sess;
283 	struct eap_config eap_conf;
284 
285 	RADIUS_DEBUG("Creating a new session");
286 
287 	user = os_malloc(256);
288 	if (user == NULL) {
289 		return NULL;
290 	}
291 	res = radius_msg_get_attr(msg, RADIUS_ATTR_USER_NAME, user, 256);
292 	if (res < 0 || res > 256) {
293 		RADIUS_DEBUG("Could not get User-Name");
294 		os_free(user);
295 		return NULL;
296 	}
297 	user_len = res;
298 	RADIUS_DUMP_ASCII("User-Name", user, user_len);
299 
300 	res = data->get_eap_user(data->conf_ctx, user, user_len, 0, NULL);
301 	os_free(user);
302 
303 	if (res == 0) {
304 		RADIUS_DEBUG("Matching user entry found");
305 		sess = radius_server_new_session(data, client);
306 		if (sess == NULL) {
307 			RADIUS_DEBUG("Failed to create a new session");
308 			return NULL;
309 		}
310 	} else {
311 		RADIUS_DEBUG("User-Name not found from user database");
312 		return NULL;
313 	}
314 
315 	os_memset(&eap_conf, 0, sizeof(eap_conf));
316 	eap_conf.ssl_ctx = data->ssl_ctx;
317 	eap_conf.eap_sim_db_priv = data->eap_sim_db_priv;
318 	eap_conf.backend_auth = TRUE;
319 	eap_conf.eap_server = 1;
320 	eap_conf.pac_opaque_encr_key = data->pac_opaque_encr_key;
321 	eap_conf.eap_fast_a_id = data->eap_fast_a_id;
322 	eap_conf.eap_fast_a_id_len = data->eap_fast_a_id_len;
323 	eap_conf.eap_fast_a_id_info = data->eap_fast_a_id_info;
324 	eap_conf.eap_fast_prov = data->eap_fast_prov;
325 	eap_conf.pac_key_lifetime = data->pac_key_lifetime;
326 	eap_conf.pac_key_refresh_time = data->pac_key_refresh_time;
327 	eap_conf.eap_sim_aka_result_ind = data->eap_sim_aka_result_ind;
328 	eap_conf.tnc = data->tnc;
329 	eap_conf.wps = data->wps;
330 	sess->eap = eap_server_sm_init(sess, &radius_server_eapol_cb,
331 				       &eap_conf);
332 	if (sess->eap == NULL) {
333 		RADIUS_DEBUG("Failed to initialize EAP state machine for the "
334 			     "new session");
335 		radius_server_session_free(data, sess);
336 		return NULL;
337 	}
338 	sess->eap_if = eap_get_interface(sess->eap);
339 	sess->eap_if->eapRestart = TRUE;
340 	sess->eap_if->portEnabled = TRUE;
341 
342 	RADIUS_DEBUG("New session 0x%x initialized", sess->sess_id);
343 
344 	return sess;
345 }
346 
347 
348 static struct radius_msg *
349 radius_server_encapsulate_eap(struct radius_server_data *data,
350 			      struct radius_client *client,
351 			      struct radius_session *sess,
352 			      struct radius_msg *request)
353 {
354 	struct radius_msg *msg;
355 	int code;
356 	unsigned int sess_id;
357 
358 	if (sess->eap_if->eapFail) {
359 		sess->eap_if->eapFail = FALSE;
360 		code = RADIUS_CODE_ACCESS_REJECT;
361 	} else if (sess->eap_if->eapSuccess) {
362 		sess->eap_if->eapSuccess = FALSE;
363 		code = RADIUS_CODE_ACCESS_ACCEPT;
364 	} else {
365 		sess->eap_if->eapReq = FALSE;
366 		code = RADIUS_CODE_ACCESS_CHALLENGE;
367 	}
368 
369 	msg = radius_msg_new(code, request->hdr->identifier);
370 	if (msg == NULL) {
371 		RADIUS_DEBUG("Failed to allocate reply message");
372 		return NULL;
373 	}
374 
375 	sess_id = htonl(sess->sess_id);
376 	if (code == RADIUS_CODE_ACCESS_CHALLENGE &&
377 	    !radius_msg_add_attr(msg, RADIUS_ATTR_STATE,
378 				 (u8 *) &sess_id, sizeof(sess_id))) {
379 		RADIUS_DEBUG("Failed to add State attribute");
380 	}
381 
382 	if (sess->eap_if->eapReqData &&
383 	    !radius_msg_add_eap(msg, wpabuf_head(sess->eap_if->eapReqData),
384 				wpabuf_len(sess->eap_if->eapReqData))) {
385 		RADIUS_DEBUG("Failed to add EAP-Message attribute");
386 	}
387 
388 	if (code == RADIUS_CODE_ACCESS_ACCEPT && sess->eap_if->eapKeyData) {
389 		int len;
390 		if (sess->eap_if->eapKeyDataLen > 64) {
391 			len = 32;
392 		} else {
393 			len = sess->eap_if->eapKeyDataLen / 2;
394 		}
395 		if (!radius_msg_add_mppe_keys(msg, request->hdr->authenticator,
396 					      (u8 *) client->shared_secret,
397 					      client->shared_secret_len,
398 					      sess->eap_if->eapKeyData + len,
399 					      len, sess->eap_if->eapKeyData,
400 					      len)) {
401 			RADIUS_DEBUG("Failed to add MPPE key attributes");
402 		}
403 	}
404 
405 	if (radius_msg_copy_attr(msg, request, RADIUS_ATTR_PROXY_STATE) < 0) {
406 		RADIUS_DEBUG("Failed to copy Proxy-State attribute(s)");
407 		radius_msg_free(msg);
408 		os_free(msg);
409 		return NULL;
410 	}
411 
412 	if (radius_msg_finish_srv(msg, (u8 *) client->shared_secret,
413 				  client->shared_secret_len,
414 				  request->hdr->authenticator) < 0) {
415 		RADIUS_DEBUG("Failed to add Message-Authenticator attribute");
416 	}
417 
418 	return msg;
419 }
420 
421 
422 static int radius_server_reject(struct radius_server_data *data,
423 				struct radius_client *client,
424 				struct radius_msg *request,
425 				struct sockaddr *from, socklen_t fromlen,
426 				const char *from_addr, int from_port)
427 {
428 	struct radius_msg *msg;
429 	int ret = 0;
430 	struct eap_hdr eapfail;
431 
432 	RADIUS_DEBUG("Reject invalid request from %s:%d",
433 		     from_addr, from_port);
434 
435 	msg = radius_msg_new(RADIUS_CODE_ACCESS_REJECT,
436 			     request->hdr->identifier);
437 	if (msg == NULL) {
438 		return -1;
439 	}
440 
441 	os_memset(&eapfail, 0, sizeof(eapfail));
442 	eapfail.code = EAP_CODE_FAILURE;
443 	eapfail.identifier = 0;
444 	eapfail.length = host_to_be16(sizeof(eapfail));
445 
446 	if (!radius_msg_add_eap(msg, (u8 *) &eapfail, sizeof(eapfail))) {
447 		RADIUS_DEBUG("Failed to add EAP-Message attribute");
448 	}
449 
450 	if (radius_msg_copy_attr(msg, request, RADIUS_ATTR_PROXY_STATE) < 0) {
451 		RADIUS_DEBUG("Failed to copy Proxy-State attribute(s)");
452 		radius_msg_free(msg);
453 		os_free(msg);
454 		return -1;
455 	}
456 
457 	if (radius_msg_finish_srv(msg, (u8 *) client->shared_secret,
458 				  client->shared_secret_len,
459 				  request->hdr->authenticator) < 0) {
460 		RADIUS_DEBUG("Failed to add Message-Authenticator attribute");
461 	}
462 
463 	if (wpa_debug_level <= MSG_MSGDUMP) {
464 		radius_msg_dump(msg);
465 	}
466 
467 	data->counters.access_rejects++;
468 	client->counters.access_rejects++;
469 	if (sendto(data->auth_sock, msg->buf, msg->buf_used, 0,
470 		   (struct sockaddr *) from, sizeof(*from)) < 0) {
471 		perror("sendto[RADIUS SRV]");
472 		ret = -1;
473 	}
474 
475 	radius_msg_free(msg);
476 	os_free(msg);
477 
478 	return ret;
479 }
480 
481 
482 static int radius_server_request(struct radius_server_data *data,
483 				 struct radius_msg *msg,
484 				 struct sockaddr *from, socklen_t fromlen,
485 				 struct radius_client *client,
486 				 const char *from_addr, int from_port,
487 				 struct radius_session *force_sess)
488 {
489 	u8 *eap = NULL;
490 	size_t eap_len;
491 	int res, state_included = 0;
492 	u8 statebuf[4];
493 	unsigned int state;
494 	struct radius_session *sess;
495 	struct radius_msg *reply;
496 
497 	if (force_sess)
498 		sess = force_sess;
499 	else {
500 		res = radius_msg_get_attr(msg, RADIUS_ATTR_STATE, statebuf,
501 					  sizeof(statebuf));
502 		state_included = res >= 0;
503 		if (res == sizeof(statebuf)) {
504 			state = WPA_GET_BE32(statebuf);
505 			sess = radius_server_get_session(client, state);
506 		} else {
507 			sess = NULL;
508 		}
509 	}
510 
511 	if (sess) {
512 		RADIUS_DEBUG("Request for session 0x%x", sess->sess_id);
513 	} else if (state_included) {
514 		RADIUS_DEBUG("State attribute included but no session found");
515 		radius_server_reject(data, client, msg, from, fromlen,
516 				     from_addr, from_port);
517 		return -1;
518 	} else {
519 		sess = radius_server_get_new_session(data, client, msg);
520 		if (sess == NULL) {
521 			RADIUS_DEBUG("Could not create a new session");
522 			radius_server_reject(data, client, msg, from, fromlen,
523 					     from_addr, from_port);
524 			return -1;
525 		}
526 	}
527 
528 	if (sess->last_from_port == from_port &&
529 	    sess->last_identifier == msg->hdr->identifier &&
530 	    os_memcmp(sess->last_authenticator, msg->hdr->authenticator, 16) ==
531 	    0) {
532 		RADIUS_DEBUG("Duplicate message from %s", from_addr);
533 		data->counters.dup_access_requests++;
534 		client->counters.dup_access_requests++;
535 
536 		if (sess->last_reply) {
537 			res = sendto(data->auth_sock, sess->last_reply->buf,
538 				     sess->last_reply->buf_used, 0,
539 				     (struct sockaddr *) from, fromlen);
540 			if (res < 0) {
541 				perror("sendto[RADIUS SRV]");
542 			}
543 			return 0;
544 		}
545 
546 		RADIUS_DEBUG("No previous reply available for duplicate "
547 			     "message");
548 		return -1;
549 	}
550 
551 	eap = radius_msg_get_eap(msg, &eap_len);
552 	if (eap == NULL) {
553 		RADIUS_DEBUG("No EAP-Message in RADIUS packet from %s",
554 			     from_addr);
555 		data->counters.packets_dropped++;
556 		client->counters.packets_dropped++;
557 		return -1;
558 	}
559 
560 	RADIUS_DUMP("Received EAP data", eap, eap_len);
561 
562 	/* FIX: if Code is Request, Success, or Failure, send Access-Reject;
563 	 * RFC3579 Sect. 2.6.2.
564 	 * Include EAP-Response/Nak with no preferred method if
565 	 * code == request.
566 	 * If code is not 1-4, discard the packet silently.
567 	 * Or is this already done by the EAP state machine? */
568 
569 	wpabuf_free(sess->eap_if->eapRespData);
570 	sess->eap_if->eapRespData = wpabuf_alloc_ext_data(eap, eap_len);
571 	if (sess->eap_if->eapRespData == NULL)
572 		os_free(eap);
573 	eap = NULL;
574 	sess->eap_if->eapResp = TRUE;
575 	eap_server_sm_step(sess->eap);
576 
577 	if ((sess->eap_if->eapReq || sess->eap_if->eapSuccess ||
578 	     sess->eap_if->eapFail) && sess->eap_if->eapReqData) {
579 		RADIUS_DUMP("EAP data from the state machine",
580 			    wpabuf_head(sess->eap_if->eapReqData),
581 			    wpabuf_len(sess->eap_if->eapReqData));
582 	} else if (sess->eap_if->eapFail) {
583 		RADIUS_DEBUG("No EAP data from the state machine, but eapFail "
584 			     "set");
585 	} else if (eap_sm_method_pending(sess->eap)) {
586 		if (sess->last_msg) {
587 			radius_msg_free(sess->last_msg);
588 			os_free(sess->last_msg);
589 		}
590 		sess->last_msg = msg;
591 		sess->last_from_port = from_port;
592 		os_free(sess->last_from_addr);
593 		sess->last_from_addr = os_strdup(from_addr);
594 		sess->last_fromlen = fromlen;
595 		os_memcpy(&sess->last_from, from, fromlen);
596 		return -2;
597 	} else {
598 		RADIUS_DEBUG("No EAP data from the state machine - ignore this"
599 			     " Access-Request silently (assuming it was a "
600 			     "duplicate)");
601 		data->counters.packets_dropped++;
602 		client->counters.packets_dropped++;
603 		return -1;
604 	}
605 
606 	reply = radius_server_encapsulate_eap(data, client, sess, msg);
607 
608 	if (reply) {
609 		RADIUS_DEBUG("Reply to %s:%d", from_addr, from_port);
610 		if (wpa_debug_level <= MSG_MSGDUMP) {
611 			radius_msg_dump(reply);
612 		}
613 
614 		switch (reply->hdr->code) {
615 		case RADIUS_CODE_ACCESS_ACCEPT:
616 			data->counters.access_accepts++;
617 			client->counters.access_accepts++;
618 			break;
619 		case RADIUS_CODE_ACCESS_REJECT:
620 			data->counters.access_rejects++;
621 			client->counters.access_rejects++;
622 			break;
623 		case RADIUS_CODE_ACCESS_CHALLENGE:
624 			data->counters.access_challenges++;
625 			client->counters.access_challenges++;
626 			break;
627 		}
628 		res = sendto(data->auth_sock, reply->buf, reply->buf_used, 0,
629 			     (struct sockaddr *) from, fromlen);
630 		if (res < 0) {
631 			perror("sendto[RADIUS SRV]");
632 		}
633 		if (sess->last_reply) {
634 			radius_msg_free(sess->last_reply);
635 			os_free(sess->last_reply);
636 		}
637 		sess->last_reply = reply;
638 		sess->last_from_port = from_port;
639 		sess->last_identifier = msg->hdr->identifier;
640 		os_memcpy(sess->last_authenticator, msg->hdr->authenticator,
641 			  16);
642 	} else {
643 		data->counters.packets_dropped++;
644 		client->counters.packets_dropped++;
645 	}
646 
647 	if (sess->eap_if->eapSuccess || sess->eap_if->eapFail) {
648 		RADIUS_DEBUG("Removing completed session 0x%x after timeout",
649 			     sess->sess_id);
650 		eloop_cancel_timeout(radius_server_session_remove_timeout,
651 				     data, sess);
652 		eloop_register_timeout(10, 0,
653 				       radius_server_session_remove_timeout,
654 				       data, sess);
655 	}
656 
657 	return 0;
658 }
659 
660 
661 static void radius_server_receive_auth(int sock, void *eloop_ctx,
662 				       void *sock_ctx)
663 {
664 	struct radius_server_data *data = eloop_ctx;
665 	u8 *buf = NULL;
666 	struct sockaddr_storage from;
667 	socklen_t fromlen;
668 	int len;
669 	struct radius_client *client = NULL;
670 	struct radius_msg *msg = NULL;
671 	char abuf[50];
672 	int from_port = 0;
673 
674 	buf = os_malloc(RADIUS_MAX_MSG_LEN);
675 	if (buf == NULL) {
676 		goto fail;
677 	}
678 
679 	fromlen = sizeof(from);
680 	len = recvfrom(sock, buf, RADIUS_MAX_MSG_LEN, 0,
681 		       (struct sockaddr *) &from, &fromlen);
682 	if (len < 0) {
683 		perror("recvfrom[radius_server]");
684 		goto fail;
685 	}
686 
687 #ifdef CONFIG_IPV6
688 	if (data->ipv6) {
689 		struct sockaddr_in6 *from6 = (struct sockaddr_in6 *) &from;
690 		if (inet_ntop(AF_INET6, &from6->sin6_addr, abuf, sizeof(abuf))
691 		    == NULL)
692 			abuf[0] = '\0';
693 		from_port = ntohs(from6->sin6_port);
694 		RADIUS_DEBUG("Received %d bytes from %s:%d",
695 			     len, abuf, from_port);
696 
697 		client = radius_server_get_client(data,
698 						  (struct in_addr *)
699 						  &from6->sin6_addr, 1);
700 	}
701 #endif /* CONFIG_IPV6 */
702 
703 	if (!data->ipv6) {
704 		struct sockaddr_in *from4 = (struct sockaddr_in *) &from;
705 		os_strlcpy(abuf, inet_ntoa(from4->sin_addr), sizeof(abuf));
706 		from_port = ntohs(from4->sin_port);
707 		RADIUS_DEBUG("Received %d bytes from %s:%d",
708 			     len, abuf, from_port);
709 
710 		client = radius_server_get_client(data, &from4->sin_addr, 0);
711 	}
712 
713 	RADIUS_DUMP("Received data", buf, len);
714 
715 	if (client == NULL) {
716 		RADIUS_DEBUG("Unknown client %s - packet ignored", abuf);
717 		data->counters.invalid_requests++;
718 		goto fail;
719 	}
720 
721 	msg = radius_msg_parse(buf, len);
722 	if (msg == NULL) {
723 		RADIUS_DEBUG("Parsing incoming RADIUS frame failed");
724 		data->counters.malformed_access_requests++;
725 		client->counters.malformed_access_requests++;
726 		goto fail;
727 	}
728 
729 	os_free(buf);
730 	buf = NULL;
731 
732 	if (wpa_debug_level <= MSG_MSGDUMP) {
733 		radius_msg_dump(msg);
734 	}
735 
736 	if (msg->hdr->code != RADIUS_CODE_ACCESS_REQUEST) {
737 		RADIUS_DEBUG("Unexpected RADIUS code %d", msg->hdr->code);
738 		data->counters.unknown_types++;
739 		client->counters.unknown_types++;
740 		goto fail;
741 	}
742 
743 	data->counters.access_requests++;
744 	client->counters.access_requests++;
745 
746 	if (radius_msg_verify_msg_auth(msg, (u8 *) client->shared_secret,
747 				       client->shared_secret_len, NULL)) {
748 		RADIUS_DEBUG("Invalid Message-Authenticator from %s", abuf);
749 		data->counters.bad_authenticators++;
750 		client->counters.bad_authenticators++;
751 		goto fail;
752 	}
753 
754 	if (radius_server_request(data, msg, (struct sockaddr *) &from,
755 				  fromlen, client, abuf, from_port, NULL) ==
756 	    -2)
757 		return; /* msg was stored with the session */
758 
759 fail:
760 	if (msg) {
761 		radius_msg_free(msg);
762 		os_free(msg);
763 	}
764 	os_free(buf);
765 }
766 
767 
768 static int radius_server_open_socket(int port)
769 {
770 	int s;
771 	struct sockaddr_in addr;
772 
773 	s = socket(PF_INET, SOCK_DGRAM, 0);
774 	if (s < 0) {
775 		perror("socket");
776 		return -1;
777 	}
778 
779 	os_memset(&addr, 0, sizeof(addr));
780 	addr.sin_family = AF_INET;
781 	addr.sin_port = htons(port);
782 	if (bind(s, (struct sockaddr *) &addr, sizeof(addr)) < 0) {
783 		perror("bind");
784 		close(s);
785 		return -1;
786 	}
787 
788 	return s;
789 }
790 
791 
792 #ifdef CONFIG_IPV6
793 static int radius_server_open_socket6(int port)
794 {
795 	int s;
796 	struct sockaddr_in6 addr;
797 
798 	s = socket(PF_INET6, SOCK_DGRAM, 0);
799 	if (s < 0) {
800 		perror("socket[IPv6]");
801 		return -1;
802 	}
803 
804 	os_memset(&addr, 0, sizeof(addr));
805 	addr.sin6_family = AF_INET6;
806 	os_memcpy(&addr.sin6_addr, &in6addr_any, sizeof(in6addr_any));
807 	addr.sin6_port = htons(port);
808 	if (bind(s, (struct sockaddr *) &addr, sizeof(addr)) < 0) {
809 		perror("bind");
810 		close(s);
811 		return -1;
812 	}
813 
814 	return s;
815 }
816 #endif /* CONFIG_IPV6 */
817 
818 
819 static void radius_server_free_sessions(struct radius_server_data *data,
820 					struct radius_session *sessions)
821 {
822 	struct radius_session *session, *prev;
823 
824 	session = sessions;
825 	while (session) {
826 		prev = session;
827 		session = session->next;
828 		radius_server_session_free(data, prev);
829 	}
830 }
831 
832 
833 static void radius_server_free_clients(struct radius_server_data *data,
834 				       struct radius_client *clients)
835 {
836 	struct radius_client *client, *prev;
837 
838 	client = clients;
839 	while (client) {
840 		prev = client;
841 		client = client->next;
842 
843 		radius_server_free_sessions(data, prev->sessions);
844 		os_free(prev->shared_secret);
845 		os_free(prev);
846 	}
847 }
848 
849 
850 static struct radius_client *
851 radius_server_read_clients(const char *client_file, int ipv6)
852 {
853 	FILE *f;
854 	const int buf_size = 1024;
855 	char *buf, *pos;
856 	struct radius_client *clients, *tail, *entry;
857 	int line = 0, mask, failed = 0, i;
858 	struct in_addr addr;
859 #ifdef CONFIG_IPV6
860 	struct in6_addr addr6;
861 #endif /* CONFIG_IPV6 */
862 	unsigned int val;
863 
864 	f = fopen(client_file, "r");
865 	if (f == NULL) {
866 		RADIUS_ERROR("Could not open client file '%s'", client_file);
867 		return NULL;
868 	}
869 
870 	buf = os_malloc(buf_size);
871 	if (buf == NULL) {
872 		fclose(f);
873 		return NULL;
874 	}
875 
876 	clients = tail = NULL;
877 	while (fgets(buf, buf_size, f)) {
878 		/* Configuration file format:
879 		 * 192.168.1.0/24 secret
880 		 * 192.168.1.2 secret
881 		 * fe80::211:22ff:fe33:4455/64 secretipv6
882 		 */
883 		line++;
884 		buf[buf_size - 1] = '\0';
885 		pos = buf;
886 		while (*pos != '\0' && *pos != '\n')
887 			pos++;
888 		if (*pos == '\n')
889 			*pos = '\0';
890 		if (*buf == '\0' || *buf == '#')
891 			continue;
892 
893 		pos = buf;
894 		while ((*pos >= '0' && *pos <= '9') || *pos == '.' ||
895 		       (*pos >= 'a' && *pos <= 'f') || *pos == ':' ||
896 		       (*pos >= 'A' && *pos <= 'F')) {
897 			pos++;
898 		}
899 
900 		if (*pos == '\0') {
901 			failed = 1;
902 			break;
903 		}
904 
905 		if (*pos == '/') {
906 			char *end;
907 			*pos++ = '\0';
908 			mask = strtol(pos, &end, 10);
909 			if ((pos == end) ||
910 			    (mask < 0 || mask > (ipv6 ? 128 : 32))) {
911 				failed = 1;
912 				break;
913 			}
914 			pos = end;
915 		} else {
916 			mask = ipv6 ? 128 : 32;
917 			*pos++ = '\0';
918 		}
919 
920 		if (!ipv6 && inet_aton(buf, &addr) == 0) {
921 			failed = 1;
922 			break;
923 		}
924 #ifdef CONFIG_IPV6
925 		if (ipv6 && inet_pton(AF_INET6, buf, &addr6) <= 0) {
926 			if (inet_pton(AF_INET, buf, &addr) <= 0) {
927 				failed = 1;
928 				break;
929 			}
930 			/* Convert IPv4 address to IPv6 */
931 			if (mask <= 32)
932 				mask += (128 - 32);
933 			os_memset(addr6.s6_addr, 0, 10);
934 			addr6.s6_addr[10] = 0xff;
935 			addr6.s6_addr[11] = 0xff;
936 			os_memcpy(addr6.s6_addr + 12, (char *) &addr.s_addr,
937 				  4);
938 		}
939 #endif /* CONFIG_IPV6 */
940 
941 		while (*pos == ' ' || *pos == '\t') {
942 			pos++;
943 		}
944 
945 		if (*pos == '\0') {
946 			failed = 1;
947 			break;
948 		}
949 
950 		entry = os_zalloc(sizeof(*entry));
951 		if (entry == NULL) {
952 			failed = 1;
953 			break;
954 		}
955 		entry->shared_secret = os_strdup(pos);
956 		if (entry->shared_secret == NULL) {
957 			failed = 1;
958 			os_free(entry);
959 			break;
960 		}
961 		entry->shared_secret_len = os_strlen(entry->shared_secret);
962 		entry->addr.s_addr = addr.s_addr;
963 		if (!ipv6) {
964 			val = 0;
965 			for (i = 0; i < mask; i++)
966 				val |= 1 << (31 - i);
967 			entry->mask.s_addr = htonl(val);
968 		}
969 #ifdef CONFIG_IPV6
970 		if (ipv6) {
971 			int offset = mask / 8;
972 
973 			os_memcpy(entry->addr6.s6_addr, addr6.s6_addr, 16);
974 			os_memset(entry->mask6.s6_addr, 0xff, offset);
975 			val = 0;
976 			for (i = 0; i < (mask % 8); i++)
977 				val |= 1 << (7 - i);
978 			if (offset < 16)
979 				entry->mask6.s6_addr[offset] = val;
980 		}
981 #endif /* CONFIG_IPV6 */
982 
983 		if (tail == NULL) {
984 			clients = tail = entry;
985 		} else {
986 			tail->next = entry;
987 			tail = entry;
988 		}
989 	}
990 
991 	if (failed) {
992 		RADIUS_ERROR("Invalid line %d in '%s'", line, client_file);
993 		radius_server_free_clients(NULL, clients);
994 		clients = NULL;
995 	}
996 
997 	os_free(buf);
998 	fclose(f);
999 
1000 	return clients;
1001 }
1002 
1003 
1004 struct radius_server_data *
1005 radius_server_init(struct radius_server_conf *conf)
1006 {
1007 	struct radius_server_data *data;
1008 
1009 #ifndef CONFIG_IPV6
1010 	if (conf->ipv6) {
1011 		fprintf(stderr, "RADIUS server compiled without IPv6 "
1012 			"support.\n");
1013 		return NULL;
1014 	}
1015 #endif /* CONFIG_IPV6 */
1016 
1017 	data = os_zalloc(sizeof(*data));
1018 	if (data == NULL)
1019 		return NULL;
1020 
1021 	os_get_time(&data->start_time);
1022 	data->conf_ctx = conf->conf_ctx;
1023 	data->eap_sim_db_priv = conf->eap_sim_db_priv;
1024 	data->ssl_ctx = conf->ssl_ctx;
1025 	data->ipv6 = conf->ipv6;
1026 	if (conf->pac_opaque_encr_key) {
1027 		data->pac_opaque_encr_key = os_malloc(16);
1028 		os_memcpy(data->pac_opaque_encr_key, conf->pac_opaque_encr_key,
1029 			  16);
1030 	}
1031 	if (conf->eap_fast_a_id) {
1032 		data->eap_fast_a_id = os_malloc(conf->eap_fast_a_id_len);
1033 		if (data->eap_fast_a_id) {
1034 			os_memcpy(data->eap_fast_a_id, conf->eap_fast_a_id,
1035 				  conf->eap_fast_a_id_len);
1036 			data->eap_fast_a_id_len = conf->eap_fast_a_id_len;
1037 		}
1038 	}
1039 	if (conf->eap_fast_a_id_info)
1040 		data->eap_fast_a_id_info = os_strdup(conf->eap_fast_a_id_info);
1041 	data->eap_fast_prov = conf->eap_fast_prov;
1042 	data->pac_key_lifetime = conf->pac_key_lifetime;
1043 	data->pac_key_refresh_time = conf->pac_key_refresh_time;
1044 	data->get_eap_user = conf->get_eap_user;
1045 	data->eap_sim_aka_result_ind = conf->eap_sim_aka_result_ind;
1046 	data->tnc = conf->tnc;
1047 	data->wps = conf->wps;
1048 	if (conf->eap_req_id_text) {
1049 		data->eap_req_id_text = os_malloc(conf->eap_req_id_text_len);
1050 		if (data->eap_req_id_text) {
1051 			os_memcpy(data->eap_req_id_text, conf->eap_req_id_text,
1052 				  conf->eap_req_id_text_len);
1053 			data->eap_req_id_text_len = conf->eap_req_id_text_len;
1054 		}
1055 	}
1056 
1057 	data->clients = radius_server_read_clients(conf->client_file,
1058 						   conf->ipv6);
1059 	if (data->clients == NULL) {
1060 		printf("No RADIUS clients configured.\n");
1061 		radius_server_deinit(data);
1062 		return NULL;
1063 	}
1064 
1065 #ifdef CONFIG_IPV6
1066 	if (conf->ipv6)
1067 		data->auth_sock = radius_server_open_socket6(conf->auth_port);
1068 	else
1069 #endif /* CONFIG_IPV6 */
1070 	data->auth_sock = radius_server_open_socket(conf->auth_port);
1071 	if (data->auth_sock < 0) {
1072 		printf("Failed to open UDP socket for RADIUS authentication "
1073 		       "server\n");
1074 		radius_server_deinit(data);
1075 		return NULL;
1076 	}
1077 	if (eloop_register_read_sock(data->auth_sock,
1078 				     radius_server_receive_auth,
1079 				     data, NULL)) {
1080 		radius_server_deinit(data);
1081 		return NULL;
1082 	}
1083 
1084 	return data;
1085 }
1086 
1087 
1088 void radius_server_deinit(struct radius_server_data *data)
1089 {
1090 	if (data == NULL)
1091 		return;
1092 
1093 	if (data->auth_sock >= 0) {
1094 		eloop_unregister_read_sock(data->auth_sock);
1095 		close(data->auth_sock);
1096 	}
1097 
1098 	radius_server_free_clients(data, data->clients);
1099 
1100 	os_free(data->pac_opaque_encr_key);
1101 	os_free(data->eap_fast_a_id);
1102 	os_free(data->eap_fast_a_id_info);
1103 	os_free(data->eap_req_id_text);
1104 	os_free(data);
1105 }
1106 
1107 
1108 int radius_server_get_mib(struct radius_server_data *data, char *buf,
1109 			  size_t buflen)
1110 {
1111 	int ret, uptime;
1112 	unsigned int idx;
1113 	char *end, *pos;
1114 	struct os_time now;
1115 	struct radius_client *cli;
1116 
1117 	/* RFC 2619 - RADIUS Authentication Server MIB */
1118 
1119 	if (data == NULL || buflen == 0)
1120 		return 0;
1121 
1122 	pos = buf;
1123 	end = buf + buflen;
1124 
1125 	os_get_time(&now);
1126 	uptime = (now.sec - data->start_time.sec) * 100 +
1127 		((now.usec - data->start_time.usec) / 10000) % 100;
1128 	ret = os_snprintf(pos, end - pos,
1129 			  "RADIUS-AUTH-SERVER-MIB\n"
1130 			  "radiusAuthServIdent=hostapd\n"
1131 			  "radiusAuthServUpTime=%d\n"
1132 			  "radiusAuthServResetTime=0\n"
1133 			  "radiusAuthServConfigReset=4\n",
1134 			  uptime);
1135 	if (ret < 0 || ret >= end - pos) {
1136 		*pos = '\0';
1137 		return pos - buf;
1138 	}
1139 	pos += ret;
1140 
1141 	ret = os_snprintf(pos, end - pos,
1142 			  "radiusAuthServTotalAccessRequests=%u\n"
1143 			  "radiusAuthServTotalInvalidRequests=%u\n"
1144 			  "radiusAuthServTotalDupAccessRequests=%u\n"
1145 			  "radiusAuthServTotalAccessAccepts=%u\n"
1146 			  "radiusAuthServTotalAccessRejects=%u\n"
1147 			  "radiusAuthServTotalAccessChallenges=%u\n"
1148 			  "radiusAuthServTotalMalformedAccessRequests=%u\n"
1149 			  "radiusAuthServTotalBadAuthenticators=%u\n"
1150 			  "radiusAuthServTotalPacketsDropped=%u\n"
1151 			  "radiusAuthServTotalUnknownTypes=%u\n",
1152 			  data->counters.access_requests,
1153 			  data->counters.invalid_requests,
1154 			  data->counters.dup_access_requests,
1155 			  data->counters.access_accepts,
1156 			  data->counters.access_rejects,
1157 			  data->counters.access_challenges,
1158 			  data->counters.malformed_access_requests,
1159 			  data->counters.bad_authenticators,
1160 			  data->counters.packets_dropped,
1161 			  data->counters.unknown_types);
1162 	if (ret < 0 || ret >= end - pos) {
1163 		*pos = '\0';
1164 		return pos - buf;
1165 	}
1166 	pos += ret;
1167 
1168 	for (cli = data->clients, idx = 0; cli; cli = cli->next, idx++) {
1169 		char abuf[50], mbuf[50];
1170 #ifdef CONFIG_IPV6
1171 		if (data->ipv6) {
1172 			if (inet_ntop(AF_INET6, &cli->addr6, abuf,
1173 				      sizeof(abuf)) == NULL)
1174 				abuf[0] = '\0';
1175 			if (inet_ntop(AF_INET6, &cli->mask6, abuf,
1176 				      sizeof(mbuf)) == NULL)
1177 				mbuf[0] = '\0';
1178 		}
1179 #endif /* CONFIG_IPV6 */
1180 		if (!data->ipv6) {
1181 			os_strlcpy(abuf, inet_ntoa(cli->addr), sizeof(abuf));
1182 			os_strlcpy(mbuf, inet_ntoa(cli->mask), sizeof(mbuf));
1183 		}
1184 
1185 		ret = os_snprintf(pos, end - pos,
1186 				  "radiusAuthClientIndex=%u\n"
1187 				  "radiusAuthClientAddress=%s/%s\n"
1188 				  "radiusAuthServAccessRequests=%u\n"
1189 				  "radiusAuthServDupAccessRequests=%u\n"
1190 				  "radiusAuthServAccessAccepts=%u\n"
1191 				  "radiusAuthServAccessRejects=%u\n"
1192 				  "radiusAuthServAccessChallenges=%u\n"
1193 				  "radiusAuthServMalformedAccessRequests=%u\n"
1194 				  "radiusAuthServBadAuthenticators=%u\n"
1195 				  "radiusAuthServPacketsDropped=%u\n"
1196 				  "radiusAuthServUnknownTypes=%u\n",
1197 				  idx,
1198 				  abuf, mbuf,
1199 				  cli->counters.access_requests,
1200 				  cli->counters.dup_access_requests,
1201 				  cli->counters.access_accepts,
1202 				  cli->counters.access_rejects,
1203 				  cli->counters.access_challenges,
1204 				  cli->counters.malformed_access_requests,
1205 				  cli->counters.bad_authenticators,
1206 				  cli->counters.packets_dropped,
1207 				  cli->counters.unknown_types);
1208 		if (ret < 0 || ret >= end - pos) {
1209 			*pos = '\0';
1210 			return pos - buf;
1211 		}
1212 		pos += ret;
1213 	}
1214 
1215 	return pos - buf;
1216 }
1217 
1218 
1219 static int radius_server_get_eap_user(void *ctx, const u8 *identity,
1220 				      size_t identity_len, int phase2,
1221 				      struct eap_user *user)
1222 {
1223 	struct radius_session *sess = ctx;
1224 	struct radius_server_data *data = sess->server;
1225 
1226 	return data->get_eap_user(data->conf_ctx, identity, identity_len,
1227 				  phase2, user);
1228 }
1229 
1230 
1231 static const char * radius_server_get_eap_req_id_text(void *ctx, size_t *len)
1232 {
1233 	struct radius_session *sess = ctx;
1234 	struct radius_server_data *data = sess->server;
1235 	*len = data->eap_req_id_text_len;
1236 	return data->eap_req_id_text;
1237 }
1238 
1239 
1240 static struct eapol_callbacks radius_server_eapol_cb =
1241 {
1242 	.get_eap_user = radius_server_get_eap_user,
1243 	.get_eap_req_id_text = radius_server_get_eap_req_id_text,
1244 };
1245 
1246 
1247 void radius_server_eap_pending_cb(struct radius_server_data *data, void *ctx)
1248 {
1249 	struct radius_client *cli;
1250 	struct radius_session *s, *sess = NULL;
1251 	struct radius_msg *msg;
1252 
1253 	if (data == NULL)
1254 		return;
1255 
1256 	for (cli = data->clients; cli; cli = cli->next) {
1257 		for (s = cli->sessions; s; s = s->next) {
1258 			if (s->eap == ctx && s->last_msg) {
1259 				sess = s;
1260 				break;
1261 			}
1262 			if (sess)
1263 				break;
1264 		}
1265 		if (sess)
1266 			break;
1267 	}
1268 
1269 	if (sess == NULL) {
1270 		RADIUS_DEBUG("No session matched callback ctx");
1271 		return;
1272 	}
1273 
1274 	msg = sess->last_msg;
1275 	sess->last_msg = NULL;
1276 	eap_sm_pending_cb(sess->eap);
1277 	if (radius_server_request(data, msg,
1278 				  (struct sockaddr *) &sess->last_from,
1279 				  sess->last_fromlen, cli,
1280 				  sess->last_from_addr,
1281 				  sess->last_from_port, sess) == -2)
1282 		return; /* msg was stored with the session */
1283 
1284 	radius_msg_free(msg);
1285 	os_free(msg);
1286 }
1287