[openssh.git] / ssh-keyscan.c

/*
 * Copyright 1995, 1996 by David Mazieres <dm@lcs.mit.edu>.
 *
 * Modification and redistribution in source and binary forms is
 * permitted provided that due credit is given to the author and the
 * OpenBSD project by leaving this copyright notice intact.
 */

#include "includes.h"
RCSID("$OpenBSD: ssh-keyscan.c,v 1.30 2001/10/08 19:05:05 markus Exp $");

#if defined(HAVE_SYS_QUEUE_H) && !defined(HAVE_BOGUS_SYS_QUEUE_H)
#include <sys/queue.h>
#else
#include "openbsd-compat/fake-queue.h"
#endif
#include <errno.h>

#include <openssl/bn.h>

#include <setjmp.h>
#include "xmalloc.h"
#include "ssh.h"
#include "ssh1.h"
#include "key.h"
#include "kex.h"
#include "compat.h"
#include "myproposal.h"
#include "packet.h"
#include "dispatch.h"
#include "buffer.h"
#include "bufaux.h"
#include "log.h"
#include "atomicio.h"
#include "misc.h"

/* Flag indicating whether IPv4 or IPv6.  This can be set on the command line.
   Default value is AF_UNSPEC means both IPv4 and IPv6. */
int IPv4or6 = AF_UNSPEC;

int ssh_port = SSH_DEFAULT_PORT;

#define KT_RSA1	1
#define KT_DSA	2
#define KT_RSA	4

int get_keytypes = KT_RSA1;	/* Get only RSA1 keys by default */

#define MAXMAXFD 256

/* The number of seconds after which to give up on a TCP connection */
int timeout = 5;

int maxfd;
#define MAXCON (maxfd - 10)

#ifdef HAVE___PROGNAME
extern char *__progname;
#else
char *__progname;
#endif
fd_set *read_wait;
size_t read_wait_size;
int ncon;
int nonfatal_fatal = 0;
jmp_buf kexjmp;
Key *kexjmp_key;

/*
 * Keep a connection structure for each file descriptor.  The state
 * associated with file descriptor n is held in fdcon[n].
 */
typedef struct Connection {
	u_char c_status;	/* State of connection on this file desc. */
#define CS_UNUSED 0		/* File descriptor unused */
#define CS_CON 1		/* Waiting to connect/read greeting */
#define CS_SIZE 2		/* Waiting to read initial packet size */
#define CS_KEYS 3		/* Waiting to read public key packet */
	int c_fd;		/* Quick lookup: c->c_fd == c - fdcon */
	int c_plen;		/* Packet length field for ssh packet */
	int c_len;		/* Total bytes which must be read. */
	int c_off;		/* Length of data read so far. */
	int c_keytype;		/* Only one of KT_RSA1, KT_DSA, or KT_RSA */
	char *c_namebase;	/* Address to free for c_name and c_namelist */
	char *c_name;		/* Hostname of connection for errors */
	char *c_namelist;	/* Pointer to other possible addresses */
	char *c_output_name;	/* Hostname of connection for output */
	char *c_data;		/* Data read from this fd */
	Kex *c_kex;		/* The key-exchange struct for ssh2 */
	struct timeval c_tv;	/* Time at which connection gets aborted */
	TAILQ_ENTRY(Connection) c_link;	/* List of connections in timeout order. */
} con;

TAILQ_HEAD(conlist, Connection) tq;	/* Timeout Queue */
con *fdcon;

/*
 *  This is just a wrapper around fgets() to make it usable.
 */

/* Stress-test.  Increase this later. */
#define LINEBUF_SIZE 16

typedef struct {
	char *buf;
	u_int size;
	int lineno;
	const char *filename;
	FILE *stream;
	void (*errfun) (const char *,...);
} Linebuf;

static Linebuf *
Linebuf_alloc(const char *filename, void (*errfun) (const char *,...))
{
	Linebuf *lb;

	if (!(lb = malloc(sizeof(*lb)))) {
		if (errfun)
			(*errfun) ("linebuf (%s): malloc failed\n", lb->filename);
		return (NULL);
	}
	if (filename) {
		lb->filename = filename;
		if (!(lb->stream = fopen(filename, "r"))) {
			xfree(lb);
			if (errfun)
				(*errfun) ("%s: %s\n", filename, strerror(errno));
			return (NULL);
		}
	} else {
		lb->filename = "(stdin)";
		lb->stream = stdin;
	}

	if (!(lb->buf = malloc(lb->size = LINEBUF_SIZE))) {
		if (errfun)
			(*errfun) ("linebuf (%s): malloc failed\n", lb->filename);
		xfree(lb);
		return (NULL);
	}
	lb->errfun = errfun;
	lb->lineno = 0;
	return (lb);
}

static void
Linebuf_free(Linebuf * lb)
{
	fclose(lb->stream);
	xfree(lb->buf);
	xfree(lb);
}

#if 0
static void
Linebuf_restart(Linebuf * lb)
{
	clearerr(lb->stream);
	rewind(lb->stream);
	lb->lineno = 0;
}

static int
Linebuf_lineno(Linebuf * lb)
{
	return (lb->lineno);
}
#endif

static char *
Linebuf_getline(Linebuf * lb)
{
	int n = 0;

	lb->lineno++;
	for (;;) {
		/* Read a line */
		if (!fgets(&lb->buf[n], lb->size - n, lb->stream)) {
			if (ferror(lb->stream) && lb->errfun)
				(*lb->errfun) ("%s: %s\n", lb->filename,
				    strerror(errno));
			return (NULL);
		}
		n = strlen(lb->buf);

		/* Return it or an error if it fits */
		if (n > 0 && lb->buf[n - 1] == '\n') {
			lb->buf[n - 1] = '\0';
			return (lb->buf);
		}
		if (n != lb->size - 1) {
			if (lb->errfun)
				(*lb->errfun) ("%s: skipping incomplete last line\n",
				    lb->filename);
			return (NULL);
		}
		/* Double the buffer if we need more space */
		if (!(lb->buf = realloc(lb->buf, (lb->size *= 2)))) {
			if (lb->errfun)
				(*lb->errfun) ("linebuf (%s): realloc failed\n",
				    lb->filename);
			return (NULL);
		}
	}
}

static int
fdlim_get(int hard)
{
#if defined(HAVE_GETRLIMIT) && defined(RLIMIT_NOFILE)
	struct rlimit rlfd;

	if (getrlimit(RLIMIT_NOFILE, &rlfd) < 0)
		return (-1);
	if ((hard ? rlfd.rlim_max : rlfd.rlim_cur) == RLIM_INFINITY)
		return 10000;
	else
		return hard ? rlfd.rlim_max : rlfd.rlim_cur;
#elif defined (HAVE_SYSCONF)
	return sysconf (_SC_OPEN_MAX);
#else
	return 10000;
#endif
}

