Introduce a sane interface function, from_backend(), for backends to
[u/mdw/putty] / scp.c
diff --git a/scp.c b/scp.c
index 1160139..3c3369f 100644 (file)
--- a/scp.c
+++ b/scp.c
@@ -9,7 +9,13 @@
  */
 
 #include <windows.h>
+#ifndef AUTO_WINSOCK
+#ifdef WINSOCK_TWO
+#include <winsock2.h>
+#else
 #include <winsock.h>
+#endif
+#endif
 #include <stdlib.h>
 #include <stdio.h>
 #include <string.h>
@@ -20,7 +26,8 @@
 
 #define PUTTY_DO_GLOBALS
 #include "putty.h"
-#include "scp.h"
+#include "winstuff.h"
+#include "storage.h"
 
 #define TIME_POSIX_TO_WIN(t, ft) (*(LONGLONG*)&(ft) = \
        ((LONGLONG) (t) + (LONGLONG) 11644473600) * (LONGLONG) 10000000)
@@ -67,34 +74,97 @@ static void send_char_msg(unsigned int msg_id, char c);
 static void send_str_msg(unsigned int msg_id, char *str);
 static void gui_update_stats(char *name, unsigned long size, int percentage, time_t elapsed);
 
-/*
- *  This function is needed to link with ssh.c, but it never gets called.
- */
-void term_out(void)
-{
-    abort();
+void begin_session(void) { }
+void logevent(char *string) { }
+
+void verify_ssh_host_key(char *host, int port, char *keytype,
+                         char *keystr, char *fingerprint) {
+    int ret;
+
+    static const char absentmsg[] =
+        "The server's host key is not cached in the registry. You\n"
+        "have no guarantee that the server is the computer you\n"
+        "think it is.\n"
+        "The server's key fingerprint is:\n"
+        "%s\n"
+        "If you trust this host, enter \"y\" to add the key to\n"
+        "PuTTY's cache and carry on connecting.\n"
+        "If you do not trust this host, enter \"n\" to abandon the\n"
+        "connection.\n"
+        "Continue connecting? (y/n) ";
+
+    static const char wrongmsg[] =
+        "WARNING - POTENTIAL SECURITY BREACH!\n"
+        "The server's host key does not match the one PuTTY has\n"
+        "cached in the registry. This means that either the\n"
+        "server administrator has changed the host key, or you\n"
+        "have actually connected to another computer pretending\n"
+        "to be the server.\n"
+        "The new key fingerprint is:\n"
+        "%s\n"
+        "If you were expecting this change and trust the new key,\n"
+        "enter Yes to update PuTTY's cache and continue connecting.\n"
+        "If you want to carry on connecting but without updating\n"
+        "the cache, enter No.\n"
+        "If you want to abandon the connection completely, press\n"
+        "Return to cancel. Pressing Return is the ONLY guaranteed\n"
+        "safe choice.\n"
+        "Update cached key? (y/n, Return cancels connection) ";
+
+    static const char abandoned[] = "Connection abandoned.\n";
+
+    char line[32];
+
+    /*
+     * Verify the key against the registry.
+     */
+    ret = verify_host_key(host, port, keytype, keystr);
+
+    if (ret == 0)                      /* success - key matched OK */
+        return;
+    if (ret == 2) {                    /* key was different */
+        fprintf(stderr, wrongmsg, fingerprint);
+        if (fgets(line, sizeof(line), stdin) &&
+            line[0] != '\0' && line[0] != '\n') {
+            if (line[0] == 'y' || line[0] == 'Y')
+                store_host_key(host, port, keytype, keystr);
+        } else {
+            fprintf(stderr, abandoned);
+            exit(0);
+        }
+    }
+    if (ret == 1) {                    /* key was absent */
+        fprintf(stderr, absentmsg, fingerprint);
+        if (fgets(line, sizeof(line), stdin) &&
+            (line[0] == 'y' || line[0] == 'Y'))
+            store_host_key(host, port, keytype, keystr);
+        else {
+            fprintf(stderr, abandoned);
+            exit(0);
+        }
+    }
 }
 
 /* GUI Adaptation - Sept 2000 */
-void send_msg(HWND h, UINT message, WPARAM wParam)
+static void send_msg(HWND h, UINT message, WPARAM wParam)
 {
     while (!PostMessage( h, message, wParam, 0))
         SleepEx(1000,TRUE);
 }
 
-void tell_char(FILE *stream, char c)
+static void tell_char(FILE *stream, char c)
 {
     if (!gui_mode)
        fputc(c, stream);
     else
     {
        unsigned int msg_id = WM_STD_OUT_CHAR;
-       if (stream = stderr) msg_id = WM_STD_ERR_CHAR;
+       if (stream == stderr) msg_id = WM_STD_ERR_CHAR;
        send_msg( (HWND)atoi(gui_hwnd), msg_id, (WPARAM)c );
     }
 }
 
-void tell_str(FILE *stream, char *str)
+static void tell_str(FILE *stream, char *str)
 {
     unsigned int i;
 
@@ -102,7 +172,7 @@ void tell_str(FILE *stream, char *str)
        tell_char(stream, str[i]);
 }
 
-void tell_user(FILE *stream, char *fmt, ...)
+static void tell_user(FILE *stream, char *fmt, ...)
 {
     char str[0x100]; /* Make the size big enough */
     va_list ap;
@@ -113,7 +183,7 @@ void tell_user(FILE *stream, char *fmt, ...)
     tell_str(stream, str);
 }
 
-void gui_update_stats(char *name, unsigned long size, int percentage, time_t elapsed)
+static void gui_update_stats(char *name, unsigned long size, int percentage, time_t elapsed)
 {
     unsigned int i;
 
@@ -157,6 +227,136 @@ void fatalbox(char *fmt, ...)
 
     exit(1);
 }
+void connection_fatal(char *fmt, ...)
+{
+    char str[0x100]; /* Make the size big enough */
+    va_list ap;
+    va_start(ap, fmt);
+    strcpy(str, "Fatal:");
+    vsprintf(str+strlen(str), fmt, ap);
+    va_end(ap);
+    strcat(str, "\n");
+    tell_str(stderr, str);
+
+    exit(1);
+}
+
+/*
+ * Receive a block of data from the SSH link. Block until all data
+ * is available.
+ *
+ * To do this, we repeatedly call the SSH protocol module, with our
+ * own trap in from_backend() to catch the data that comes back. We
+ * do this until we have enough data.
+ */
+static unsigned char *outptr;          /* where to put the data */
+static unsigned outlen;                /* how much data required */
+static unsigned char *pending = NULL;  /* any spare data */
+static unsigned pendlen=0, pendsize=0; /* length and phys. size of buffer */
+void from_backend(int is_stderr, char *data, int datalen) {
+    unsigned char *p = (unsigned char *)data;
+    unsigned len = (unsigned)datalen;
+
+    /*
+     * stderr data is just spouted to local stderr and otherwise
+     * ignored.
+     */
+    if (is_stderr) {
+       fwrite(data, 1, len, stderr);
+       return;
+    }
+
+    inbuf_head = 0;
+
+    /*
+     * If this is before the real session begins, just return.
+     */
+    if (!outptr)
+        return;
+
+    if (outlen > 0) {
+        unsigned used = outlen;
+        if (used > len) used = len;
+        memcpy(outptr, p, used);
+        outptr += used; outlen -= used;
+        p += used; len -= used;
+    }
+
+    if (len > 0) {
+        if (pendsize < pendlen + len) {
+            pendsize = pendlen + len + 4096;
+            pending = (pending ? realloc(pending, pendsize) :
+                       malloc(pendsize));
+            if (!pending)
+                fatalbox("Out of memory");
+        }
+        memcpy(pending+pendlen, p, len);
+        pendlen += len;
+    }
+}
+static int ssh_scp_recv(unsigned char *buf, int len) {
+    SOCKET s;
+
+    outptr = buf;
+    outlen = len;
+
+    /*
+     * See if the pending-input block contains some of what we
+     * need.
+     */
+    if (pendlen > 0) {
+        unsigned pendused = pendlen;
+        if (pendused > outlen)
+            pendused = outlen;
+       memcpy(outptr, pending, pendused);
+        memmove(pending, pending+pendused, pendlen-pendused);
+       outptr += pendused;
+       outlen -= pendused;
+        pendlen -= pendused;
+        if (pendlen == 0) {
+            pendsize = 0;
+            free(pending);
+            pending = NULL;
+        }
+        if (outlen == 0)
+            return len;
+    }
+
+    while (outlen > 0) {
+        fd_set readfds;
+        s = back->socket();
+        if (s == INVALID_SOCKET) {
+            connection_open = FALSE;
+            return 0;
+        }
+        FD_ZERO(&readfds);
+        FD_SET(s, &readfds);
+        if (select(1, &readfds, NULL, NULL, NULL) < 0)
+            return 0;                  /* doom */
+        back->msg(0, FD_READ);
+    }
+
+    return len;
+}
+
+/*
+ * Loop through the ssh connection and authentication process.
+ */
+static void ssh_scp_init(void) {
+    SOCKET s;
+
+    s = back->socket();
+    if (s == INVALID_SOCKET)
+       return;
+    while (!back->sendok()) {
+        fd_set readfds;
+        FD_ZERO(&readfds);
+        FD_SET(s, &readfds);
+        if (select(1, &readfds, NULL, NULL, NULL) < 0)
+            return;                    /* doom */
+        back->msg(0, FD_READ);
+    }
+}
 
 /*
  *  Print an error message and exit after closing the SSH link.
@@ -174,7 +374,7 @@ static void bump(char *fmt, ...)
 
     if (connection_open) {
        char ch;
-       ssh_scp_send_eof();
+       back->special(TS_EOF);
        ssh_scp_recv(&ch, 1);
     }
     exit(1);
@@ -236,7 +436,7 @@ static void do_cmd(char *host, char *user, char *cmd)
        bump("Empty host name");
 
     /* Try to load settings for this host */
-    do_defaults(host);
+    do_defaults(host, &cfg);
     if (cfg.host[0] == '\0') {
        /* No settings for this host; use defaults */
        strncpy(cfg.host, host, sizeof(cfg.host)-1);
@@ -258,9 +458,16 @@ static void do_cmd(char *host, char *user, char *cmd)
     if (portnumber)
        cfg.port = portnumber;
 
-    err = ssh_scp_init(cfg.host, cfg.port, cmd, &realhost);
+    strncpy(cfg.remote_cmd, cmd, sizeof(cfg.remote_cmd));
+    cfg.remote_cmd[sizeof(cfg.remote_cmd)-1] = '\0';
+    cfg.nopty = TRUE;
+
+    back = &ssh_backend;
+
+    err = back->init(NULL, cfg.host, cfg.port, &realhost);
     if (err != NULL)
        bump("ssh_init: %s", err);
+    ssh_scp_init();
     if (verbose && realhost != NULL)
        tell_user(stderr, "Connected to %s\n", realhost);
 
@@ -378,7 +585,7 @@ static void run_err(const char *fmt, ...)
     strcpy(str, "\01scp: ");
     vsprintf(str+strlen(str), fmt, ap);
     strcat(str, "\n");
-    ssh_scp_send(str, strlen(str));
+    back->send(str, strlen(str));
     tell_user(stderr, "%s",str);
     va_end(ap);
 }
@@ -449,7 +656,7 @@ static void source(char *src)
        TIME_WIN_TO_POSIX(actime, atime);
        TIME_WIN_TO_POSIX(wrtime, mtime);
        sprintf(buf, "T%lu 0 %lu 0\n", mtime, atime);
-       ssh_scp_send(buf, strlen(buf));
+       back->send(buf, strlen(buf));
        if (response())
            return;
     }
