Import OpenSSH-5.1p1.
[dragonfly.git] / crypto / openssh-3.8.1p1 / ssh.c
1 /*
2  * Author: Tatu Ylonen <ylo@cs.hut.fi>
3  * Copyright (c) 1995 Tatu Ylonen <ylo@cs.hut.fi>, Espoo, Finland
4  *                    All rights reserved
5  * Ssh client program.  This program can be used to log into a remote machine.
6  * The software supports strong authentication, encryption, and forwarding
7  * of X11, TCP/IP, and authentication connections.
8  *
9  * As far as I am concerned, the code I have written for this software
10  * can be used freely for any purpose.  Any derived versions of this
11  * software must be clearly marked as such, and if the derived work is
12  * incompatible with the protocol description in the RFC file, it must be
13  * called by a name other than "ssh" or "Secure Shell".
14  *
15  * Copyright (c) 1999 Niels Provos.  All rights reserved.
16  * Copyright (c) 2000, 2001, 2002, 2003 Markus Friedl.  All rights reserved.
17  *
18  * Modified to work with SSL by Niels Provos <provos@citi.umich.edu>
19  * in Canada (German citizen).
20  *
21  * Redistribution and use in source and binary forms, with or without
22  * modification, are permitted provided that the following conditions
23  * are met:
24  * 1. Redistributions of source code must retain the above copyright
25  *    notice, this list of conditions and the following disclaimer.
26  * 2. Redistributions in binary form must reproduce the above copyright
27  *    notice, this list of conditions and the following disclaimer in the
28  *    documentation and/or other materials provided with the distribution.
29  *
30  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
31  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
32  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
33  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
34  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
35  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
36  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
37  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
38  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
39  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
40  */
41
42 #include "includes.h"
43 RCSID("$OpenBSD: ssh.c,v 1.209 2004/03/11 10:21:17 markus Exp $");
44
45 #include <openssl/evp.h>
46 #include <openssl/err.h>
47
48 #include "ssh.h"
49 #include "ssh1.h"
50 #include "ssh2.h"
51 #include "compat.h"
52 #include "cipher.h"
53 #include "xmalloc.h"
54 #include "packet.h"
55 #include "buffer.h"
56 #include "channels.h"
57 #include "key.h"
58 #include "authfd.h"
59 #include "authfile.h"
60 #include "pathnames.h"
61 #include "clientloop.h"
62 #include "log.h"
63 #include "readconf.h"
64 #include "sshconnect.h"
65 #include "tildexpand.h"
66 #include "dispatch.h"
67 #include "misc.h"
68 #include "kex.h"
69 #include "mac.h"
70 #include "sshtty.h"
71
72 #ifdef SMARTCARD
73 #include "scard.h"
74 #endif
75
76 #ifdef HAVE___PROGNAME
77 extern char *__progname;
78 #else
79 char *__progname;
80 #endif
81
82 /* Flag indicating whether debug mode is on.  This can be set on the command line. */
83 int debug_flag = 0;
84
85 /* Flag indicating whether a tty should be allocated */
86 int tty_flag = 0;
87 int no_tty_flag = 0;
88 int force_tty_flag = 0;
89
90 /* don't exec a shell */
91 int no_shell_flag = 0;
92
93 /*
94  * Flag indicating that nothing should be read from stdin.  This can be set
95  * on the command line.
96  */
97 int stdin_null_flag = 0;
98
99 /*
100  * Flag indicating that ssh should fork after authentication.  This is useful
101  * so that the passphrase can be entered manually, and then ssh goes to the
102  * background.
103  */
104 int fork_after_authentication_flag = 0;
105
106 /*
107  * General data structure for command line options and options configurable
108  * in configuration files.  See readconf.h.
109  */
110 Options options;
111
112 /* optional user configfile */
113 char *config = NULL;
114
115 /*
116  * Name of the host we are connecting to.  This is the name given on the
117  * command line, or the HostName specified for the user-supplied name in a
118  * configuration file.
119  */
120 char *host;
121
122 /* socket address the host resolves to */
123 struct sockaddr_storage hostaddr;
124
125 /* Private host keys. */
126 Sensitive sensitive_data;
127
128 /* Original real UID. */
129 uid_t original_real_uid;
130 uid_t original_effective_uid;
131
132 /* command to be executed */
133 Buffer command;
134
135 /* Should we execute a command or invoke a subsystem? */
136 int subsystem_flag = 0;
137
138 /* # of replies received for global requests */
139 static int client_global_request_id = 0;
140
141 /* pid of proxycommand child process */
142 pid_t proxy_command_pid = 0;
143
144 /* Prints a help message to the user.  This function never returns. */
145
146 static void
147 usage(void)
148 {
149         fprintf(stderr,
150 "usage: ssh [-1246AaCfghkNnqsTtVvXxY] [-b bind_address] [-c cipher_spec]\n"
151 "           [-D port] [-e escape_char] [-F configfile] [-i identity_file]\n"
152 "           [-L port:host:hostport] [-l login_name] [-m mac_spec] [-o option]\n"
153 "           [-p port] [-R port:host:hostport] [user@]hostname [command]\n"
154         );
155         exit(1);
156 }
157
158 static int ssh_session(void);
159 static int ssh_session2(void);
160 static void load_public_identity_files(void);
161
162 /*
163  * Main program for the ssh client.
164  */
165 int
166 main(int ac, char **av)
167 {
168         int i, opt, exit_status;
169         u_short fwd_port, fwd_host_port;
170         char sfwd_port[6], sfwd_host_port[6];
171         char *p, *cp, *line, buf[256];
172         struct stat st;
173         struct passwd *pw;
174         int dummy;
175         extern int optind, optreset;
176         extern char *optarg;
177
178         __progname = ssh_get_progname(av[0]);
179         init_rng();
180
181         /*
182          * Save the original real uid.  It will be needed later (uid-swapping
183          * may clobber the real uid).
184          */
185         original_real_uid = getuid();
186         original_effective_uid = geteuid();
187
188         /*
189          * Use uid-swapping to give up root privileges for the duration of
190          * option processing.  We will re-instantiate the rights when we are
191          * ready to create the privileged port, and will permanently drop
192          * them when the port has been created (actually, when the connection
193          * has been made, as we may need to create the port several times).
194          */
195         PRIV_END;
196
197 #ifdef HAVE_SETRLIMIT
198         /* If we are installed setuid root be careful to not drop core. */
199         if (original_real_uid != original_effective_uid) {
200                 struct rlimit rlim;
201                 rlim.rlim_cur = rlim.rlim_max = 0;
202                 if (setrlimit(RLIMIT_CORE, &rlim) < 0)
203                         fatal("setrlimit failed: %.100s", strerror(errno));
204         }
205 #endif
206         /* Get user data. */
207         pw = getpwuid(original_real_uid);
208         if (!pw) {
209                 logit("You don't exist, go away!");
210                 exit(1);
211         }
212         /* Take a copy of the returned structure. */
213         pw = pwcopy(pw);
214
215         /*
216          * Set our umask to something reasonable, as some files are created
217          * with the default umask.  This will make them world-readable but
218          * writable only by the owner, which is ok for all files for which we
219          * don't set the modes explicitly.
220          */
221         umask(022);
222
223         /* Initialize option structure to indicate that no values have been set. */
224         initialize_options(&options);
225
226         /* Parse command-line arguments. */
227         host = NULL;
228
229 again:
230         while ((opt = getopt(ac, av,
231             "1246ab:c:e:fgi:kl:m:no:p:qstvxACD:F:I:L:NPR:TVXY")) != -1) {
232                 switch (opt) {
233                 case '1':
234                         options.protocol = SSH_PROTO_1;
235                         break;
236                 case '2':
237                         options.protocol = SSH_PROTO_2;
238                         break;
239                 case '4':
240                         options.address_family = AF_INET;
241                         break;
242                 case '6':
243                         options.address_family = AF_INET6;
244                         break;
245                 case 'n':
246                         stdin_null_flag = 1;
247                         break;
248                 case 'f':
249                         fork_after_authentication_flag = 1;
250                         stdin_null_flag = 1;
251                         break;
252                 case 'x':
253                         options.forward_x11 = 0;
254                         break;
255                 case 'X':
256                         options.forward_x11 = 1;
257                         break;
258                 case 'Y':
259                         options.forward_x11 = 1;
260                         options.forward_x11_trusted = 1;
261                         break;
262                 case 'g':
263                         options.gateway_ports = 1;
264                         break;
265                 case 'P':       /* deprecated */
266                         options.use_privileged_port = 0;
267                         break;
268                 case 'a':
269                         options.forward_agent = 0;
270                         break;
271                 case 'A':
272                         options.forward_agent = 1;
273                         break;
274                 case 'k':
275                         options.gss_deleg_creds = 0;
276                         break;
277                 case 'i':
278                         if (stat(optarg, &st) < 0) {
279                                 fprintf(stderr, "Warning: Identity file %s "
280                                     "does not exist.\n", optarg);
281                                 break;
282                         }
283                         if (options.num_identity_files >=
284                             SSH_MAX_IDENTITY_FILES)
285                                 fatal("Too many identity files specified "
286                                     "(max %d)", SSH_MAX_IDENTITY_FILES);
287                         options.identity_files[options.num_identity_files++] =
288                             xstrdup(optarg);
289                         break;
290                 case 'I':
291 #ifdef SMARTCARD
292                         options.smartcard_device = xstrdup(optarg);
293 #else
294                         fprintf(stderr, "no support for smartcards.\n");
295 #endif
296                         break;
297                 case 't':
298                         if (tty_flag)
299                                 force_tty_flag = 1;
300                         tty_flag = 1;
301                         break;
302                 case 'v':
303                         if (debug_flag == 0) {
304                                 debug_flag = 1;
305                                 options.log_level = SYSLOG_LEVEL_DEBUG1;
306                         } else {
307                                 if (options.log_level < SYSLOG_LEVEL_DEBUG3)
308                                         options.log_level++;
309                                 break;
310                         }
311                         /* fallthrough */
312                 case 'V':
313                         fprintf(stderr, "%s, %s\n",
314                             SSH_VERSION, SSLeay_version(SSLEAY_VERSION));
315                         if (opt == 'V')
316                                 exit(0);
317                         break;
318                 case 'q':
319                         options.log_level = SYSLOG_LEVEL_QUIET;
320                         break;
321                 case 'e':
322                         if (optarg[0] == '^' && optarg[2] == 0 &&
323                             (u_char) optarg[1] >= 64 &&
324                             (u_char) optarg[1] < 128)
325                                 options.escape_char = (u_char) optarg[1] & 31;
326                         else if (strlen(optarg) == 1)
327                                 options.escape_char = (u_char) optarg[0];
328                         else if (strcmp(optarg, "none") == 0)
329                                 options.escape_char = SSH_ESCAPECHAR_NONE;
330                         else {
331                                 fprintf(stderr, "Bad escape character '%s'.\n",
332                                     optarg);
333                                 exit(1);
334                         }
335                         break;
336                 case 'c':
337                         if (ciphers_valid(optarg)) {
338                                 /* SSH2 only */
339                                 options.ciphers = xstrdup(optarg);
340                                 options.cipher = SSH_CIPHER_ILLEGAL;
341                         } else {
342                                 /* SSH1 only */
343                                 options.cipher = cipher_number(optarg);
344                                 if (options.cipher == -1) {
345                                         fprintf(stderr,
346                                             "Unknown cipher type '%s'\n",
347                                             optarg);
348                                         exit(1);
349                                 }
350                                 if (options.cipher == SSH_CIPHER_3DES)
351                                         options.ciphers = "3des-cbc";
352                                 else if (options.cipher == SSH_CIPHER_BLOWFISH)
353                                         options.ciphers = "blowfish-cbc";
354                                 else
355                                         options.ciphers = (char *)-1;
356                         }
357                         break;
358                 case 'm':
359                         if (mac_valid(optarg))
360                                 options.macs = xstrdup(optarg);
361                         else {
362                                 fprintf(stderr, "Unknown mac type '%s'\n",
363                                     optarg);
364                                 exit(1);
365                         }
366                         break;
367                 case 'p':
368                         options.port = a2port(optarg);
369                         if (options.port == 0) {
370                                 fprintf(stderr, "Bad port '%s'\n", optarg);
371                                 exit(1);
372                         }
373                         break;
374                 case 'l':
375                         options.user = optarg;
376                         break;
377
378                 case 'L':
379                 case 'R':
380                         if (sscanf(optarg, "%5[0123456789]:%255[^:]:%5[0123456789]",
381                             sfwd_port, buf, sfwd_host_port) != 3 &&
382                             sscanf(optarg, "%5[0123456789]/%255[^/]/%5[0123456789]",
383                             sfwd_port, buf, sfwd_host_port) != 3) {
384                                 fprintf(stderr,
385                                     "Bad forwarding specification '%s'\n",
386                                     optarg);
387                                 usage();
388                                 /* NOTREACHED */
389                         }
390                         if ((fwd_port = a2port(sfwd_port)) == 0 ||
391                             (fwd_host_port = a2port(sfwd_host_port)) == 0) {
392                                 fprintf(stderr,
393                                     "Bad forwarding port(s) '%s'\n", optarg);
394                                 exit(1);
395                         }
396                         if (opt == 'L')
397                                 add_local_forward(&options, fwd_port, buf,
398                                     fwd_host_port);
399                         else if (opt == 'R')
400                                 add_remote_forward(&options, fwd_port, buf,
401                                     fwd_host_port);
402                         break;
403
404                 case 'D':
405                         fwd_port = a2port(optarg);
406                         if (fwd_port == 0) {
407                                 fprintf(stderr, "Bad dynamic port '%s'\n",
408                                     optarg);
409                                 exit(1);
410                         }
411                         add_local_forward(&options, fwd_port, "socks", 0);
412                         break;
413
414                 case 'C':
415                         options.compression = 1;
416                         break;
417                 case 'N':
418                         no_shell_flag = 1;
419                         no_tty_flag = 1;
420                         break;
421                 case 'T':
422                         no_tty_flag = 1;
423                         break;
424                 case 'o':
425                         dummy = 1;
426                         line = xstrdup(optarg);
427                         if (process_config_line(&options, host ? host : "",
428                             line, "command-line", 0, &dummy) != 0)
429                                 exit(1);
430                         xfree(line);
431                         break;
432                 case 's':
433                         subsystem_flag = 1;
434                         break;
435                 case 'b':
436                         options.bind_address = optarg;
437                         break;
438                 case 'F':
439                         config = optarg;
440                         break;
441                 default:
442                         usage();
443                 }
444         }
445
446         ac -= optind;
447         av += optind;
448
449         if (ac > 0 && !host && **av != '-') {
450                 if (strrchr(*av, '@')) {
451                         p = xstrdup(*av);
452                         cp = strrchr(p, '@');
453                         if (cp == NULL || cp == p)
454                                 usage();
455                         options.user = p;
456                         *cp = '\0';
457                         host = ++cp;
458                 } else
459                         host = *av;
460                 if (ac > 1) {
461                         optind = optreset = 1;
462                         goto again;
463                 }
464                 ac--, av++;
465         }
466
467         /* Check that we got a host name. */
468         if (!host)
469                 usage();
470
471         SSLeay_add_all_algorithms();
472         ERR_load_crypto_strings();
473
474         /* Initialize the command to execute on remote host. */
475         buffer_init(&command);
476
477         /*
478          * Save the command to execute on the remote host in a buffer. There
479          * is no limit on the length of the command, except by the maximum
480          * packet size.  Also sets the tty flag if there is no command.
481          */
482         if (!ac) {
483                 /* No command specified - execute shell on a tty. */
484                 tty_flag = 1;
485                 if (subsystem_flag) {
486                         fprintf(stderr,
487                             "You must specify a subsystem to invoke.\n");
488                         usage();
489                 }
490         } else {
491                 /* A command has been specified.  Store it into the buffer. */
492                 for (i = 0; i < ac; i++) {
493                         if (i)
494                                 buffer_append(&command, " ", 1);
495                         buffer_append(&command, av[i], strlen(av[i]));
496                 }
497         }
498
499         /* Cannot fork to background if no command. */
500         if (fork_after_authentication_flag && buffer_len(&command) == 0 && !no_shell_flag)
501                 fatal("Cannot fork into background without a command to execute.");
502
503         /* Allocate a tty by default if no command specified. */
504         if (buffer_len(&command) == 0)
505                 tty_flag = 1;
506
507         /* Force no tty */
508         if (no_tty_flag)
509                 tty_flag = 0;
510         /* Do not allocate a tty if stdin is not a tty. */
511         if (!isatty(fileno(stdin)) && !force_tty_flag) {
512                 if (tty_flag)
513                         logit("Pseudo-terminal will not be allocated because stdin is not a terminal.");
514                 tty_flag = 0;
515         }
516
517         /*
518          * Initialize "log" output.  Since we are the client all output
519          * actually goes to stderr.
520          */
521         log_init(av[0], options.log_level == -1 ? SYSLOG_LEVEL_INFO : options.log_level,
522             SYSLOG_FACILITY_USER, 1);
523
524         /*
525          * Read per-user configuration file.  Ignore the system wide config
526          * file if the user specifies a config file on the command line.
527          */
528         if (config != NULL) {
529                 if (!read_config_file(config, host, &options))
530                         fatal("Can't open user config file %.100s: "
531                             "%.100s", config, strerror(errno));
532         } else  {
533                 snprintf(buf, sizeof buf, "%.100s/%.100s", pw->pw_dir,
534                     _PATH_SSH_USER_CONFFILE);
535                 (void)read_config_file(buf, host, &options);
536
537                 /* Read systemwide configuration file after use config. */
538                 (void)read_config_file(_PATH_HOST_CONFIG_FILE, host, &options);
539         }
540
541         /* Fill configuration defaults. */
542         fill_default_options(&options);
543
544         channel_set_af(options.address_family);
545
546         /* reinit */
547         log_init(av[0], options.log_level, SYSLOG_FACILITY_USER, 1);
548
549         seed_rng();
550
551         if (options.user == NULL)
552                 options.user = xstrdup(pw->pw_name);
553
554         if (options.hostname != NULL)
555                 host = options.hostname;
556
557         /* force lowercase for hostkey matching */
558         if (options.host_key_alias != NULL) {
559                 for (p = options.host_key_alias; *p; p++)
560                         if (isupper(*p))
561                                 *p = tolower(*p);
562         }
563
564         if (options.proxy_command != NULL &&
565             strcmp(options.proxy_command, "none") == 0)
566                 options.proxy_command = NULL;
567
568         /* Open a connection to the remote host. */
569         if (ssh_connect(host, &hostaddr, options.port,
570             options.address_family, options.connection_attempts,
571 #ifdef HAVE_CYGWIN
572             options.use_privileged_port,
573 #else
574             original_effective_uid == 0 && options.use_privileged_port,
575 #endif
576             options.proxy_command) != 0)
577                 exit(1);
578
579         /*
580          * If we successfully made the connection, load the host private key
581          * in case we will need it later for combined rsa-rhosts
582          * authentication. This must be done before releasing extra
583          * privileges, because the file is only readable by root.
584          * If we cannot access the private keys, load the public keys
585          * instead and try to execute the ssh-keysign helper instead.
586          */
587         sensitive_data.nkeys = 0;
588         sensitive_data.keys = NULL;
589         sensitive_data.external_keysign = 0;
590         if (options.rhosts_rsa_authentication ||
591             options.hostbased_authentication) {
592                 sensitive_data.nkeys = 3;
593                 sensitive_data.keys = xmalloc(sensitive_data.nkeys *
594                     sizeof(Key));
595
596                 PRIV_START;
597                 sensitive_data.keys[0] = key_load_private_type(KEY_RSA1,
598                     _PATH_HOST_KEY_FILE, "", NULL);
599                 sensitive_data.keys[1] = key_load_private_type(KEY_DSA,
600                     _PATH_HOST_DSA_KEY_FILE, "", NULL);
601                 sensitive_data.keys[2] = key_load_private_type(KEY_RSA,
602                     _PATH_HOST_RSA_KEY_FILE, "", NULL);
603                 PRIV_END;
604
605                 if (options.hostbased_authentication == 1 &&
606                     sensitive_data.keys[0] == NULL &&
607                     sensitive_data.keys[1] == NULL &&
608                     sensitive_data.keys[2] == NULL) {
609                         sensitive_data.keys[1] = key_load_public(
610                             _PATH_HOST_DSA_KEY_FILE, NULL);
611                         sensitive_data.keys[2] = key_load_public(
612                             _PATH_HOST_RSA_KEY_FILE, NULL);
613                         sensitive_data.external_keysign = 1;
614                 }
615         }
616         /*
617          * Get rid of any extra privileges that we may have.  We will no
618          * longer need them.  Also, extra privileges could make it very hard
619          * to read identity files and other non-world-readable files from the
620          * user's home directory if it happens to be on a NFS volume where
621          * root is mapped to nobody.
622          */
623         seteuid(original_real_uid);
624         setuid(original_real_uid);
625
626         /*
627          * Now that we are back to our own permissions, create ~/.ssh
628          * directory if it doesn\'t already exist.
629          */
630         snprintf(buf, sizeof buf, "%.100s%s%.100s", pw->pw_dir, strcmp(pw->pw_dir, "/") ? "/" : "", _PATH_SSH_USER_DIR);
631         if (stat(buf, &st) < 0)
632                 if (mkdir(buf, 0700) < 0)
633                         error("Could not create directory '%.200s'.", buf);
634
635         /* load options.identity_files */
636         load_public_identity_files();
637
638         /* Expand ~ in known host file names. */
639         /* XXX mem-leaks: */
640         options.system_hostfile =
641             tilde_expand_filename(options.system_hostfile, original_real_uid);
642         options.user_hostfile =
643             tilde_expand_filename(options.user_hostfile, original_real_uid);
644         options.system_hostfile2 =
645             tilde_expand_filename(options.system_hostfile2, original_real_uid);
646         options.user_hostfile2 =
647             tilde_expand_filename(options.user_hostfile2, original_real_uid);
648
649         signal(SIGPIPE, SIG_IGN); /* ignore SIGPIPE early */
650
651         /* Log into the remote system.  This never returns if the login fails. */
652         ssh_login(&sensitive_data, host, (struct sockaddr *)&hostaddr, pw);
653
654         /* We no longer need the private host keys.  Clear them now. */
655         if (sensitive_data.nkeys != 0) {
656                 for (i = 0; i < sensitive_data.nkeys; i++) {
657                         if (sensitive_data.keys[i] != NULL) {
658                                 /* Destroys contents safely */
659                                 debug3("clear hostkey %d", i);
660                                 key_free(sensitive_data.keys[i]);
661                                 sensitive_data.keys[i] = NULL;
662                         }
663                 }
664                 xfree(sensitive_data.keys);
665         }
666         for (i = 0; i < options.num_identity_files; i++) {
667                 if (options.identity_files[i]) {
668                         xfree(options.identity_files[i]);
669                         options.identity_files[i] = NULL;
670                 }
671                 if (options.identity_keys[i]) {
672                         key_free(options.identity_keys[i]);
673                         options.identity_keys[i] = NULL;
674                 }
675         }
676
677         exit_status = compat20 ? ssh_session2() : ssh_session();
678         packet_close();
679
680         /*
681          * Send SIGHUP to proxy command if used. We don't wait() in
682          * case it hangs and instead rely on init to reap the child
683          */
684         if (proxy_command_pid > 1)
685                 kill(proxy_command_pid, SIGHUP);
686
687         return exit_status;
688 }
689
690 #define SSH_X11_PROTO "MIT-MAGIC-COOKIE-1"
691
692 static void
693 x11_get_proto(char **_proto, char **_data)
694 {
695         char cmd[1024];
696         char line[512];
697         char xdisplay[512];
698         static char proto[512], data[512];
699         FILE *f;
700         int got_data = 0, generated = 0, do_unlink = 0, i;
701         char *display, *xauthdir, *xauthfile;
702         struct stat st;
703
704         xauthdir = xauthfile = NULL;
705         *_proto = proto;
706         *_data = data;
707         proto[0] = data[0] = '\0';
708
709         if (!options.xauth_location ||
710             (stat(options.xauth_location, &st) == -1)) {
711                 debug("No xauth program.");
712         } else {
713                 if ((display = getenv("DISPLAY")) == NULL) {
714                         debug("x11_get_proto: DISPLAY not set");
715                         return;
716                 }
717                 /*
718                  * Handle FamilyLocal case where $DISPLAY does
719                  * not match an authorization entry.  For this we
720                  * just try "xauth list unix:displaynum.screennum".
721                  * XXX: "localhost" match to determine FamilyLocal
722                  *      is not perfect.
723                  */
724                 if (strncmp(display, "localhost:", 10) == 0) {
725                         snprintf(xdisplay, sizeof(xdisplay), "unix:%s",
726                             display + 10);
727                         display = xdisplay;
728                 }
729                 if (options.forward_x11_trusted == 0) {
730                         xauthdir = xmalloc(MAXPATHLEN);
731                         xauthfile = xmalloc(MAXPATHLEN);
732                         strlcpy(xauthdir, "/tmp/ssh-XXXXXXXXXX", MAXPATHLEN);
733                         if (mkdtemp(xauthdir) != NULL) {
734                                 do_unlink = 1;
735                                 snprintf(xauthfile, MAXPATHLEN, "%s/xauthfile",
736                                     xauthdir);
737                                 snprintf(cmd, sizeof(cmd),
738                                     "%s -f %s generate %s " SSH_X11_PROTO
739                                     " untrusted timeout 1200 2>" _PATH_DEVNULL,
740                                     options.xauth_location, xauthfile, display);
741                                 debug2("x11_get_proto: %s", cmd);
742                                 if (system(cmd) == 0)
743                                         generated = 1;
744                         }
745                 }
746                 snprintf(cmd, sizeof(cmd),
747                     "%s %s%s list %s . 2>" _PATH_DEVNULL,
748                     options.xauth_location,
749                     generated ? "-f " : "" ,
750                     generated ? xauthfile : "",
751                     display);
752                 debug2("x11_get_proto: %s", cmd);
753                 f = popen(cmd, "r");
754                 if (f && fgets(line, sizeof(line), f) &&
755                     sscanf(line, "%*s %511s %511s", proto, data) == 2)
756                         got_data = 1;
757                 if (f)
758                         pclose(f);
759         }
760
761         if (do_unlink) {
762                 unlink(xauthfile);
763                 rmdir(xauthdir);
764         }
765         if (xauthdir)
766                 xfree(xauthdir);
767         if (xauthfile)
768                 xfree(xauthfile);
769
770         /*
771          * If we didn't get authentication data, just make up some
772          * data.  The forwarding code will check the validity of the
773          * response anyway, and substitute this data.  The X11
774          * server, however, will ignore this fake data and use
775          * whatever authentication mechanisms it was using otherwise
776          * for the local connection.
777          */
778         if (!got_data) {
779                 u_int32_t rand = 0;
780
781                 logit("Warning: No xauth data; "
782                     "using fake authentication data for X11 forwarding.");
783                 strlcpy(proto, SSH_X11_PROTO, sizeof proto);
784                 for (i = 0; i < 16; i++) {
785                         if (i % 4 == 0)
786                                 rand = arc4random();
787                         snprintf(data + 2 * i, sizeof data - 2 * i, "%02x",
788                             rand & 0xff);
789                         rand >>= 8;
790                 }
791         }
792 }
793
794 static void
795 ssh_init_forwarding(void)
796 {
797         int success = 0;
798         int i;
799
800         /* Initiate local TCP/IP port forwardings. */
801         for (i = 0; i < options.num_local_forwards; i++) {
802                 debug("Connections to local port %d forwarded to remote address %.200s:%d",
803                     options.local_forwards[i].port,
804                     options.local_forwards[i].host,
805                     options.local_forwards[i].host_port);
806                 success += channel_setup_local_fwd_listener(
807                     options.local_forwards[i].port,
808                     options.local_forwards[i].host,
809                     options.local_forwards[i].host_port,
810                     options.gateway_ports);
811         }
812         if (i > 0 && success == 0)
813                 error("Could not request local forwarding.");
814
815         /* Initiate remote TCP/IP port forwardings. */
816         for (i = 0; i < options.num_remote_forwards; i++) {
817                 debug("Connections to remote port %d forwarded to local address %.200s:%d",
818                     options.remote_forwards[i].port,
819                     options.remote_forwards[i].host,
820                     options.remote_forwards[i].host_port);
821                 channel_request_remote_forwarding(
822                     options.remote_forwards[i].port,
823                     options.remote_forwards[i].host,
824                     options.remote_forwards[i].host_port);
825         }
826 }
827
828 static void
829 check_agent_present(void)
830 {
831         if (options.forward_agent) {
832                 /* Clear agent forwarding if we don\'t have an agent. */
833                 if (!ssh_agent_present())
834                         options.forward_agent = 0;
835         }
836 }
837
838 static int
839 ssh_session(void)
840 {
841         int type;
842         int interactive = 0;
843         int have_tty = 0;
844         struct winsize ws;
845         char *cp;
846
847         /* Enable compression if requested. */
848         if (options.compression) {
849                 debug("Requesting compression at level %d.", options.compression_level);
850
851                 if (options.compression_level < 1 || options.compression_level > 9)
852                         fatal("Compression level must be from 1 (fast) to 9 (slow, best).");
853
854                 /* Send the request. */
855                 packet_start(SSH_CMSG_REQUEST_COMPRESSION);
856                 packet_put_int(options.compression_level);
857                 packet_send();
858                 packet_write_wait();
859                 type = packet_read();
860                 if (type == SSH_SMSG_SUCCESS)
861                         packet_start_compression(options.compression_level);
862                 else if (type == SSH_SMSG_FAILURE)
863                         logit("Warning: Remote host refused compression.");
864                 else
865                         packet_disconnect("Protocol error waiting for compression response.");
866         }
867         /* Allocate a pseudo tty if appropriate. */
868         if (tty_flag) {
869                 debug("Requesting pty.");
870
871                 /* Start the packet. */
872                 packet_start(SSH_CMSG_REQUEST_PTY);
873
874                 /* Store TERM in the packet.  There is no limit on the
875                    length of the string. */
876                 cp = getenv("TERM");
877                 if (!cp)
878                         cp = "";
879                 packet_put_cstring(cp);
880
881                 /* Store window size in the packet. */
882                 if (ioctl(fileno(stdin), TIOCGWINSZ, &ws) < 0)
883                         memset(&ws, 0, sizeof(ws));
884                 packet_put_int(ws.ws_row);
885                 packet_put_int(ws.ws_col);
886                 packet_put_int(ws.ws_xpixel);
887                 packet_put_int(ws.ws_ypixel);
888
889                 /* Store tty modes in the packet. */
890                 tty_make_modes(fileno(stdin), NULL);
891
892                 /* Send the packet, and wait for it to leave. */
893                 packet_send();
894                 packet_write_wait();
895
896                 /* Read response from the server. */
897                 type = packet_read();
898                 if (type == SSH_SMSG_SUCCESS) {
899                         interactive = 1;
900                         have_tty = 1;
901                 } else if (type == SSH_SMSG_FAILURE)
902                         logit("Warning: Remote host failed or refused to allocate a pseudo tty.");
903                 else
904                         packet_disconnect("Protocol error waiting for pty request response.");
905         }
906         /* Request X11 forwarding if enabled and DISPLAY is set. */
907         if (options.forward_x11 && getenv("DISPLAY") != NULL) {
908                 char *proto, *data;
909                 /* Get reasonable local authentication information. */
910                 x11_get_proto(&proto, &data);
911                 /* Request forwarding with authentication spoofing. */
912                 debug("Requesting X11 forwarding with authentication spoofing.");
913                 x11_request_forwarding_with_spoofing(0, proto, data);
914
915                 /* Read response from the server. */
916                 type = packet_read();
917                 if (type == SSH_SMSG_SUCCESS) {
918                         interactive = 1;
919                 } else if (type == SSH_SMSG_FAILURE) {
920                         logit("Warning: Remote host denied X11 forwarding.");
921                 } else {
922                         packet_disconnect("Protocol error waiting for X11 forwarding");
923                 }
924         }
925         /* Tell the packet module whether this is an interactive session. */
926         packet_set_interactive(interactive);
927
928         /* Request authentication agent forwarding if appropriate. */
929         check_agent_present();
930
931         if (options.forward_agent) {
932                 debug("Requesting authentication agent forwarding.");
933                 auth_request_forwarding();
934
935                 /* Read response from the server. */
936                 type = packet_read();
937                 packet_check_eom();
938                 if (type != SSH_SMSG_SUCCESS)
939                         logit("Warning: Remote host denied authentication agent forwarding.");
940         }
941
942         /* Initiate port forwardings. */
943         ssh_init_forwarding();
944
945         /* If requested, let ssh continue in the background. */
946         if (fork_after_authentication_flag)
947                 if (daemon(1, 1) < 0)
948                         fatal("daemon() failed: %.200s", strerror(errno));
949
950         /*
951          * If a command was specified on the command line, execute the
952          * command now. Otherwise request the server to start a shell.
953          */
954         if (buffer_len(&command) > 0) {
955                 int len = buffer_len(&command);
956                 if (len > 900)
957                         len = 900;
958                 debug("Sending command: %.*s", len, (u_char *)buffer_ptr(&command));
959                 packet_start(SSH_CMSG_EXEC_CMD);
960                 packet_put_string(buffer_ptr(&command), buffer_len(&command));
961                 packet_send();
962                 packet_write_wait();
963         } else {
964                 debug("Requesting shell.");
965                 packet_start(SSH_CMSG_EXEC_SHELL);
966                 packet_send();
967                 packet_write_wait();
968         }
969
970         /* Enter the interactive session. */
971         return client_loop(have_tty, tty_flag ?
972             options.escape_char : SSH_ESCAPECHAR_NONE, 0);
973 }
974
975 static void
976 client_subsystem_reply(int type, u_int32_t seq, void *ctxt)
977 {
978         int id, len;
979
980         id = packet_get_int();
981         len = buffer_len(&command);
982         if (len > 900)
983                 len = 900;
984         packet_check_eom();
985         if (type == SSH2_MSG_CHANNEL_FAILURE)
986                 fatal("Request for subsystem '%.*s' failed on channel %d",
987                     len, (u_char *)buffer_ptr(&command), id);
988 }
989
990 void
991 client_global_request_reply_fwd(int type, u_int32_t seq, void *ctxt)
992 {
993         int i;
994
995         i = client_global_request_id++;
996         if (i >= options.num_remote_forwards)
997                 return;
998         debug("remote forward %s for: listen %d, connect %s:%d",
999             type == SSH2_MSG_REQUEST_SUCCESS ? "success" : "failure",
1000             options.remote_forwards[i].port,
1001             options.remote_forwards[i].host,
1002             options.remote_forwards[i].host_port);
1003         if (type == SSH2_MSG_REQUEST_FAILURE)
1004                 logit("Warning: remote port forwarding failed for listen port %d",
1005                     options.remote_forwards[i].port);
1006 }
1007
1008 /* request pty/x11/agent/tcpfwd/shell for channel */
1009 static void
1010 ssh_session2_setup(int id, void *arg)
1011 {
1012         int len;
1013         int interactive = 0;
1014         struct termios tio;
1015
1016         debug2("ssh_session2_setup: id %d", id);
1017
1018         if (tty_flag) {
1019                 struct winsize ws;
1020                 char *cp;
1021                 cp = getenv("TERM");
1022                 if (!cp)
1023                         cp = "";
1024                 /* Store window size in the packet. */
1025                 if (ioctl(fileno(stdin), TIOCGWINSZ, &ws) < 0)
1026                         memset(&ws, 0, sizeof(ws));
1027
1028                 channel_request_start(id, "pty-req", 0);
1029                 packet_put_cstring(cp);
1030                 packet_put_int(ws.ws_col);
1031                 packet_put_int(ws.ws_row);
1032                 packet_put_int(ws.ws_xpixel);
1033                 packet_put_int(ws.ws_ypixel);
1034                 tio = get_saved_tio();
1035                 tty_make_modes(/*ignored*/ 0, &tio);
1036                 packet_send();
1037                 interactive = 1;
1038                 /* XXX wait for reply */
1039         }
1040         if (options.forward_x11 &&
1041             getenv("DISPLAY") != NULL) {
1042                 char *proto, *data;
1043                 /* Get reasonable local authentication information. */
1044                 x11_get_proto(&proto, &data);
1045                 /* Request forwarding with authentication spoofing. */
1046                 debug("Requesting X11 forwarding with authentication spoofing.");
1047                 x11_request_forwarding_with_spoofing(id, proto, data);
1048                 interactive = 1;
1049                 /* XXX wait for reply */
1050         }
1051
1052         check_agent_present();
1053         if (options.forward_agent) {
1054                 debug("Requesting authentication agent forwarding.");
1055                 channel_request_start(id, "auth-agent-req@openssh.com", 0);
1056                 packet_send();
1057         }
1058
1059         len = buffer_len(&command);
1060         if (len > 0) {
1061                 if (len > 900)
1062                         len = 900;
1063                 if (subsystem_flag) {
1064                         debug("Sending subsystem: %.*s", len, (u_char *)buffer_ptr(&command));
1065                         channel_request_start(id, "subsystem", /*want reply*/ 1);
1066                         /* register callback for reply */
1067                         /* XXX we assume that client_loop has already been called */
1068                         dispatch_set(SSH2_MSG_CHANNEL_FAILURE, &client_subsystem_reply);
1069                         dispatch_set(SSH2_MSG_CHANNEL_SUCCESS, &client_subsystem_reply);
1070                 } else {
1071                         debug("Sending command: %.*s", len, (u_char *)buffer_ptr(&command));
1072                         channel_request_start(id, "exec", 0);
1073                 }
1074                 packet_put_string(buffer_ptr(&command), buffer_len(&command));
1075                 packet_send();
1076         } else {
1077                 channel_request_start(id, "shell", 0);
1078                 packet_send();
1079         }
1080
1081         packet_set_interactive(interactive);
1082 }
1083
1084 /* open new channel for a session */
1085 static int
1086 ssh_session2_open(void)
1087 {
1088         Channel *c;
1089         int window, packetmax, in, out, err;
1090
1091         if (stdin_null_flag) {
1092                 in = open(_PATH_DEVNULL, O_RDONLY);
1093         } else {
1094                 in = dup(STDIN_FILENO);
1095         }
1096         out = dup(STDOUT_FILENO);
1097         err = dup(STDERR_FILENO);
1098
1099         if (in < 0 || out < 0 || err < 0)
1100                 fatal("dup() in/out/err failed");
1101
1102         /* enable nonblocking unless tty */
1103         if (!isatty(in))
1104                 set_nonblock(in);
1105         if (!isatty(out))
1106                 set_nonblock(out);
1107         if (!isatty(err))
1108                 set_nonblock(err);
1109
1110         window = CHAN_SES_WINDOW_DEFAULT;
1111         packetmax = CHAN_SES_PACKET_DEFAULT;
1112         if (tty_flag) {
1113                 window >>= 1;
1114                 packetmax >>= 1;
1115         }
1116         c = channel_new(
1117             "session", SSH_CHANNEL_OPENING, in, out, err,
1118             window, packetmax, CHAN_EXTENDED_WRITE,
1119             "client-session", /*nonblock*/0);
1120
1121         debug3("ssh_session2_open: channel_new: %d", c->self);
1122
1123         channel_send_open(c->self);
1124         if (!no_shell_flag)
1125                 channel_register_confirm(c->self, ssh_session2_setup);
1126
1127         return c->self;
1128 }
1129
1130 static int
1131 ssh_session2(void)
1132 {
1133         int id = -1;
1134
1135         /* XXX should be pre-session */
1136         ssh_init_forwarding();
1137
1138         if (!no_shell_flag || (datafellows & SSH_BUG_DUMMYCHAN))
1139                 id = ssh_session2_open();
1140
1141         /* If requested, let ssh continue in the background. */
1142         if (fork_after_authentication_flag)
1143                 if (daemon(1, 1) < 0)
1144                         fatal("daemon() failed: %.200s", strerror(errno));
1145
1146         return client_loop(tty_flag, tty_flag ?
1147             options.escape_char : SSH_ESCAPECHAR_NONE, id);
1148 }
1149
1150 static void
1151 load_public_identity_files(void)
1152 {
1153         char *filename;
1154         int i = 0;
1155         Key *public;
1156 #ifdef SMARTCARD
1157         Key **keys;
1158
1159         if (options.smartcard_device != NULL &&
1160             options.num_identity_files < SSH_MAX_IDENTITY_FILES &&
1161             (keys = sc_get_keys(options.smartcard_device, NULL)) != NULL ) {
1162                 int count = 0;
1163                 for (i = 0; keys[i] != NULL; i++) {
1164                         count++;
1165                         memmove(&options.identity_files[1], &options.identity_files[0],
1166                             sizeof(char *) * (SSH_MAX_IDENTITY_FILES - 1));
1167                         memmove(&options.identity_keys[1], &options.identity_keys[0],
1168                             sizeof(Key *) * (SSH_MAX_IDENTITY_FILES - 1));
1169                         options.num_identity_files++;
1170                         options.identity_keys[0] = keys[i];
1171                         options.identity_files[0] = sc_get_key_label(keys[i]);
1172                 }
1173                 if (options.num_identity_files > SSH_MAX_IDENTITY_FILES)
1174                         options.num_identity_files = SSH_MAX_IDENTITY_FILES;
1175                 i = count;
1176                 xfree(keys);
1177         }
1178 #endif /* SMARTCARD */
1179         for (; i < options.num_identity_files; i++) {
1180                 filename = tilde_expand_filename(options.identity_files[i],
1181                     original_real_uid);
1182                 public = key_load_public(filename, NULL);
1183                 debug("identity file %s type %d", filename,
1184                     public ? public->type : -1);
1185                 xfree(options.identity_files[i]);
1186                 options.identity_files[i] = filename;
1187                 options.identity_keys[i] = public;
1188         }
1189 }