static int
fdlim_set(int lim)
{
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
	struct rlimit rlfd;
#endif
	if (lim <= 0)
		return (-1);
#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
	if (getrlimit(RLIMIT_NOFILE, &rlfd) < 0)
		return (-1);
	rlfd.rlim_cur = lim;
	if (setrlimit(RLIMIT_NOFILE, &rlfd) < 0)
		return (-1);
#elif defined (HAVE_SETDTABLESIZE)
	setdtablesize(lim);
#endif
	return (0);
}

/*
 * This is an strsep function that returns a null field for adjacent
 * separators.  This is the same as the 4.4BSD strsep, but different from the
 * one in the GNU libc.
 */
static char *
xstrsep(char **str, const char *delim)
{
	char *s, *e;

	if (!**str)
		return (NULL);

	s = *str;
	e = s + strcspn(s, delim);

	if (*e != '\0')
		*e++ = '\0';
	*str = e;

	return (s);
}

/*
 * Get the next non-null token (like GNU strsep).  Strsep() will return a
 * null token for two adjacent separators, so we may have to loop.
 */
static char *
strnnsep(char **stringp, char *delim)
{
	char *tok;

	do {
		tok = xstrsep(stringp, delim);
	} while (tok && *tok == '\0');
	return (tok);
}

static Key *
keygrab_ssh1(con *c)
{
	static Key *rsa;
	static Buffer msg;

	if (rsa == NULL) {
		buffer_init(&msg);
		rsa = key_new(KEY_RSA1);
	}
	buffer_append(&msg, c->c_data, c->c_plen);
	buffer_consume(&msg, 8 - (c->c_plen & 7));	/* padding */
	if (buffer_get_char(&msg) != (int) SSH_SMSG_PUBLIC_KEY) {
		error("%s: invalid packet type", c->c_name);
		buffer_clear(&msg);
		return NULL;
	}
	buffer_consume(&msg, 8);		/* cookie */

	/* server key */
	(void) buffer_get_int(&msg);
	buffer_get_bignum(&msg, rsa->rsa->e);
	buffer_get_bignum(&msg, rsa->rsa->n);

	/* host key */
	(void) buffer_get_int(&msg);
	buffer_get_bignum(&msg, rsa->rsa->e);
	buffer_get_bignum(&msg, rsa->rsa->n);

	buffer_clear(&msg);

	return (rsa);
}

static int
hostjump(Key *hostkey)
{
	kexjmp_key = hostkey;
	longjmp(kexjmp, 1);
}

static int
ssh2_capable(int remote_major, int remote_minor)
{
	switch (remote_major) {
	case 1:
		if (remote_minor == 99)
			return 1;
		break;
	case 2:
		return 1;
	default:
		break;
	}
	return 0;
}

static Key *
keygrab_ssh2(con *c)
{
	int j;

	packet_set_connection(c->c_fd, c->c_fd);
	enable_compat20();
	myproposal[PROPOSAL_SERVER_HOST_KEY_ALGS] = c->c_keytype == KT_DSA?
	    "ssh-dss": "ssh-rsa";
	c->c_kex = kex_setup(myproposal);
	c->c_kex->verify_host_key = hostjump;

	if (!(j = setjmp(kexjmp))) {
		nonfatal_fatal = 1;
		dispatch_run(DISPATCH_BLOCK, &c->c_kex->done, c->c_kex);
		fprintf(stderr, "Impossible! dispatch_run() returned!\n");
		exit(1);
	}
	nonfatal_fatal = 0;
	xfree(c->c_kex);
	c->c_kex = NULL;
	packet_close();

	return j < 0? NULL : kexjmp_key;
}

static void
keyprint(con *c, Key *key)
{
	if (!key)
		return;

	fprintf(stdout, "%s ", c->c_output_name ? c->c_output_name : c->c_name);
	key_write(key, stdout);
	fputs("\n", stdout);
}

static int
tcpconnect(char *host)
{
	struct addrinfo hints, *ai, *aitop;
	char strport[NI_MAXSERV];
	int gaierr, s = -1;

	snprintf(strport, sizeof strport, "%d", ssh_port);
	memset(&hints, 0, sizeof(hints));
	hints.ai_family = IPv4or6;
	hints.ai_socktype = SOCK_STREAM;
	if ((gaierr = getaddrinfo(host, strport, &hints, &aitop)) != 0)
		fatal("getaddrinfo %s: %s", host, gai_strerror(gaierr));
	for (ai = aitop; ai; ai = ai->ai_next) {
		s = socket(ai->ai_family, SOCK_STREAM, 0);
		if (s < 0) {
			error("socket: %s", strerror(errno));
			continue;
		}
		if (fcntl(s, F_SETFL, O_NONBLOCK) < 0)
			fatal("F_SETFL: %s", strerror(errno));
		if (connect(s, ai->ai_addr, ai->ai_addrlen) < 0 &&
		    errno != EINPROGRESS)
			error("connect (`%s'): %s", host, strerror(errno));
		else
			break;
		close(s);
		s = -1;
	}
	freeaddrinfo(aitop);
	return s;
}

static int
conalloc(char *iname, char *oname, int keytype)
{
	int s;
	char *namebase, *name, *namelist;

	namebase = namelist = xstrdup(iname);

	do {
		name = xstrsep(&namelist, ",");
		if (!name) {
			xfree(namebase);
			return (-1);
		}
	} while ((s = tcpconnect(name)) < 0);

	if (s >= maxfd)
		fatal("conalloc: fdno %d too high", s);
	if (fdcon[s].c_status)
		fatal("conalloc: attempt to reuse fdno %d", s);

	fdcon[s].c_fd = s;
	fdcon[s].c_status = CS_CON;
	fdcon[s].c_namebase = namebase;
	fdcon[s].c_name = name;
	fdcon[s].c_namelist = namelist;
	fdcon[s].c_output_name = xstrdup(oname);
	fdcon[s].c_data = (char *) &fdcon[s].c_plen;
	fdcon[s].c_len = 4;
	fdcon[s].c_off = 0;
	fdcon[s].c_keytype = keytype;
	gettimeofday(&fdcon[s].c_tv, NULL);
	fdcon[s].c_tv.tv_sec += timeout;
	TAILQ_INSERT_TAIL(&tq, &fdcon[s], c_link);
	FD_SET(s, read_wait);
	ncon++;
	return (s);
}

static void
confree(int s)
{
	if (s >= maxfd || fdcon[s].c_status == CS_UNUSED)
		fatal("confree: attempt to free bad fdno %d", s);
	close(s);
	xfree(fdcon[s].c_namebase);
	xfree(fdcon[s].c_output_name);
	if (fdcon[s].c_status == CS_KEYS)
		xfree(fdcon[s].c_data);
	fdcon[s].c_status = CS_UNUSED;
	fdcon[s].c_keytype = 0;
	TAILQ_REMOVE(&tq, &fdcon[s], c_link);
	FD_CLR(s, read_wait);
	ncon--;
}