@@ -458,7 +665,7 @@ static void source(char *src)
     sprintf(buf, "C0644 %lu %s\n", size, last);
     if (verbose)
        tell_user(stderr, "Sending file modes: %s", buf);
-    ssh_scp_send(buf, strlen(buf));
+    back->send(buf, strlen(buf));
     if (response())
        return;
 
@@ -476,7 +683,7 @@ static void source(char *src)
            if (statistics) printf("\n");
            bump("%s: Read error", src);
        }
-       ssh_scp_send(transbuf, k);
+       back->send(transbuf, k);
        if (statistics) {
            stat_bytes += k;
            if (time(NULL) != stat_lasttime ||
@@ -489,7 +696,7 @@ static void source(char *src)
     }
     CloseHandle(f);
 
-    ssh_scp_send("", 1);
+    back->send("", 1);
     (void) response();
 }
 
@@ -518,7 +725,7 @@ static void rsource(char *src)
     sprintf(buf, "D0755 0 %s\n", last);
     if (verbose)
        tell_user(stderr, "Entering directory: %s", buf);
-    ssh_scp_send(buf, strlen(buf));
+    back->send(buf, strlen(buf));
     if (response())
        return;
 
@@ -540,7 +747,7 @@ static void rsource(char *src)
     FindClose(dir);
 
     sprintf(buf, "E\n");
