1 /* This file is part of the Project Athena Zephyr Notification System.
2 * It contains source for the ZCheckAuthentication function.
4 * Created by: Robert French
8 * Copyright (c) 1987,1991 by the Massachusetts Institute of Technology.
9 * For copying and distribution information, see the file
14 static char rcsid_ZCheckAuthentication_c[] =
15 "$Zephyr: /mit/zephyr/src/lib/RCS/ZCheckAuthentication.c,v 1.14 89/03/24 14:17:38 jtkohl Exp Locker: raeburn $";
20 /* Check authentication of the notice.
21 If it looks authentic but fails the Kerberos check, return -1.
22 If it looks authentic and passes the Kerberos check, return 1.
23 If it doesn't look authentic, return 0
25 When not using Kerberos, return true if the notice claims to be authentic.
26 Only used by clients; the server uses its own routine.
28 Code_t ZCheckAuthentication(notice, from)
30 struct sockaddr_in *from;
34 ZChecksum_t our_checksum;
37 /* If the value is already known, return it. */
38 if (notice->z_checked_auth != ZAUTH_UNSET)
39 return (notice->z_checked_auth);
44 if ((result = krb_get_cred(SERVER_SERVICE, SERVER_INSTANCE,
45 __Zephyr_realm, &cred)) != 0)
51 our_checksum = des_quad_cksum(notice->z_packet, NULL,
52 notice->z_default_format+
53 strlen(notice->z_default_format)+1-
54 notice->z_packet, 0, cred.session);
56 /* if mismatched checksum, then the packet was corrupted */
57 return ((our_checksum == notice->z_checksum) ? ZAUTH_YES : ZAUTH_FAILED);
60 return (notice->z_auth ? ZAUTH_YES : ZAUTH_NO);