static void
contouch(int s)
{
	TAILQ_REMOVE(&tq, &fdcon[s], c_link);
	gettimeofday(&fdcon[s].c_tv, NULL);
	fdcon[s].c_tv.tv_sec += timeout;
	TAILQ_INSERT_TAIL(&tq, &fdcon[s], c_link);
}

static int
conrecycle(int s)
{
	int ret;
	con *c = &fdcon[s];

	ret = conalloc(c->c_namelist, c->c_output_name, c->c_keytype);
	confree(s);
	return (ret);
}

static void
congreet(int s)
{
	char buf[256], *cp;
	size_t bufsiz;
	int n = 0;
	con *c = &fdcon[s];

	bufsiz = sizeof(buf);
	cp = buf;
	while (bufsiz-- && (n = read(s, cp, 1)) == 1 && *cp != '\n') {
		if (*cp == '\r')
			*cp = '\n';
		cp++;
	}
	if (n < 0) {
		if (errno != ECONNREFUSED)
			error("read (%s): %s", c->c_name, strerror(errno));
		conrecycle(s);
		return;
	}
	if (*cp != '\n' && *cp != '\r') {
		error("%s: bad greeting", c->c_name);
		confree(s);
		return;
	}
	*cp = '\0';
	if (c->c_keytype != KT_RSA1) {
		int remote_major, remote_minor;
		char remote_version[sizeof buf];

		if (sscanf(buf, "SSH-%d.%d-%[^\n]\n",
		    &remote_major, &remote_minor, remote_version) == 3)
			compat_datafellows(remote_version);
		else
			datafellows = 0;
		if (!ssh2_capable(remote_major, remote_minor)) {
			debug("%s doesn't support ssh2", c->c_name);
			confree(s);
			return;
		}
	}
	fprintf(stderr, "# %s %s\n", c->c_name, chop(buf));
	n = snprintf(buf, sizeof buf, "SSH-%d.%d-OpenSSH-keyscan\r\n",
	    c->c_keytype == KT_RSA1? PROTOCOL_MAJOR_1 : PROTOCOL_MAJOR_2,
	    c->c_keytype == KT_RSA1? PROTOCOL_MINOR_1 : PROTOCOL_MINOR_2);
	if (atomicio(write, s, buf, n) != n) {
		error("write (%s): %s", c->c_name, strerror(errno));
		confree(s);
		return;
	}
	if (c->c_keytype != KT_RSA1) {
		keyprint(c, keygrab_ssh2(c));
		confree(s);
		return;
	}
	c->c_status = CS_SIZE;
	contouch(s);
}

static void
conread(int s)
{
	int n;
	con *c = &fdcon[s];

	if (c->c_status == CS_CON) {
		congreet(s);
		return;
	}
	n = read(s, c->c_data + c->c_off, c->c_len - c->c_off);
	if (n < 0) {
		error("read (%s): %s", c->c_name, strerror(errno));
		confree(s);
		return;
	}
	c->c_off += n;

	if (c->c_off == c->c_len)
		switch (c->c_status) {
		case CS_SIZE:
			c->c_plen = htonl(c->c_plen);
			c->c_len = c->c_plen + 8 - (c->c_plen & 7);
			c->c_off = 0;
			c->c_data = xmalloc(c->c_len);
			c->c_status = CS_KEYS;
			break;
		case CS_KEYS:
			keyprint(c, keygrab_ssh1(c));
			confree(s);
			return;
			break;
		default:
			fatal("conread: invalid status %d", c->c_status);
			break;
		}

	contouch(s);
}

static void
conloop(void)
{
	fd_set *r, *e;
	struct timeval seltime, now;
	int i;
	con *c;

	gettimeofday(&now, NULL);
	c = tq.tqh_first;

	if (c && (c->c_tv.tv_sec > now.tv_sec ||
	    (c->c_tv.tv_sec == now.tv_sec && c->c_tv.tv_usec > now.tv_usec))) {
		seltime = c->c_tv;
		seltime.tv_sec -= now.tv_sec;
		seltime.tv_usec -= now.tv_usec;
		if (seltime.tv_usec < 0) {
			seltime.tv_usec += 1000000;
			seltime.tv_sec--;
		}
	} else
		seltime.tv_sec = seltime.tv_usec = 0;

	r = xmalloc(read_wait_size);
	memcpy(r, read_wait, read_wait_size);
	e = xmalloc(read_wait_size);
	memcpy(e, read_wait, read_wait_size);

	while (select(maxfd, r, NULL, e, &seltime) == -1 &&
	    (errno == EAGAIN || errno == EINTR))
		;

	for (i = 0; i < maxfd; i++) {
		if (FD_ISSET(i, e)) {
			error("%s: exception!", fdcon[i].c_name);
			confree(i);
		} else if (FD_ISSET(i, r))
			conread(i);
	}
	xfree(r);
	xfree(e);

	c = tq.tqh_first;
	while (c && (c->c_tv.tv_sec < now.tv_sec ||
	    (c->c_tv.tv_sec == now.tv_sec && c->c_tv.tv_usec < now.tv_usec))) {
		int s = c->c_fd;

		c = c->c_link.tqe_next;
		conrecycle(s);
	}
}

static void
do_host(char *host)
{
	char *name = strnnsep(&host, " \t\n");
	int j;

	for (j = KT_RSA1; j <= KT_RSA; j *= 2) {
		if (get_keytypes & j) {
			while (ncon >= MAXCON)
				conloop();
			conalloc(name, *host ? host : name, j);
		}
	}
}

static void
fatal_callback(void *arg)
{
	if (nonfatal_fatal)
		longjmp(kexjmp, -1);
}

static void
usage(void)
{
	fprintf(stderr, "Usage: %s [options] host ...\n",
	    __progname);
	fprintf(stderr, "Options:\n");
	fprintf(stderr, "  -f file     Read hosts or addresses from file.\n");
	fprintf(stderr, "  -p port     Connect to the specified port.\n");
	fprintf(stderr, "  -t keytype  Specify the host key type.\n");
	fprintf(stderr, "  -T timeout  Set connection timeout.\n");
        fprintf(stderr, "  -v          Verbose; display verbose debugging messages.\n");
        fprintf(stderr, "  -4          Use IPv4 only.\n");
        fprintf(stderr, "  -6          Use IPv6 only.\n");
	exit(1);
}

