xref: /src/usr.bin/passwd/krb5_passwd.c

/*	$NetBSD: krb5_passwd.c,v 1.5 1997/10/19 12:29:44 lukem Exp $	*/

/*-
 * Copyright (c) 1990 The Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#ifndef lint
#if 0
static char sccsid[] = "from: @(#)krb_passwd.c	5.4 (Berkeley) 3/1/91";
#else
__RCSID("$NetBSD: krb5_passwd.c,v 1.5 1997/10/19 12:29:44 lukem Exp $");
#endif
#endif /* not lint */

#ifdef KERBEROS5

#include <sys/types.h>
#include <sys/socket.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <netinet/in.h>
#include <err.h>
#include <errno.h>
#include <netdb.h>
#include <pwd.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <krb5/adm_defs.h>
#include <krb5/krb5.h>
#include <krb5/kdb.h>
#include <krb5/kdb_dbm.h>
#include <krb5/ext-proto.h>
#include <krb5/los-proto.h>
#include <krb5/asn1.h>
#include <krb5/config.h>
#include <krb5/base-defs.h>
#include <krb5/asn.1/encode.h>

#include <krb5/widen.h>

#include <krb5/adm_err.h>
#include <krb5/errors.h>
#include <krb5/kdb5_err.h>
#include <krb5/krb5_err.h>

static krb5_error_code get_first_ticket __P((krb5_ccache, krb5_principal));
static krb5_error_code print_and_choose_password __P((char *, krb5_data *));
static krb5_error_code adm5_init_link __P((krb5_data *, int *));

struct sockaddr_in local_sin, remote_sin;

krb5_creds my_creds;

extern char *krb5_default_pwd_prompt1;

/*
 * Try no preauthentication first; then try the encrypted timestamp
 */
int preauth_search_list[] = {
    0,
    KRB5_PADATA_ENC_TIMESTAMP,
    -1
};

