www.pudn.com > socks5.zip > ruserpass.c

/* 
 * Copyright (c) 1985 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. 
 */ 
 
#include "ftp_var.h" 
 
#ifdef HAVE_SYS_TYPES_H 
#include  
#endif 
 
#ifdef HAVE_SYS_STAT_H 
#include  
#endif 
 
#ifdef HAVE_UNISTD_H 
#include  
#endif 
 
#include  
#include  
#include  
#include  
 
#ifndef MAXHOSTNAMELEN 
#define MAXHOSTNAMELEN 64 
#endif 
 
char	*renvlook(), *getpass(), *getlogin(); 
struct	utmp *getutmp(); 
static	FILE *cfile; 
 
#define	DEFAULT	1 
#define	LOGIN	2 
#define	PASSWD	3 
#define	ACCOUNT 4 
#define MACDEF  5 
#define	ID	10 
#define	MACH	11 
 
static char tokval[100]; 
 
static struct toktab { 
	char *tokstr; 
	int tval; 
} toktab[]= { 
    { "default",	DEFAULT }, 
    { "login",  	LOGIN   }, 
    { "password",	PASSWD  }, 
    { "passwd",	        PASSWD  },  
    { "account",	ACCOUNT }, 
    { "machine",	MACH    },  
    { "macdef",    	MACDEF  }, 
    { NULL,      	0       } 
}; 
 
 
static int token() { 
	char *cp; 
	int c; 
	struct toktab *t; 
 
	if (feof(cfile)) 
		return (0); 
	while ((c = getc(cfile)) != EOF && 
	    (c == '\n' || c == '\t' || c == ' ' || c == ',')) 
		continue; 
	if (c == EOF) 
		return (0); 
	cp = tokval; 
	if (c == '"') { 
		while ((c = getc(cfile)) != EOF && c != '"') { 
			if (c == '\\') 
				c = getc(cfile); 
			*cp++ = c; 
		} 
	} else { 
		*cp++ = c; 
		while ((c = getc(cfile)) != EOF 
		    && c != '\n' && c != '\t' && c != ' ' && c != ',') { 
			if (c == '\\') 
				c = getc(cfile); 
			*cp++ = c; 
		} 
	} 
	*cp = 0; 
	if (tokval[0] == 0) 
		return (0); 
	for (t = toktab; t->tokstr; t++) 
		if (!strcmp(t->tokstr, tokval)) 
			return (t->tval); 
	return (ID); 
} 
 