int
main(int argc, char **argv)
{
	int debug_flag = 0, log_level = SYSLOG_LEVEL_INFO;
	int opt, fopt_count = 0;
	char *tname;

	extern int optind;
	extern char *optarg;

	__progname = get_progname(argv[0]);
	TAILQ_INIT(&tq);

	if (argc <= 1)
		usage();

	while ((opt = getopt(argc, argv, "v46p:T:t:f:")) != -1) {
		switch (opt) {
		case 'p':
			ssh_port = a2port(optarg);
			if (ssh_port == 0) {
				fprintf(stderr, "Bad port '%s'\n", optarg);
				exit(1);
			}
			break;
		case 'T':
			timeout = atoi(optarg);
			if (timeout <= 0)
				usage();
			break;
		case 'v':
			if (!debug_flag) {
				debug_flag = 1;
				log_level = SYSLOG_LEVEL_DEBUG1;
			}
			else if (log_level < SYSLOG_LEVEL_DEBUG3)
				log_level++;
			else
				fatal("Too high debugging level.");
			break;
		case 'f':
			if (strcmp(optarg, "-") == 0)
				optarg = NULL;
			argv[fopt_count++] = optarg;
			break;
		case 't':
			get_keytypes = 0;
			tname = strtok(optarg, ",");
			while (tname) {
				int type = key_type_from_name(tname);
				switch (type) {
				case KEY_RSA1:
					get_keytypes |= KT_RSA1;
					break;
				case KEY_DSA:
					get_keytypes |= KT_DSA;
					break;
				case KEY_RSA:
					get_keytypes |= KT_RSA;
					break;
				case KEY_UNSPEC:
					fatal("unknown key type %s\n", tname);
				}
				tname = strtok(NULL, ",");
			}
			break;
		case '4':
			IPv4or6 = AF_INET;
			break;
		case '6':
			IPv4or6 = AF_INET6;
			break;
		case '?':
		default:
			usage();
		}
	}
	if (optind == argc && !fopt_count)
		usage();

	log_init("ssh-keyscan", log_level, SYSLOG_FACILITY_USER, 1);
	fatal_add_cleanup(fatal_callback, NULL);

	maxfd = fdlim_get(1);
	if (maxfd < 0)
		fatal("%s: fdlim_get: bad value", __progname);
	if (maxfd > MAXMAXFD)
		maxfd = MAXMAXFD;
	if (MAXCON <= 0)
		fatal("%s: not enough file descriptors", __progname);
	if (maxfd > fdlim_get(0))
		fdlim_set(maxfd);
	fdcon = xmalloc(maxfd * sizeof(con));
	memset(fdcon, 0, maxfd * sizeof(con));

	read_wait_size = howmany(maxfd, NFDBITS) * sizeof(fd_mask);
	read_wait = xmalloc(read_wait_size);
	memset(read_wait, 0, read_wait_size);

	if (fopt_count) {
		Linebuf *lb;
		char *line;
		int j;

		for (j = 0; j < fopt_count; j++) {
			lb = Linebuf_alloc(argv[j], error);
			if (!lb)
				continue;
			while ((line = Linebuf_getline(lb)) != NULL)
				do_host(line);
			Linebuf_free(lb);
		}
	}

	while (optind < argc)
		do_host(argv[optind++]);

	while (ncon > 0)
		conloop();

	return (0);
}
Commit	Line	Data
f6fdbddf	1	/*
	2	* Copyright 1995, 1996 by David Mazieres <dm@lcs.mit.edu>.
	3	*
	4	* Modification and redistribution in source and binary forms is
	5	* permitted provided that due credit is given to the author and the
aa144206	6	* OpenBSD project by leaving this copyright notice intact.
f6fdbddf	7	*/
	8
	9	#include "includes.h"
dab89049	10	RCSID("$OpenBSD: ssh-keyscan.c,v 1.30 2001/10/08 19:05:05 markus Exp $");
f6fdbddf	11
b705bea0	12	#if defined(HAVE_SYS_QUEUE_H) && !defined(HAVE_BOGUS_SYS_QUEUE_H)
f6fdbddf	13	#include <sys/queue.h>
bf5f69f7	14	#else
51e2fc8f	15	#include "openbsd-compat/fake-queue.h"
bf5f69f7	16	#endif
f6fdbddf	17	#include <errno.h>
	18
	19	#include <openssl/bn.h>
f6fdbddf	20
5061072f	21	#include <setjmp.h>
f6fdbddf	22	#include "xmalloc.h"
f6fdbddf	23	#include "ssh.h"
42f11eb2	24	#include "ssh1.h"
f6fdbddf	25	#include "key.h"
5061072f	26	#include "kex.h"
	27	#include "compat.h"
	28	#include "myproposal.h"
	29	#include "packet.h"
	30	#include "dispatch.h"
f6fdbddf	31	#include "buffer.h"
f6fdbddf	32	#include "bufaux.h"
42f11eb2	33	#include "log.h"
2671b47f	34	#include "atomicio.h"
5061072f	35	#include "misc.h"
f6fdbddf	36
5061072f	37	/* Flag indicating whether IPv4 or IPv6. This can be set on the command line.
5061072f	38	Default value is AF_UNSPEC means both IPv4 and IPv6. */
5061072f	39	int IPv4or6 = AF_UNSPEC;
f6fdbddf	40
5061072f	41	int ssh_port = SSH_DEFAULT_PORT;
a204806b	42
	43	#define KT_RSA1 1
	44	#define KT_DSA 2
	45	#define KT_RSA 4
	46
	47	int get_keytypes = KT_RSA1; /* Get only RSA1 keys by default */
f6fdbddf	48
f6fdbddf	49	#define MAXMAXFD 256
	50
	51	/* The number of seconds after which to give up on a TCP connection */
	52	int timeout = 5;
	53
	54	int maxfd;
2671b47f	55	#define MAXCON (maxfd - 10)
f6fdbddf	56
1fe6a48f	57	#ifdef HAVE___PROGNAME
	58	extern char *__progname;
	59	#else
	60	char *__progname;
	61	#endif
ff7fee59	62	fd_set *read_wait;
ff7fee59	63	size_t read_wait_size;
f6fdbddf	64	int ncon;
5061072f	65	int nonfatal_fatal = 0;
5061072f	66	jmp_buf kexjmp;
4278ff63	67	Key *kexjmp_key;
f6fdbddf	68
	69	/*
	70	* Keep a connection structure for each file descriptor. The state
	71	* associated with file descriptor n is held in fdcon[n].
	72	*/
	73	typedef struct Connection {
1e3b8b07	74	u_char c_status; /* State of connection on this file desc. */
f6fdbddf	75	#define CS_UNUSED 0 /* File descriptor unused */
	76	#define CS_CON 1 /* Waiting to connect/read greeting */
	77	#define CS_SIZE 2 /* Waiting to read initial packet size */
	78	#define CS_KEYS 3 /* Waiting to read public key packet */
	79	int c_fd; /* Quick lookup: c->c_fd == c - fdcon */
	80	int c_plen; /* Packet length field for ssh packet */
	81	int c_len; /* Total bytes which must be read. */
	82	int c_off; /* Length of data read so far. */
5061072f	83	int c_keytype; /* Only one of KT_RSA1, KT_DSA, or KT_RSA */
f6fdbddf	84	char c_namebase; / Address to free for c_name and c_namelist */
	85	char c_name; / Hostname of connection for errors */
	86	char c_namelist; / Pointer to other possible addresses */
	87	char c_output_name; / Hostname of connection for output */
	88	char c_data; / Data read from this fd */
5061072f	89	Kex c_kex; / The key-exchange struct for ssh2 */
f6fdbddf	90	struct timeval c_tv; /* Time at which connection gets aborted */
	91	TAILQ_ENTRY(Connection) c_link; /* List of connections in timeout order. */
	92	} con;
	93
	94	TAILQ_HEAD(conlist, Connection) tq; /* Timeout Queue */
	95	con *fdcon;
	96
	97	/*
	98	* This is just a wrapper around fgets() to make it usable.
	99	*/
	100
	101	/* Stress-test. Increase this later. */
	102	#define LINEBUF_SIZE 16
	103
	104	typedef struct {
	105	char *buf;
1e3b8b07	106	u_int size;
f6fdbddf	107	int lineno;
	108	const char *filename;
	109	FILE *stream;
	110	void (errfun) (const char ,...);
	111	} Linebuf;
	112