int
krb_passwd()
{
    static void finish();
    krb5_ccache cache = NULL;
    char cache_name[255];
    krb5_flags cc_flags;
    krb5_address local_addr, foreign_addr;
    struct passwd *pw;
    krb5_principal client, server;
    char default_name[256];
    char *client_name;		/* Single string representation of client id */
    krb5_data requested_realm;
    char *local_realm;
    char input_string[768];
    krb5_error_code retval;	/* return code */
    int local_socket;
    int c, count;
    krb5_error *err_ret;
    krb5_ap_rep_enc_part *rep_ret;
    kadmin_requests rd_priv_resp;
    krb5_checksum send_cksum;
    int cksum_alloc = 0;
    krb5_data msg_data, inbuf;
    krb5_int32 seqno;
    char *new_password;
    int new_pwsize;
    krb5_data *decodable_pwd_string;
    int i, j;
    static struct rlimit rl = { 0, 0 };

#ifdef KRB_NONETWORK
    extern int networked();
    int krb_secure;
    struct stat statbuf;
#endif

#ifdef KRB_NONETWORK	/* Allow or Disallow Remote Clients to Modify Passwords */
    /*
     *	If a Client Modifies a Password using kpasswd on this host
     *	from a remote host or network terminal, the Password selected
     *	is transmitted across the network in Cleartext.
     *
     *	The systems administrator can disallow "remote" kpasswd usage by
     *	creating the file "/etc/krb.secure"
     */
    krb_secure = 0;
    /*
     *	First check to see if the file /etc/krb.secure exists.
     *	If it does then krb_secure to 1.
     */

    if (stat("/etc/krb.secure", &statbuf) == 0) krb_secure = 1;

    /*
     *	Check to see if this process is tied to a physical terminal.
     *	Network() verifies the terminal device is not a pseudo tty
     */
    if (networked() && krb_secure) {
	warnx("Sorry but you cannot %s from a pseudo tty terminal", argv[0]);
	retval = 1;
	goto finish;
    }
#endif

    /* (3 * 255) + 1 (/) + 1 (@) + 1 (NULL) */
    if ((client_name = (char *) calloc (1, (3 * 256))) == NULL) {
	warnx("No Memory for Client_name");
	retval = 1;
	goto finish;
    }

    if ((requested_realm.data = (char *) calloc (1, 256)) == NULL) {
	warnx("No Memory for realm_name");
	retval = 1;
	free(client_name);
	goto finish;
    }

    (void)signal(SIGHUP, SIG_IGN);
    (void)signal(SIGINT, SIG_IGN);
    (void)signal(SIGTSTP, SIG_IGN);

    if (setrlimit(RLIMIT_CORE, &rl) < 0) {
	warn("setrlimit");
	return(1);
    }

    krb5_init_ets();
    memset((char *) default_name, 0, sizeof(default_name));

    /* Identify Default Credentials Cache */
    if ((retval = krb5_cc_default(&cache))) {
	warnx("Error while getting default ccache.");
	goto finish;
    }

    /*
     * 	Attempt to Modify Credentials Cache
     *		retval == 0 ==> ccache Exists - Use It
     * 		retval == ENOENT ==> No Entries, but ccache Exists
     *		retval != 0 ==> Assume ccache does NOT Exist
     */
    cc_flags = 0;
    if ((retval = krb5_cc_set_flags(cache, cc_flags))) {
	/* Search passwd file for client */
	pw = getpwuid((int) getuid());
	if (pw) {
	    (void)strncpy(default_name, pw->pw_name, sizeof(default_name) - 1);
	}
	else {
	    warnx("Unable to Identify Customer from Password File");
	    retval = 1;
	    goto finish;
	}

	/* Use this to get default_realm and format client_name */
	if ((retval = krb5_parse_name(default_name, &client))) {
	    warnx("Unable to Parse Client Name");
	    goto finish;
	}

	if ((retval = krb5_unparse_name(client, &client_name))) {
	    warnx("Unable to Parse Client Name");
	    goto finish;
	}

	requested_realm.length = client->realm.length;
	memcpy((char *) requested_realm.data,
	       (char *) client->realm.data,
	       requested_realm.length);
    }
    else {
	/* Read Client from Cache */
	if ((retval = krb5_cc_get_principal(cache, (krb5_principal *) &client))) {
	    warnx("Unable to Read Customer Credentials File");
	    goto finish;
	}

	if ((retval = krb5_unparse_name(client, &client_name))) {
	    warnx("Unable to Parse Client Name");
	    goto finish;
	}

	requested_realm.length = client->realm.length;
	memcpy((char *) requested_realm.data,
	       (char *) client->realm.data,
	       requested_realm.length);

	(void) krb5_cc_close(cache);
    }

    /* Create credential cache for changepw */
    (void)snprintf(cache_name, sizeof cache_name, "FILE:/tmp/tkt_cpw_%d",
	getpid());

    if ((retval = krb5_cc_resolve(cache_name, &cache))) {
	warnx("Unable to Resolve Cache: %s", cache_name);
    }

    if ((retval = krb5_cc_initialize(cache, client))) {
        warnx("Error initializing cache: %s", cache_name);
        goto finish;
    }

    /*
     *	Verify User by Obtaining Initial Credentials prior to Initial Link
     */
    if ((retval = get_first_ticket(cache, client))) {
	goto finish;
    }

    /* Initiate Link to Server */
    if ((retval = adm5_init_link(&requested_realm, &local_socket))) {
	goto finish;
    }

#define SIZEOF_INADDR sizeof(struct in_addr)

    /* V4 kpasswd Protocol Hack */
{
    int msg_length = 0;

    retval = krb5_net_write(local_socket, (char *) &msg_length + 2, 2);
    if (retval < 0) {
        warnx("krb5_net_write failure");
        goto finish;
    }
}

    local_addr.addrtype = ADDRTYPE_INET;
    local_addr.length = SIZEOF_INADDR ;
    local_addr.contents = (krb5_octet *)&local_sin.sin_addr;

    foreign_addr.addrtype = ADDRTYPE_INET;
    foreign_addr.length = SIZEOF_INADDR ;
    foreign_addr.contents = (krb5_octet *)&remote_sin.sin_addr;

    /* compute checksum, using CRC-32 */
    if (!(send_cksum.contents = (krb5_octet *)
	malloc(krb5_checksum_size(CKSUMTYPE_CRC32)))) {
        warnx("Insufficient Memory while Allocating Checksum");
        goto finish;
    }
    cksum_alloc++;
    /* choose some random stuff to compute checksum from */
    if (retval = krb5_calculate_checksum(CKSUMTYPE_CRC32,
	                                 ADM_CPW_VERSION,
					 strlen(ADM_CPW_VERSION),
					 0,
					 0, /* if length is 0, crc-32 doesn't
                                               use the seed */
					 &send_cksum)) {
        warnx("Error while Computing Checksum: %s", error_message(retval));
        goto finish;
    }

    /* call Kerberos library routine to obtain an authenticator,
       pass it over the socket to the server, and obtain mutual
       authentication. */

   if ((retval = krb5_sendauth((krb5_pointer) &local_socket,
			ADM_CPW_VERSION,
			my_creds.client,
			my_creds.server,
			AP_OPTS_MUTUAL_REQUIRED,
			&send_cksum,
			0,
			cache,
			&seqno,
			0,           /* don't need a subsession key */
			&err_ret,
			&rep_ret))) {
	warnx("Error while performing sendauth: %s", error_message(retval));
        goto finish;
    }

    /* Get credentials : to use for safe and private messages */
    if (retval = krb5_get_credentials(0, cache, &my_creds)){
	warnx("Error Obtaining Credentials: %s", error_message(retval));
	goto finish;
    }

    /* Read back what the server has to say... */
    if (retval = krb5_read_message(&local_socket, &inbuf)){
	warnx("Read Message Error: %s", error_message(retval));
        goto finish;
    }
    if ((inbuf.length != 2) || (inbuf.data[0] != KADMIND) ||
	(inbuf.data[1] != KADMSAG)){
	warnx("Invalid ack from admin server.");
	goto finish;
    }

    inbuf.data[0] = KPASSWD;
    inbuf.data[1] = CHGOPER;
    inbuf.length = 2;

    if ((retval = krb5_mk_priv(&inbuf,
			ETYPE_DES_CBC_CRC,
			&my_creds.keyblock,
			&local_addr,
			&foreign_addr,
			seqno,
			KRB5_PRIV_DOSEQUENCE|KRB5_PRIV_NOTIME,
			0,
			0,
			&msg_data))) {
        warnx("Error during First Message Encoding: %s", error_message(retval));
        goto finish;
    }
    free(inbuf.data);

    /* write private message to server */
    if (krb5_write_message(&local_socket, &msg_data)){
        warnx("Write Error During First Message Transmission");
	retval = 1;
        goto finish;
    }
    free(msg_data.data);

	(void)signal(SIGHUP, finish);
	(void)signal(SIGINT, finish);

#ifdef MACH_PASS /* Machine-generated Passwords */
    /* Ok Now let's get the private message */
    if (retval = krb5_read_message(&local_socket, &inbuf)){
        warnx("Read Error During First Reply: %s", error_message(retval));
	retval = 1;
        goto finish;
    }

    if ((retval = krb5_rd_priv(&inbuf,
			&my_creds.keyblock,
    			&foreign_addr,
			&local_addr,
			rep_ret->seq_number,
			KRB5_PRIV_DOSEQUENCE|KRB5_PRIV_NOTIME,
			0,
			0,
			&msg_data))) {
        warnx("Error during First Read Decoding: %s", error_message(retval));
        goto finish;
    }
    free(inbuf.data);
#endif

    if ((new_password = (char *) calloc (1, ADM_MAX_PW_LENGTH+1)) == NULL) {
	warnx("Unable to Allocate Space for New Password");
	goto finish;
    }

#ifdef MACH_PASS /* Machine-generated passwords */
	/* Offer Client Password Choices */
    if ((retval = print_and_choose_password(new_password,
			 &msg_data))) {
	(void) memset((char *) new_password, 0, ADM_MAX_PW_LENGTH+1);
	free(new_password);
        goto finish;
    }
#else
    new_pwsize = ADM_MAX_PW_LENGTH+1;
    if ((retval = krb5_read_password("New Kerberos password: ",
				     "Retype new Kerberos password: ",
				     new_password,
				     &new_pwsize))) {
	fprintf(stderr, "\nError while reading new password for '%s'\n",
                                client_name);
	(void) memset((char *) new_password, 0, ADM_MAX_PW_LENGTH+1);
	free(new_password);
        goto finish;
    }
#endif

    inbuf.data = new_password;
    inbuf.length = strlen(new_password);

    if ((retval = krb5_mk_priv(&inbuf,
			ETYPE_DES_CBC_CRC,
			&my_creds.keyblock,
			&local_addr,
			&foreign_addr,
			seqno,
			KRB5_PRIV_DOSEQUENCE|KRB5_PRIV_NOTIME,
			0,
			0,
			&msg_data))) {
        warnx("Error during Second Message Encoding: %s",
	    error_message(retval));
        goto finish;
    }
    memset(inbuf.data,0,inbuf.length);
    free(inbuf.data);

    /* write private message to server */
    if (krb5_write_message(&local_socket, &msg_data)){
        warnx("Write Error During Second Message Transmission");
	retval = 1;
        goto finish;
    }
    free(msg_data.data);

    /* Ok Now let's get the private message */
    if (retval = krb5_read_message(&local_socket, &inbuf)){
        warnx("Read Error During Second Reply: %s", error_message(retval));
	retval = 1;
        goto finish;
    }

    if ((retval = krb5_rd_priv(&inbuf,
			&my_creds.keyblock,
    			&foreign_addr,
			&local_addr,
			rep_ret->seq_number,
			KRB5_PRIV_DOSEQUENCE|KRB5_PRIV_NOTIME,
			0,
			0,
			&msg_data))) {
        warnx("Error during Second Read Decoding :%s", error_message(retval));
        goto finish;
    }

    rd_priv_resp.appl_code = msg_data.data[0];
    rd_priv_resp.oper_code = msg_data.data[1];
    rd_priv_resp.retn_code = msg_data.data[2];
    if (msg_data.length > 3 && msg_data.data[3]) {
	rd_priv_resp.message = malloc(msg_data.length - 2);
	if (rd_priv_resp.message) {
	    memcpy(rd_priv_resp.message, msg_data.data + 3,
		   msg_data.length - 3);
	    rd_priv_resp.message[msg_data.length - 3] = 0;
	}
    } else
	rd_priv_resp.message = NULL;


    free(inbuf.data);
    free(msg_data.data);
    if (rd_priv_resp.appl_code == KPASSWD) {
	if (rd_priv_resp.retn_code == KPASSBAD) {
	    if (rd_priv_resp.message)
		warnx("%s", rd_priv_resp.message);
	    else
		warnx("Server returned KPASSBAD.");
	} else if (rd_priv_resp.retn_code != KPASSGOOD)
	    warnx("Server returned unknown kerberos code.");
    } else
	warnx("Server returned bad application code %d",
	    rd_priv_resp.appl_code);

    if (rd_priv_resp.message)
	free(rd_priv_resp.message);

 finish:
    (void) krb5_cc_destroy(cache);

    free(client_name);
    free(requested_realm.data);
    if (cksum_alloc) free(send_cksum.contents);
    if (retval)
	errx(1, "Protocol Failure - Password NOT changed");

    exit(0);
}