int ruserpass(char *host, char **aname, char **apass, char **aacct) { 
	char *hdir, buf[BUFSIZ], *tmp; 
	char myname[MAXHOSTNAMELEN], *mydomain; 
	int t, i, c, usedefault = 0; 
	struct stat stb; 
 
	hdir = getenv("HOME"); 
	if (hdir == NULL) 
		hdir = "."; 
	(void) sprintf(buf, "%s/.netrc", hdir); 
	cfile = fopen(buf, "r"); 
	if (cfile == NULL) { 
		if (errno != ENOENT) 
			perror(buf); 
		return(0); 
	} 
	if (gethostname(myname, sizeof(myname)) < 0) 
		myname[0] = '\0'; 
	if ((mydomain = index(myname, '.')) == NULL) 
		mydomain = ""; 
next: 
	while ((t = token())) switch(t) { 
 
	case DEFAULT: 
		usedefault = 1; 
		/* FALL THROUGH */ 
 
	case MACH: 
		if (!usedefault) { 
			if (token() != ID) 
				continue; 
			/* 
			 * Allow match either for user's input host name 
			 * or official hostname.  Also allow match of  
			 * incompletely-specified host in local domain. 
			 */ 
			if (strcasecmp(host, tokval) == 0) 
				goto match; 
			if (strcasecmp(hostname, tokval) == 0) 
				goto match; 
			if ((tmp = index(hostname, '.')) != NULL && 
			    strcasecmp(tmp, mydomain) == 0 && 
			    strncasecmp(hostname, tokval, tmp-hostname) == 0 && 
			    tokval[tmp - hostname] == '\0') 
				goto match; 
			if ((tmp = index(host, '.')) != NULL && 
			    strcasecmp(tmp, mydomain) == 0 && 
			    strncasecmp(host, tokval, tmp - host) == 0 && 
			    tokval[tmp - host] == '\0') 
				goto match; 
			continue; 
		} 
	match: 
		while ((t = token()) && t != MACH && t != DEFAULT) switch(t) { 
 
		case LOGIN: 
			if (token()) 
				if (*aname == 0) {  
					*aname = malloc((unsigned) strlen(tokval) + 1); 
					(void) strcpy(*aname, tokval); 
				} else { 
					if (strcmp(*aname, tokval)) 
						goto next; 
				} 
			break; 
		case PASSWD: 
			if (strcmp(*aname, "anonymous") && 
			    fstat(fileno(cfile), &stb) >= 0 && 
			    (stb.st_mode & 077) != 0) { 
	fprintf(stderr, "Error - .netrc file not correct mode.\n"); 
	fprintf(stderr, "Remove password or correct mode.\n"); 
				goto bad; 
			} 
			if (token() && *apass == 0) { 
				*apass = malloc((unsigned) strlen(tokval) + 1); 
				(void) strcpy(*apass, tokval); 
			} 
			break; 
		case ACCOUNT: 
			if (fstat(fileno(cfile), &stb) >= 0 
			    && (stb.st_mode & 077) != 0) { 
	fprintf(stderr, "Error - .netrc file not correct mode.\n"); 
	fprintf(stderr, "Remove account or correct mode.\n"); 
				goto bad; 
			} 
			if (token() && *aacct == 0) { 
				*aacct = malloc((unsigned) strlen(tokval) + 1); 
				(void) strcpy(*aacct, tokval); 
			} 
			break; 
		case MACDEF: 
			if (proxy) { 
				(void) fclose(cfile); 
				return(0); 
			} 
			while ((c = getc(cfile)) != EOF && (c == ' ' || c == '\t')); 
			if (c == EOF || c == '\n') { 
				printf("Missing macdef name argument.\n"); 
				goto bad; 
			} 
			if (macnum == 16) { 
				printf("Limit of 16 macros have already been defined\n"); 
				goto bad; 
			} 
			tmp = macros[macnum].mac_name; 
			*tmp++ = c; 
			for (i=0; i < 8 && (c=getc(cfile)) != EOF && 
			    !isspace(c); ++i) { 
				*tmp++ = c; 
			} 
			if (c == EOF) { 
				printf("Macro definition missing null line terminator.\n"); 
				goto bad; 
			} 
			*tmp = '\0'; 
			if (c != '\n') { 
				while ((c=getc(cfile)) != EOF && c != '\n'); 
			} 
			if (c == EOF) { 
				printf("Macro definition missing null line terminator.\n"); 
				goto bad; 
			} 
			if (macnum == 0) { 
				macros[macnum].mac_start = macbuf; 
			} 
			else { 
				macros[macnum].mac_start = macros[macnum-1].mac_end + 1; 
			} 
			tmp = macros[macnum].mac_start; 
			while (tmp != macbuf + 4096) { 
				if ((c=getc(cfile)) == EOF) { 
				printf("Macro definition missing null line terminator.\n"); 
					goto bad; 
				} 
				*tmp = c; 
				if (*tmp == '\n') { 
					if (*(tmp-1) == '\0') { 
					   macros[macnum++].mac_end = tmp - 1; 
					   break; 
					} 
					*tmp = '\0'; 
				} 
				tmp++; 
			} 
			if (tmp == macbuf + 4096) { 
				printf("4K macro buffer exceeded\n"); 
				goto bad; 
			} 
			break; 
		default: 
	fprintf(stderr, "Unknown .netrc keyword %s\n", tokval); 
			break; 
		} 
		goto done; 
	} 
done: 
	(void) fclose(cfile); 
	return(0); 
bad: 
	(void) fclose(cfile); 
	return(-1); 
}