396c147e	113	static Linebuf *
f6fdbddf	114	Linebuf_alloc(const char filename, void (errfun) (const char *,...))
	115	{
	116	Linebuf *lb;
	117
	118	if (!(lb = malloc(sizeof(*lb)))) {
	119	if (errfun)
	120	(*errfun) ("linebuf (%s): malloc failed\n", lb->filename);
	121	return (NULL);
	122	}
	123	if (filename) {
	124	lb->filename = filename;
	125	if (!(lb->stream = fopen(filename, "r"))) {
b5c334cc	126	xfree(lb);
f6fdbddf	127	if (errfun)
	128	(*errfun) ("%s: %s\n", filename, strerror(errno));
	129	return (NULL);
	130	}
	131	} else {
	132	lb->filename = "(stdin)";
	133	lb->stream = stdin;
	134	}
	135
	136	if (!(lb->buf = malloc(lb->size = LINEBUF_SIZE))) {
	137	if (errfun)
	138	(*errfun) ("linebuf (%s): malloc failed\n", lb->filename);
b5c334cc	139	xfree(lb);
f6fdbddf	140	return (NULL);
	141	}
	142	lb->errfun = errfun;
	143	lb->lineno = 0;
	144	return (lb);
	145	}
	146
396c147e	147	static void
f6fdbddf	148	Linebuf_free(Linebuf * lb)
	149	{
	150	fclose(lb->stream);
b5c334cc	151	xfree(lb->buf);
b5c334cc	152	xfree(lb);
f6fdbddf	153	}
f6fdbddf	154
396c147e	155	#if 0
396c147e	156	static void
f6fdbddf	157	Linebuf_restart(Linebuf * lb)
	158	{
	159	clearerr(lb->stream);
	160	rewind(lb->stream);
	161	lb->lineno = 0;
	162	}
	163
396c147e	164	static int
f6fdbddf	165	Linebuf_lineno(Linebuf * lb)
	166	{
	167	return (lb->lineno);
	168	}
396c147e	169	#endif
f6fdbddf	170
396c147e	171	static char *
5be2ec5e	172	Linebuf_getline(Linebuf * lb)
f6fdbddf	173	{
	174	int n = 0;
	175
	176	lb->lineno++;
	177	for (;;) {
	178	/* Read a line */
	179	if (!fgets(&lb->buf[n], lb->size - n, lb->stream)) {
	180	if (ferror(lb->stream) && lb->errfun)
778f6940	181	(*lb->errfun) ("%s: %s\n", lb->filename,
778f6940	182	strerror(errno));
f6fdbddf	183	return (NULL);
	184	}
	185	n = strlen(lb->buf);
	186
	187	/* Return it or an error if it fits */
	188	if (n > 0 && lb->buf[n - 1] == '\n') {
	189	lb->buf[n - 1] = '\0';
	190	return (lb->buf);
	191	}
	192	if (n != lb->size - 1) {
	193	if (lb->errfun)
778f6940	194	(*lb->errfun) ("%s: skipping incomplete last line\n",
778f6940	195	lb->filename);
f6fdbddf	196	return (NULL);
	197	}
	198	/* Double the buffer if we need more space */
	199	if (!(lb->buf = realloc(lb->buf, (lb->size *= 2)))) {
	200	if (lb->errfun)
778f6940	201	(*lb->errfun) ("linebuf (%s): realloc failed\n",
778f6940	202	lb->filename);
f6fdbddf	203	return (NULL);
	204	}
	205	}
	206	}
	207
396c147e	208	static int
f6fdbddf	209	fdlim_get(int hard)
f6fdbddf	210	{
f318b98b	211	#if defined(HAVE_GETRLIMIT) && defined(RLIMIT_NOFILE)
f6fdbddf	212	struct rlimit rlfd;
778f6940	213
f6fdbddf	214	if (getrlimit(RLIMIT_NOFILE, &rlfd) < 0)
	215	return (-1);
	216	if ((hard ? rlfd.rlim_max : rlfd.rlim_cur) == RLIM_INFINITY)
	217	return 10000;
	218	else
	219	return hard ? rlfd.rlim_max : rlfd.rlim_cur;
b03bd394	220	#elif defined (HAVE_SYSCONF)
	221	return sysconf (_SC_OPEN_MAX);
	222	#else
	223	return 10000;
	224	#endif
f6fdbddf	225	}
f6fdbddf	226
396c147e	227	static int
f6fdbddf	228	fdlim_set(int lim)
f6fdbddf	229	{
f318b98b	230	#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
f6fdbddf	231	struct rlimit rlfd;
b03bd394	232	#endif
f6fdbddf	233	if (lim <= 0)
f6fdbddf	234	return (-1);
f318b98b	235	#if defined(HAVE_SETRLIMIT) && defined(RLIMIT_NOFILE)
f6fdbddf	236	if (getrlimit(RLIMIT_NOFILE, &rlfd) < 0)
	237	return (-1);
	238	rlfd.rlim_cur = lim;
	239	if (setrlimit(RLIMIT_NOFILE, &rlfd) < 0)
	240	return (-1);
b03bd394	241	#elif defined (HAVE_SETDTABLESIZE)
b705bea0	242	setdtablesize(lim);
b03bd394	243	#endif
f6fdbddf	244	return (0);
	245	}
	246
	247	/*
	248	* This is an strsep function that returns a null field for adjacent
	249	* separators. This is the same as the 4.4BSD strsep, but different from the
	250	* one in the GNU libc.
	251	*/
396c147e	252	static char *
f6fdbddf	253	xstrsep(char *str, const char delim)
	254	{
	255	char s, e;
	256
	257	if (!**str)
	258	return (NULL);
	259
	260	s = *str;
	261	e = s + strcspn(s, delim);
	262
	263	if (*e != '\0')
	264	*e++ = '\0';
	265	*str = e;
	266
	267	return (s);
	268	}
	269
	270	/*
	271	* Get the next non-null token (like GNU strsep). Strsep() will return a
	272	* null token for two adjacent separators, so we may have to loop.
	273	*/
396c147e	274	static char *
f6fdbddf	275	strnnsep(char *stringp, char delim)
	276	{
	277	char *tok;
	278
	279	do {
	280	tok = xstrsep(stringp, delim);
	281	} while (tok && *tok == '\0');
	282	return (tok);
	283	}
	284