krb5_data cpwname = {
	sizeof(CPWNAME)-1,
	CPWNAME
};

static krb5_error_code
get_first_ticket(cache, client)
    krb5_ccache cache;
    krb5_principal client;
{
    char prompt[255];			/* for the password prompt */
    char verify_prompt[255];		/* Verification Prompt if Desired */
    char pword[ADM_MAX_PW_LENGTH+1];	/* storage for the password */
    int  pword_length = sizeof(pword);
    char *old_password;
    int  old_pwsize;
    int	 i;

    krb5_address **my_addresses;

    char *client_name;
    char local_realm[255];
    krb5_error_code retval;

    if ((retval = krb5_unparse_name(client, &client_name))) {
	warnx("Unable to Unparse Client Name");
	return(1);
    }

    (void) printf("Changing Kerberos password for %s\n", client_name);

    if ((retval = krb5_os_localaddr(&my_addresses))) {
	warnx("Unable to Get Customers Address");
	return(1);
    }

    memset((char *) &my_creds, 0, sizeof(my_creds));

    my_creds.client = client;

    if ((retval = krb5_build_principal_ext(&my_creds.server,
                                        client->realm.length,
					client->realm.data,
                                        cpwname.length,		/* 6 */
					cpwname.data,		/* "kadmin" */
                                        client->realm.length,
					   /* instance is local realm */
					client->realm.data,
                                        0))) {
        warnx("Error %s while building server name");
        return(1);
    }


    if ((old_password = (char *) calloc (1, 255)) == NULL) {
	warnx("No Memory for Retrieving old password");
	return(1);
    }

    old_pwsize = 255;
    if ((retval = krb5_read_password("Old kerberos password: ",
	                             0,
                                     old_password,
                                     &old_pwsize))) {
	fprintf(stderr, "\nError while reading password for '%s'\n",
                client_name);
	return(1);
    }

    /*	Build Request for Initial Credentials */
    for (i=0; preauth_search_list[i] >= 0; i++) {
	retval = krb5_get_in_tkt_with_password(
					0,	/* options */
					my_addresses,
					/* do random preauth */
                                        preauth_search_list[i],
					ETYPE_DES_CBC_CRC,   /* etype */
					KEYTYPE_DES,
					old_password,
					cache,
					&my_creds,
				        0);
	if (retval != KRB5KDC_PREAUTH_FAILED &&
	    retval != KRB5KRB_ERR_GENERIC)
	    break;
    }

    if (retval) {
	warnx("Unable to Get Initial Credentials : %s", error_message(retval));
    }

    /* Do NOT Forget to zap password  */
    memset((char *) old_password, 0, old_pwsize);
    free(old_password);
    memset((char *) pword, 0, sizeof(pword));
    return(retval);
}