-    ssh_scp_send(buf, strlen(buf));
+    back->send(buf, strlen(buf));
     (void) response();
 }
 
@@ -572,7 +779,7 @@ static void sink(char *targ)
     if (targetshouldbedirectory && !targisdir)
        bump("%s: Not a directory", targ);
 
-    ssh_scp_send("", 1);
+    back->send("", 1);
     while (1) {
        settime = 0;
        gottime:
@@ -596,13 +803,13 @@ static void sink(char *targ)
          case '\02':   /* fatal error */
            bump("%s", buf+1);
          case 'E':
-           ssh_scp_send("", 1);
+           back->send("", 1);
            return;
          case 'T':
            if (sscanf(buf, "T%ld %*d %ld %*d",
                       &mtime, &atime) == 2) {
                settime = 1;
-               ssh_scp_send("", 1);
+               back->send("", 1);
                goto gottime;
            }
            bump("Protocol error: Illegal time format");
@@ -652,7 +859,7 @@ static void sink(char *targ)
            continue;
        }
 
-       ssh_scp_send("", 1);
+       back->send("", 1);
 
        if (statistics) {
            stat_bytes = 0;
@@ -705,7 +912,7 @@ static void sink(char *targ)
            run_err("%s: Write error", namebuf);
            continue;
        }
-       ssh_scp_send("", 1);
+       back->send("", 1);
     }
 }
 
@@ -1012,7 +1219,7 @@ int main(int argc, char *argv[])
 
     if (connection_open) {
        char ch;
-       ssh_scp_send_eof();
+       back->special(TS_EOF);
        ssh_scp_recv(&ch, 1);
     }
     WSACleanup();