5061072f	285	static Key *
5061072f	286	keygrab_ssh1(con *c)
f6fdbddf	287	{
	288	static Key *rsa;
	289	static Buffer msg;
	290
	291	if (rsa == NULL) {
	292	buffer_init(&msg);
	293	rsa = key_new(KEY_RSA1);
	294	}
5061072f	295	buffer_append(&msg, c->c_data, c->c_plen);
5061072f	296	buffer_consume(&msg, 8 - (c->c_plen & 7)); /* padding */
f6fdbddf	297	if (buffer_get_char(&msg) != (int) SSH_SMSG_PUBLIC_KEY) {
5061072f	298	error("%s: invalid packet type", c->c_name);
f6fdbddf	299	buffer_clear(&msg);
5061072f	300	return NULL;
f6fdbddf	301	}
	302	buffer_consume(&msg, 8); /* cookie */
	303
	304	/* server key */
	305	(void) buffer_get_int(&msg);
	306	buffer_get_bignum(&msg, rsa->rsa->e);
	307	buffer_get_bignum(&msg, rsa->rsa->n);
	308
	309	/* host key */
	310	(void) buffer_get_int(&msg);
	311	buffer_get_bignum(&msg, rsa->rsa->e);
	312	buffer_get_bignum(&msg, rsa->rsa->n);
5061072f	313
f6fdbddf	314	buffer_clear(&msg);
f6fdbddf	315
5061072f	316	return (rsa);
	317	}
	318
	319	static int
	320	hostjump(Key *hostkey)
	321	{
4278ff63	322	kexjmp_key = hostkey;
4278ff63	323	longjmp(kexjmp, 1);
5061072f	324	}
	325
	326	static int
	327	ssh2_capable(int remote_major, int remote_minor)
	328	{
	329	switch (remote_major) {
	330	case 1:
	331	if (remote_minor == 99)
	332	return 1;
	333	break;
	334	case 2:
	335	return 1;
	336	default:
	337	break;
	338	}
	339	return 0;
	340	}
	341
	342	static Key *
	343	keygrab_ssh2(con *c)
	344	{
	345	int j;
	346
	347	packet_set_connection(c->c_fd, c->c_fd);
	348	enable_compat20();
	349	myproposal[PROPOSAL_SERVER_HOST_KEY_ALGS] = c->c_keytype == KT_DSA?
	350	"ssh-dss": "ssh-rsa";
	351	c->c_kex = kex_setup(myproposal);
	352	c->c_kex->verify_host_key = hostjump;
	353
	354	if (!(j = setjmp(kexjmp))) {
	355	nonfatal_fatal = 1;
	356	dispatch_run(DISPATCH_BLOCK, &c->c_kex->done, c->c_kex);
	357	fprintf(stderr, "Impossible! dispatch_run() returned!\n");
	358	exit(1);
	359	}
	360	nonfatal_fatal = 0;
	361	xfree(c->c_kex);
	362	c->c_kex = NULL;
	363	packet_close();
5061072f	364
4278ff63	365	return j < 0? NULL : kexjmp_key;
5061072f	366	}
	367
	368	static void
	369	keyprint(con c, Key key)
	370	{
	371	if (!key)
	372	return;
	373
	374	fprintf(stdout, "%s ", c->c_output_name ? c->c_output_name : c->c_name);
	375	key_write(key, stdout);
f6fdbddf	376	fputs("\n", stdout);
	377	}
	378
396c147e	379	static int
f6fdbddf	380	tcpconnect(char *host)
	381	{
	382	struct addrinfo hints, ai, aitop;
	383	char strport[NI_MAXSERV];
	384	int gaierr, s = -1;
	385
5061072f	386	snprintf(strport, sizeof strport, "%d", ssh_port);
f6fdbddf	387	memset(&hints, 0, sizeof(hints));
5061072f	388	hints.ai_family = IPv4or6;
f6fdbddf	389	hints.ai_socktype = SOCK_STREAM;
	390	if ((gaierr = getaddrinfo(host, strport, &hints, &aitop)) != 0)
	391	fatal("getaddrinfo %s: %s", host, gai_strerror(gaierr));
	392	for (ai = aitop; ai; ai = ai->ai_next) {
	393	s = socket(ai->ai_family, SOCK_STREAM, 0);
	394	if (s < 0) {
	395	error("socket: %s", strerror(errno));
	396	continue;
	397	}
eea39c02	398	if (fcntl(s, F_SETFL, O_NONBLOCK) < 0)
f6fdbddf	399	fatal("F_SETFL: %s", strerror(errno));
	400	if (connect(s, ai->ai_addr, ai->ai_addrlen) < 0 &&
	401	errno != EINPROGRESS)
	402	error("connect (`%s'): %s", host, strerror(errno));
	403	else
	404	break;
	405	close(s);
	406	s = -1;
	407	}
	408	freeaddrinfo(aitop);
	409	return s;
	410	}
	411
396c147e	412	static int
5061072f	413	conalloc(char iname, char oname, int keytype)
f6fdbddf	414	{
	415	int s;
	416	char namebase, name, *namelist;
	417
	418	namebase = namelist = xstrdup(iname);
	419
	420	do {
	421	name = xstrsep(&namelist, ",");
	422	if (!name) {
b5c334cc	423	xfree(namebase);
f6fdbddf	424	return (-1);
	425	}
	426	} while ((s = tcpconnect(name)) < 0);
	427
	428	if (s >= maxfd)
227e8e86	429	fatal("conalloc: fdno %d too high", s);
f6fdbddf	430	if (fdcon[s].c_status)
227e8e86	431	fatal("conalloc: attempt to reuse fdno %d", s);
f6fdbddf	432
	433	fdcon[s].c_fd = s;
	434	fdcon[s].c_status = CS_CON;
	435	fdcon[s].c_namebase = namebase;
	436	fdcon[s].c_name = name;
	437	fdcon[s].c_namelist = namelist;
	438	fdcon[s].c_output_name = xstrdup(oname);
	439	fdcon[s].c_data = (char *) &fdcon[s].c_plen;
	440	fdcon[s].c_len = 4;
	441	fdcon[s].c_off = 0;
5061072f	442	fdcon[s].c_keytype = keytype;
f6fdbddf	443	gettimeofday(&fdcon[s].c_tv, NULL);
	444	fdcon[s].c_tv.tv_sec += timeout;
	445	TAILQ_INSERT_TAIL(&tq, &fdcon[s], c_link);
ff7fee59	446	FD_SET(s, read_wait);
f6fdbddf	447	ncon++;
	448	return (s);
	449	}
	450