#ifdef MACH_PASS /* Machine-generated Passwords */
static krb5_error_code
print_and_choose_password(new_password, decodable_pwd_string)
    char * new_password;
    krb5_data *decodable_pwd_string;
{
    krb5_error_code retval;
    krb5_pwd_data *pwd_data;
    passwd_phrase_element **next_passwd_phrase_element;
    char prompt[255];
    char *verify_prompt = 0;
    int i, j, k;
    int legit_pswd = 0;	/* Assume No Legitimate Password */
    char *password_list[ADM_MAX_PW_CHOICES];
    char verification_passwd[ADM_MAX_PW_LENGTH+1];
    char phrase_in[ADM_MAX_PHRASE_LENGTH];
    int new_passwd_length;
    char *ptr;
    int verify = 0;	/* Do Not Request Password Selection Verification */
    int ok = 0;

#define free_local_password_list() \
{  for ( k = 0; k < i && k < ADM_MAX_PW_CHOICES; k++) { \
      (void) memset(password_list[k], 0, ADM_MAX_PW_LENGTH); \
      free(password_list[k]); } \
}

     /* Decode Password and Phrase Information Obtained from krb5_rd_priv */
     if ((retval = decode_krb5_pwd_data(decodable_pwd_string , &pwd_data))) {
	warnx("Unable to Decode Passwords and Phrases\n%s",
"	 Notify your System Administrator or the Kerberos Administrator");
	return(1);
   }

   next_passwd_phrase_element = pwd_data->element;
   /* Display List in 5 Password/Phrase Increments up to MAX Iterations */
   memset((char *) phrase_in, 0, ADM_MAX_PHRASE_LENGTH);
   for ( j = 0; j <= ADM_MAX_PW_ITERATIONS; j++) {
	if (j == ADM_MAX_PW_ITERATIONS) {
	    warnx("Sorry - You Have Exceeded the List of Choices (%d)\n%s%s%s",
		ADM_MAX_PW_ITERATIONS * ADM_MAX_PW_CHOICES,
		"\tAllowed for Password Modification.\n",
		"\tYou Must Repeat this Operation in order\n",
		"\tto Successfully Change your Password.");
	    break;
	}

	display_print:
	printf("Choose a password from the following list:\n");

	printf("\nPassword                        Remembrance Aid\n");

	/* Print Passwords and Assistance Phrases List */
	for ( i = 0; i < ADM_MAX_PW_CHOICES; i++){
	    if ((password_list[i] = (char *) calloc (1,
			ADM_MAX_PW_LENGTH + 1)) == NULL) {
		warnx("Unable to Allocate Password List.");
		return(1);
	    }

	    memcpy(password_list[i],
		(*next_passwd_phrase_element)->passwd->data,
		(*next_passwd_phrase_element)->passwd->length);
	    printf("%s	", password_list[i]);

	    memcpy((char *) phrase_in,
		(*next_passwd_phrase_element)->phrase->data,
		(*next_passwd_phrase_element)->phrase->length);
	    for ( k = 0;
		  k < 50 && k < (*next_passwd_phrase_element)->phrase->length;
		  k++) {
		printf("%c", phrase_in[k]);
	    }
	    for ( k = k;
		  k < 70 && k < (*next_passwd_phrase_element)->phrase->length;
		  k++) {
		if (phrase_in[k] == ' ') {
		    printf("\n		");
		    k++;
		    break;
		} else {
		    printf("%c", phrase_in[k]);
		}
	    }
	    for ( k = k;
		  k < (*next_passwd_phrase_element)->phrase->length;
		  k++) {
		printf("%c", phrase_in[k]);
	    }
	    printf("\n");
	    memset((char *) phrase_in, 0, ADM_MAX_PHRASE_LENGTH);
	    next_passwd_phrase_element++;
	}

	(void)snprintf(prompt, sizeof prompt,
		"\nEnter Password Selection or a <CR> to get new list: ");

	new_passwd_length = ADM_MAX_PW_LENGTH+1;
	/* Read New Password from Terminal (Do Not Print on Screen) */
	if ((retval = krb5_read_password(&prompt[0], 0,
	                                 new_password, &new_passwd_length))) {
	    warnx("Error Reading Password Input or Input Aborted");
	    free_local_password_list();
	    break;;
	}

	/* Check for <CR> ==> Provide a New List */
	if (new_passwd_length == 0) continue;

	/* Check that Selection is from List - Server also does this */
	legit_pswd = 0;
	for (i = 0; i < ADM_MAX_PW_CHOICES && !legit_pswd; i++)
	    if ((retval = memcmp(new_password,
				 password_list[i], 8)) == 0) {
		legit_pswd++;
	    }
	    free_local_password_list();

	    if (!(legit_pswd)) {
	 	printf("\07\07Password must be from the specified list ");
        	printf("- Try Again\n");
	    }

	    if (legit_pswd) break;	/* Exit Loop */
	}		/* ADM_MAX_PW_CHOICES Loop */

   if (!(legit_pswd)) return (1);

   return(0);		/* SUCCESS */
}
#endif

static krb5_error_code
adm5_init_link(realm_of_server, local_socket)
krb5_data *realm_of_server;
int * local_socket;
{
    struct servent *service_process;	       /* service we will talk to */
    struct hostent *local_host;		       /* us */
    struct hostent *remote_host;	       /* host we will talk to */
    struct sockaddr *sockaddr_list;

    char **hostlist;

    int host_count;
    int namelen;
    int i, count;

    krb5_error_code retval;

    /* clear out the structure first */
    (void) memset((char *)&remote_sin, 0, sizeof(remote_sin));

    if ((service_process = getservbyname(CPW_SNAME, "tcp")) == NULL) {
	warnx("Unable to find Service (%s) Check services file", CPW_SNAME);
	return(1);
    }

    		/* Copy the Port Number */
    remote_sin.sin_port = service_process->s_port;

    hostlist = 0;

		/* Identify all Hosts Associated with this Realm */
    if ((retval = krb5_get_krbhst (realm_of_server, &hostlist))) {
        warnx("Unable to Determine Server Name");
        return(1);
    }

    for (i=0; hostlist[i]; i++);

    count = i;

    if (count == 0) {
        host_count = 0;
        warnx("No hosts found");
        return(1);
    }

    for (i=0; hostlist[i]; i++) {
        remote_host = gethostbyname(hostlist[i]);
        if (remote_host != 0) {

		/* set up the address of the foreign socket for connect() */
	    remote_sin.sin_family = remote_host->h_addrtype;
	    (void) memcpy((char *) &remote_sin.sin_addr,
			(char *) remote_host->h_addr,
			sizeof(remote_host->h_addr));
	    break;	/* Only Need one */
	}
    }

    free ((char *)hostlist);

    /* open a TCP socket */
    *local_socket = socket(PF_INET, SOCK_STREAM, 0);
    if (*local_socket < 0) {
	warnx("Cannot Open Socket");
	return(1);
    }
    /* connect to the server */
    if (connect(*local_socket, (struct sockaddr *)&remote_sin, sizeof(remote_sin)) < 0) {
	warnx("Cannot Connect to Socket");
	close(*local_socket);
	return(1);
    }

    /* find out who I am, now that we are connected and therefore bound */
    namelen = sizeof(local_sin);
    if (getsockname(*local_socket,
		(struct sockaddr *) &local_sin, &namelen) < 0) {
	warnx("Cannot Perform getsockname");
	close(*local_socket);
	return(1);
    }
	return(0);
}