396c147e	451	static void
f6fdbddf	452	confree(int s)
f6fdbddf	453	{
f6fdbddf	454	if (s >= maxfd \|\| fdcon[s].c_status == CS_UNUSED)
227e8e86	455	fatal("confree: attempt to free bad fdno %d", s);
2671b47f	456	close(s);
b5c334cc	457	xfree(fdcon[s].c_namebase);
b5c334cc	458	xfree(fdcon[s].c_output_name);
f6fdbddf	459	if (fdcon[s].c_status == CS_KEYS)
b5c334cc	460	xfree(fdcon[s].c_data);
f6fdbddf	461	fdcon[s].c_status = CS_UNUSED;
5061072f	462	fdcon[s].c_keytype = 0;
f6fdbddf	463	TAILQ_REMOVE(&tq, &fdcon[s], c_link);
ff7fee59	464	FD_CLR(s, read_wait);
f6fdbddf	465	ncon--;
	466	}
	467
396c147e	468	static void
f6fdbddf	469	contouch(int s)
	470	{
	471	TAILQ_REMOVE(&tq, &fdcon[s], c_link);
	472	gettimeofday(&fdcon[s].c_tv, NULL);
	473	fdcon[s].c_tv.tv_sec += timeout;
	474	TAILQ_INSERT_TAIL(&tq, &fdcon[s], c_link);
	475	}
	476
396c147e	477	static int
f6fdbddf	478	conrecycle(int s)
	479	{
	480	int ret;
	481	con *c = &fdcon[s];
f6fdbddf	482
5061072f	483	ret = conalloc(c->c_namelist, c->c_output_name, c->c_keytype);
f6fdbddf	484	confree(s);
f6fdbddf	485	return (ret);
	486	}
	487
396c147e	488	static void
f6fdbddf	489	congreet(int s)
f6fdbddf	490	{
5061072f	491	char buf[256], *cp;
c16c7f20	492	size_t bufsiz;
3251b439	493	int n = 0;
f6fdbddf	494	con *c = &fdcon[s];
f6fdbddf	495
c16c7f20	496	bufsiz = sizeof(buf);
c16c7f20	497	cp = buf;
578954b1	498	while (bufsiz-- && (n = read(s, cp, 1)) == 1 && *cp != '\n') {
	499	if (*cp == '\r')
	500	*cp = '\n';
c16c7f20	501	cp++;
578954b1	502	}
f6fdbddf	503	if (n < 0) {
	504	if (errno != ECONNREFUSED)
	505	error("read (%s): %s", c->c_name, strerror(errno));
	506	conrecycle(s);
	507	return;
	508	}
c16c7f20	509	if (cp != '\n' && cp != '\r') {
f6fdbddf	510	error("%s: bad greeting", c->c_name);
	511	confree(s);
	512	return;
	513	}
c16c7f20	514	*cp = '\0';
5061072f	515	if (c->c_keytype != KT_RSA1) {
	516	int remote_major, remote_minor;
	517	char remote_version[sizeof buf];
	518
	519	if (sscanf(buf, "SSH-%d.%d-%[^\n]\n",
	520	&remote_major, &remote_minor, remote_version) == 3)
	521	compat_datafellows(remote_version);
	522	else
	523	datafellows = 0;
	524	if (!ssh2_capable(remote_major, remote_minor)) {
	525	debug("%s doesn't support ssh2", c->c_name);
	526	confree(s);
	527	return;
	528	}
	529	}
578954b1	530	fprintf(stderr, "# %s %s\n", c->c_name, chop(buf));
5061072f	531	n = snprintf(buf, sizeof buf, "SSH-%d.%d-OpenSSH-keyscan\r\n",
	532	c->c_keytype == KT_RSA1? PROTOCOL_MAJOR_1 : PROTOCOL_MAJOR_2,
	533	c->c_keytype == KT_RSA1? PROTOCOL_MINOR_1 : PROTOCOL_MINOR_2);
2671b47f	534	if (atomicio(write, s, buf, n) != n) {
f6fdbddf	535	error("write (%s): %s", c->c_name, strerror(errno));
	536	confree(s);
	537	return;
	538	}
5061072f	539	if (c->c_keytype != KT_RSA1) {
	540	keyprint(c, keygrab_ssh2(c));
	541	confree(s);
	542	return;
	543	}
f6fdbddf	544	c->c_status = CS_SIZE;
	545	contouch(s);
	546	}
	547
396c147e	548	static void
f6fdbddf	549	conread(int s)
	550	{
	551	int n;
	552	con *c = &fdcon[s];
	553
	554	if (c->c_status == CS_CON) {
	555	congreet(s);
	556	return;
	557	}
	558	n = read(s, c->c_data + c->c_off, c->c_len - c->c_off);
	559	if (n < 0) {
	560	error("read (%s): %s", c->c_name, strerror(errno));
	561	confree(s);
	562	return;
	563	}
	564	c->c_off += n;
	565
	566	if (c->c_off == c->c_len)
	567	switch (c->c_status) {
	568	case CS_SIZE:
	569	c->c_plen = htonl(c->c_plen);
	570	c->c_len = c->c_plen + 8 - (c->c_plen & 7);
	571	c->c_off = 0;
	572	c->c_data = xmalloc(c->c_len);
	573	c->c_status = CS_KEYS;
	574	break;
	575	case CS_KEYS:
5061072f	576	keyprint(c, keygrab_ssh1(c));
f6fdbddf	577	confree(s);
	578	return;
	579	break;
	580	default:
227e8e86	581	fatal("conread: invalid status %d", c->c_status);
f6fdbddf	582	break;
	583	}
	584
	585	contouch(s);
	586	}
	587
396c147e	588	static void
f6fdbddf	589	conloop(void)
f6fdbddf	590	{
ff7fee59	591	fd_set r, e;
f6fdbddf	592	struct timeval seltime, now;
	593	int i;
	594	con *c;
	595
	596	gettimeofday(&now, NULL);
	597	c = tq.tqh_first;
	598
2671b47f	599	if (c && (c->c_tv.tv_sec > now.tv_sec \|\|
2671b47f	600	(c->c_tv.tv_sec == now.tv_sec && c->c_tv.tv_usec > now.tv_usec))) {
f6fdbddf	601	seltime = c->c_tv;
	602	seltime.tv_sec -= now.tv_sec;
	603	seltime.tv_usec -= now.tv_usec;
5be2ec5e	604	if (seltime.tv_usec < 0) {
f6fdbddf	605	seltime.tv_usec += 1000000;
	606	seltime.tv_sec--;
	607	}
	608	} else
	609	seltime.tv_sec = seltime.tv_usec = 0;
	610
ff7fee59	611	r = xmalloc(read_wait_size);
	612	memcpy(r, read_wait, read_wait_size);
	613	e = xmalloc(read_wait_size);
	614	memcpy(e, read_wait, read_wait_size);
	615
	616	while (select(maxfd, r, NULL, e, &seltime) == -1 &&
fd193ca4	617	(errno == EAGAIN \|\| errno == EINTR))
	618	;
	619
2671b47f	620	for (i = 0; i < maxfd; i++) {
ff7fee59	621	if (FD_ISSET(i, e)) {
f6fdbddf	622	error("%s: exception!", fdcon[i].c_name);
f6fdbddf	623	confree(i);
ff7fee59	624	} else if (FD_ISSET(i, r))
f6fdbddf	625	conread(i);
2671b47f	626	}
ff7fee59	627	xfree(r);
ff7fee59	628	xfree(e);
f6fdbddf	629
f6fdbddf	630	c = tq.tqh_first;
2671b47f	631	while (c && (c->c_tv.tv_sec < now.tv_sec \|\|
2671b47f	632	(c->c_tv.tv_sec == now.tv_sec && c->c_tv.tv_usec < now.tv_usec))) {
f6fdbddf	633	int s = c->c_fd;
2671b47f	634
f6fdbddf	635	c = c->c_link.tqe_next;
	636	conrecycle(s);
	637	}
	638	}
	639
5061072f	640	static void
5061072f	641	do_host(char *host)
f6fdbddf	642	{
5061072f	643	char *name = strnnsep(&host, " \t\n");
	644	int j;
	645
	646	for (j = KT_RSA1; j <= KT_RSA; j *= 2) {
	647	if (get_keytypes & j) {
	648	while (ncon >= MAXCON)
	649	conloop();
	650	conalloc(name, *host ? host : name, j);
f6fdbddf	651	}
	652	}
	653	}
	654
5061072f	655	static void
	656	fatal_callback(void *arg)
	657	{
	658	if (nonfatal_fatal)
	659	longjmp(kexjmp, -1);
	660	}
	661
396c147e	662	static void
f6fdbddf	663	usage(void)
f6fdbddf	664	{
5061072f	665	fprintf(stderr, "Usage: %s [options] host ...\n",
33e766d2	666	__progname);
33e766d2	667	fprintf(stderr, "Options:\n");
33e766d2	668	fprintf(stderr, " -f file Read hosts or addresses from file.\n");
5061072f	669	fprintf(stderr, " -p port Connect to the specified port.\n");
	670	fprintf(stderr, " -t keytype Specify the host key type.\n");
	671	fprintf(stderr, " -T timeout Set connection timeout.\n");
a204806b	672	fprintf(stderr, " -v Verbose; display verbose debugging messages.\n");
	673	fprintf(stderr, " -4 Use IPv4 only.\n");
	674	fprintf(stderr, " -6 Use IPv6 only.\n");
33e766d2	675	exit(1);
f6fdbddf	676	}
	677
	678	int
	679	main(int argc, char **argv)
	680	{
5061072f	681	int debug_flag = 0, log_level = SYSLOG_LEVEL_INFO;
	682	int opt, fopt_count = 0;
	683	char *tname;
a204806b	684
5061072f	685	extern int optind;
5061072f	686	extern char *optarg;
f6fdbddf	687
1fe6a48f	688	__progname = get_progname(argv[0]);
f6fdbddf	689	TAILQ_INIT(&tq);
f6fdbddf	690
5061072f	691	if (argc <= 1)
f6fdbddf	692	usage();
f6fdbddf	693
5061072f	694	while ((opt = getopt(argc, argv, "v46p:T:t:f:")) != -1) {
	695	switch (opt) {
	696	case 'p':
	697	ssh_port = a2port(optarg);
	698	if (ssh_port == 0) {
	699	fprintf(stderr, "Bad port '%s'\n", optarg);
	700	exit(1);
	701	}
	702	break;
	703	case 'T':
	704	timeout = atoi(optarg);
	705	if (timeout <= 0)
f6fdbddf	706	usage();
5061072f	707	break;
	708	case 'v':
	709	if (!debug_flag) {
	710	debug_flag = 1;
	711	log_level = SYSLOG_LEVEL_DEBUG1;
	712	}
	713	else if (log_level < SYSLOG_LEVEL_DEBUG3)
	714	log_level++;
	715	else
	716	fatal("Too high debugging level.");
	717	break;
a204806b	718	case 'f':
5061072f	719	if (strcmp(optarg, "-") == 0)
	720	optarg = NULL;
	721	argv[fopt_count++] = optarg;
	722	break;
	723	case 't':
	724	get_keytypes = 0;
	725	tname = strtok(optarg, ",");
	726	while (tname) {
	727	int type = key_type_from_name(tname);
	728	switch (type) {
	729	case KEY_RSA1:
	730	get_keytypes \|= KT_RSA1;
	731	break;
	732	case KEY_DSA:
	733	get_keytypes \|= KT_DSA;
	734	break;
	735	case KEY_RSA:
	736	get_keytypes \|= KT_RSA;
	737	break;
	738	case KEY_UNSPEC:
	739	fatal("unknown key type %s\n", tname);
	740	}
	741	tname = strtok(NULL, ",");
	742	}
	743	break;
	744	case '4':
	745	IPv4or6 = AF_INET;
	746	break;
	747	case '6':
	748	IPv4or6 = AF_INET6;
	749	break;
	750	case '?':
	751	default:
f6fdbddf	752	usage();
5061072f	753	}
f6fdbddf	754	}
5061072f	755	if (optind == argc && !fopt_count)
f6fdbddf	756	usage();
f6fdbddf	757
5061072f	758	log_init("ssh-keyscan", log_level, SYSLOG_FACILITY_USER, 1);
	759	fatal_add_cleanup(fatal_callback, NULL);
	760
f6fdbddf	761	maxfd = fdlim_get(1);
f6fdbddf	762	if (maxfd < 0)
227e8e86	763	fatal("%s: fdlim_get: bad value", __progname);
f6fdbddf	764	if (maxfd > MAXMAXFD)
f6fdbddf	765	maxfd = MAXMAXFD;
2671b47f	766	if (MAXCON <= 0)
227e8e86	767	fatal("%s: not enough file descriptors", __progname);
f6fdbddf	768	if (maxfd > fdlim_get(0))
	769	fdlim_set(maxfd);
	770	fdcon = xmalloc(maxfd * sizeof(con));
5be2ec5e	771	memset(fdcon, 0, maxfd * sizeof(con));
f6fdbddf	772
ff7fee59	773	read_wait_size = howmany(maxfd, NFDBITS) * sizeof(fd_mask);
	774	read_wait = xmalloc(read_wait_size);
	775	memset(read_wait, 0, read_wait_size);
	776
5061072f	777	if (fopt_count) {
	778	Linebuf *lb;
	779	char *line;
	780	int j;
	781
	782	for (j = 0; j < fopt_count; j++) {
	783	lb = Linebuf_alloc(argv[j], error);
b7f79e7a	784	if (!lb)
b7f79e7a	785	continue;
5061072f	786	while ((line = Linebuf_getline(lb)) != NULL)
	787	do_host(line);
	788	Linebuf_free(lb);
f6fdbddf	789	}
5061072f	790	}
	791
	792	while (optind < argc)
	793	do_host(argv[optind++]);
	794
f6fdbddf	795	while (ncon > 0)
	796	conloop();
	797
	798	return (0);
	799	}