static void
finish()
{
	exit(1);
}

#ifdef KRB_NONETWORK
#include <utmp.h>

#ifndef MAXHOSTNAME
#define MAXHOSTNAME 64
#endif

int utfile;		/* Global utfile file descriptor for BSD version
			   of setutent, getutline, and endutent */

#if !defined(SYSV) && !defined(UMIPS)	/* Setutent, Endutent, and getutline
					   routines for non System V Unix
						 systems */
#include <fcntl.h>

void setutent()
{
  utfile = open("/etc/utmp",O_RDONLY);
}

struct utmp * getutline(utmpent)
struct utmp *utmpent;
{
 static struct utmp tmputmpent;
 int found = 0;
 while ( read(utfile,&tmputmpent,sizeof(struct utmp)) > 0 ){
	if ( strcmp(tmputmpent.ut_line,utmpent->ut_line) == 0){
#ifdef NO_UT_HOST
		if ( ( 1) &&
#else
		if ( (strcmp(tmputmpent.ut_host,"") == 0) &&
#endif
	     	   (strcmp(tmputmpent.ut_name,"") == 0)) continue;
		found = 1;
		break;
	}
 }
 if (found)
	return(&tmputmpent);
 return((struct utmp *) 0);
}

void endutent()
{
  close(utfile);
}
#endif /* not SYSV */


int network_connected()
{
struct utmp utmpent;
struct utmp retutent, *tmpptr;
char *display_indx;
char currenthost[MAXHOSTNAME];
char *username,*tmpname;


/* Macro for pseudo_tty */
#define pseudo_tty(ut) \
        ((strncmp((ut).ut_line, "tty", 3) == 0 && ((ut).ut_line[3] == 'p' \
                                                || (ut).ut_line[3] == 'q' \
                                                || (ut).ut_line[3] == 'r' \
                                                || (ut).ut_line[3] == 's'))\
				|| (strncmp((ut).ut_line, "pty", 3) == 0))

    /* Check to see if getlogin returns proper name */
    if ( (tmpname = (char *) getlogin()) == (char *) 0)
	return(1);
    username = strdup(tmpname);
    if (username == (char *) 0)
	return(1);

    /* Obtain tty device for controlling tty of current process.*/
    strncpy(utmpent.ut_line,ttyname(0) + strlen("/dev/"),
	    sizeof(utmpent.ut_line));

    /* See if this device is currently listed in /etc/utmp under
       calling user */
#ifdef SYSV
    utmpent.ut_type = USER_PROCESS;
#define ut_name ut_user
#endif
    setutent();
    while ( (tmpptr = (struct utmp *) getutline(&utmpent))
            != ( struct utmp *) 0) {

	/* If logged out name and host will be empty */
	if ((strcmp(tmpptr->ut_name,"") == 0) &&
#ifdef NO_UT_HOST
	    ( 1)) continue;
#else
	    (strcmp(tmpptr->ut_host,"") == 0)) continue;
#endif
	else break;
    }
    if (  tmpptr   == (struct utmp *) 0) {
	endutent();
	return(1);
    }
    memmove((char *)tmpptr, (char *)&retutent, sizeof(struct utmp));
    endutent();
#ifdef DEBUG
#ifdef NO_UT_HOST
    printf("User %s on line %s :\n",
		retutent.ut_name,retutent.ut_line);
#else
    printf("User %s on line %s connected from host :%s:\n",
		retutent.ut_name,retutent.ut_line,retutent.ut_host);
#endif
#endif
    if  (strcmp(retutent.ut_name,username) != 0) {
	 return(1);
    }


    /* If this is not a pseudo tty then everything is OK */
    if (! pseudo_tty(retutent)) return(0);

    /* OK now the work begins there is an entry in utmp and
       the device is a pseudo tty. */

    /* Check if : is in hostname if so this is xwindow display */

    if (gethostname(currenthost,sizeof(currenthost))) return(1);
#ifdef NO_UT_HOST
    display_indx = (char *) 0;
#else
    display_indx = (char *) strchr(retutent.ut_host,':');
#endif
    if ( display_indx != (char *) 0) {
        /*
           We have X window application here. The host field should have
	   the form => local_system_name:0.0 or :0.0
           if the window is being displayed on the local system.
         */
#ifdef NO_UT_HOST
	return(1);
#else
        if (strncmp(currenthost,retutent.ut_host,
                (display_indx - retutent.ut_host)) != 0) return(1);
        else return(0);
#endif
    }

    /* Host field is empty or is not X window entry. At this point
       we can't trust that the pseudo tty is not connected to a
       networked process so let's return 1.
     */
    return(1);
}

int networked()
{
  return(network_connected());
}
#endif

int
krb_check()
{
return(1):	/* XXX! */
}

#endif /* KERBEROS5 */