Consistently use a single notation to refer to SSH protocol versions, as
[u/mdw/putty] / sshdes.c
index 9cb9cfa..65231c8 100644 (file)
--- a/sshdes.c
+++ b/sshdes.c
 
 typedef struct {
     word32 k0246[16], k1357[16];
-    word32 eiv0, eiv1;
-    word32 div0, div1;
+    word32 iv0, iv1;
 } DESContext;
 
 #define rotl(x, c) ( (x << c) | (x >> (32-c)) )
@@ -297,7 +296,7 @@ static word32 bitsel(word32 * input, const int *bitnums, int size)
     return ret;
 }
 
-void des_key_setup(word32 key_msw, word32 key_lsw, DESContext * sched)
+static void des_key_setup(word32 key_msw, word32 key_lsw, DESContext * sched)
 {
 
     static const int PC1_Cbits[] = {
@@ -346,8 +345,7 @@ void des_key_setup(word32 key_msw, word32 key_lsw, DESContext * sched)
        sched->k1357[i] = bitsel(buf, PC2_1357, 32);
     }
 
-    sched->eiv0 = sched->eiv1 = 0;
-    sched->div0 = sched->div1 = 0;     /* for good measure */
+    sched->iv0 = sched->iv1 = 0;
 }
 
 static const word32 SPboxes[8][64] = {
@@ -522,7 +520,8 @@ static const word32 SPboxes[8][64] = {
     bitswap(R, L, 16, 0x0000FFFF), \
     bitswap(R, L,  4, 0x0F0F0F0F))
 
-void des_encipher(word32 * output, word32 L, word32 R, DESContext * sched)
+static void des_encipher(word32 * output, word32 L, word32 R,
+                        DESContext * sched)
 {
     word32 swap, s0246, s1357;
 
@@ -561,7 +560,8 @@ void des_encipher(word32 * output, word32 L, word32 R, DESContext * sched)
     output[1] = R;
 }
 
-void des_decipher(word32 * output, word32 L, word32 R, DESContext * sched)
+static void des_decipher(word32 * output, word32 L, word32 R,
+                        DESContext * sched)
 {
     word32 swap, s0246, s1357;
 
@@ -620,8 +620,8 @@ static void des_cbc_encrypt(unsigned char *dest, const unsigned char *src,
 
     assert((len & 7) == 0);
 
-    iv0 = sched->eiv0;
-    iv1 = sched->eiv1;
+    iv0 = sched->iv0;
+    iv1 = sched->iv1;
     for (i = 0; i < len; i += 8) {
        iv0 ^= GET_32BIT_MSB_FIRST(src);
        src += 4;
@@ -635,8 +635,8 @@ static void des_cbc_encrypt(unsigned char *dest, const unsigned char *src,
        PUT_32BIT_MSB_FIRST(dest, iv1);
        dest += 4;
     }
-    sched->eiv0 = iv0;
-    sched->eiv1 = iv1;
+    sched->iv0 = iv0;
+    sched->iv1 = iv1;
 }
 
 static void des_cbc_decrypt(unsigned char *dest, const unsigned char *src,
@@ -647,8 +647,8 @@ static void des_cbc_decrypt(unsigned char *dest, const unsigned char *src,
 
     assert((len & 7) == 0);
 
-    iv0 = sched->div0;
-    iv1 = sched->div1;
+    iv0 = sched->iv0;
+    iv1 = sched->iv1;
     for (i = 0; i < len; i += 8) {
        xL = GET_32BIT_MSB_FIRST(src);
        src += 4;
@@ -664,8 +664,8 @@ static void des_cbc_decrypt(unsigned char *dest, const unsigned char *src,
        iv0 = xL;
        iv1 = xR;
     }
-    sched->div0 = iv0;
-    sched->div1 = iv1;
+    sched->iv0 = iv0;
+    sched->iv1 = iv1;
 }
 
 static void des_3cbc_encrypt(unsigned char *dest, const unsigned char *src,
@@ -684,8 +684,8 @@ static void des_cbc3_encrypt(unsigned char *dest, const unsigned char *src,
 
     assert((len & 7) == 0);
 
-    iv0 = scheds->eiv0;
-    iv1 = scheds->eiv1;
+    iv0 = scheds->iv0;
+    iv1 = scheds->iv1;
     for (i = 0; i < len; i += 8) {
        iv0 ^= GET_32BIT_MSB_FIRST(src);
        src += 4;
@@ -701,8 +701,8 @@ static void des_cbc3_encrypt(unsigned char *dest, const unsigned char *src,
        PUT_32BIT_MSB_FIRST(dest, iv1);
        dest += 4;
     }
-    scheds->eiv0 = iv0;
-    scheds->eiv1 = iv1;
+    scheds->iv0 = iv0;
+    scheds->iv1 = iv1;
 }
 
 static void des_3cbc_decrypt(unsigned char *dest, const unsigned char *src,
@@ -721,8 +721,8 @@ static void des_cbc3_decrypt(unsigned char *dest, const unsigned char *src,
 
     assert((len & 7) == 0);
 
-    iv0 = scheds->div0;
-    iv1 = scheds->div1;
+    iv0 = scheds->iv0;
+    iv1 = scheds->iv1;
     for (i = 0; i < len; i += 8) {
        xL = GET_32BIT_MSB_FIRST(src);
        src += 4;
@@ -740,94 +740,103 @@ static void des_cbc3_decrypt(unsigned char *dest, const unsigned char *src,
        iv0 = xL;
        iv1 = xR;
     }
-    scheds->div0 = iv0;
-    scheds->div1 = iv1;
+    scheds->iv0 = iv0;
+    scheds->iv1 = iv1;
 }
 
-static DESContext cskeys[3], sckeys[3];
+static void *des3_make_context(void)
+{
+    return snewn(3, DESContext);
+}
 
-static void des3_cskey(unsigned char *key)
+static void *des3_ssh1_make_context(void)
 {
-    des_key_setup(GET_32BIT_MSB_FIRST(key),
-                 GET_32BIT_MSB_FIRST(key + 4), &cskeys[0]);
-    des_key_setup(GET_32BIT_MSB_FIRST(key + 8),
-                 GET_32BIT_MSB_FIRST(key + 12), &cskeys[1]);
-    des_key_setup(GET_32BIT_MSB_FIRST(key + 16),
-                 GET_32BIT_MSB_FIRST(key + 20), &cskeys[2]);
-    logevent("Initialised triple-DES client->server encryption");
+    /* Need 3 keys for each direction, in SSH-1 */
+    return snewn(6, DESContext);
 }
 
-static void des_cskey(unsigned char *key)
+static void *des_make_context(void)
 {
-    des_key_setup(GET_32BIT_MSB_FIRST(key),
-                 GET_32BIT_MSB_FIRST(key + 4), &cskeys[0]);
-    logevent("Initialised single-DES client->server encryption");
+    return snew(DESContext);
 }
 
-static void des3_csiv(unsigned char *key)
+static void *des_ssh1_make_context(void)
 {
-    cskeys[0].eiv0 = GET_32BIT_MSB_FIRST(key);
-    cskeys[0].eiv1 = GET_32BIT_MSB_FIRST(key + 4);
+    /* Need one key for each direction, in SSH-1 */
+    return snewn(2, DESContext);
 }
 
-static void des3_sciv(unsigned char *key)
+static void des3_free_context(void *handle)   /* used for both 3DES and DES */
 {
-    sckeys[0].div0 = GET_32BIT_MSB_FIRST(key);
-    sckeys[0].div1 = GET_32BIT_MSB_FIRST(key + 4);
+    sfree(handle);
 }
 
-static void des3_sckey(unsigned char *key)
+static void des3_key(void *handle, unsigned char *key)
 {
+    DESContext *keys = (DESContext *) handle;
     des_key_setup(GET_32BIT_MSB_FIRST(key),
-                 GET_32BIT_MSB_FIRST(key + 4), &sckeys[0]);
+                 GET_32BIT_MSB_FIRST(key + 4), &keys[0]);
     des_key_setup(GET_32BIT_MSB_FIRST(key + 8),
-                 GET_32BIT_MSB_FIRST(key + 12), &sckeys[1]);
+                 GET_32BIT_MSB_FIRST(key + 12), &keys[1]);
     des_key_setup(GET_32BIT_MSB_FIRST(key + 16),
-                 GET_32BIT_MSB_FIRST(key + 20), &sckeys[2]);
-    logevent("Initialised triple-DES server->client encryption");
+                 GET_32BIT_MSB_FIRST(key + 20), &keys[2]);
 }
 
-static void des_sckey(unsigned char *key)
+static void des3_iv(void *handle, unsigned char *key)
 {
+    DESContext *keys = (DESContext *) handle;
+    keys[0].iv0 = GET_32BIT_MSB_FIRST(key);
+    keys[0].iv1 = GET_32BIT_MSB_FIRST(key + 4);
+}
+
+static void des_key(void *handle, unsigned char *key)
+{
+    DESContext *keys = (DESContext *) handle;
     des_key_setup(GET_32BIT_MSB_FIRST(key),
-                 GET_32BIT_MSB_FIRST(key + 4), &sckeys[0]);
-    logevent("Initialised single-DES server->client encryption");
+                 GET_32BIT_MSB_FIRST(key + 4), &keys[0]);
 }
 
-static void des3_sesskey(unsigned char *key)
+static void des3_sesskey(void *handle, unsigned char *key)
 {
-    des3_cskey(key);
-    des3_sckey(key);
+    DESContext *keys = (DESContext *) handle;
+    des3_key(keys, key);
+    des3_key(keys+3, key);
 }
 
-static void des3_encrypt_blk(unsigned char *blk, int len)
+static void des3_encrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_3cbc_encrypt(blk, blk, len, cskeys);
+    DESContext *keys = (DESContext *) handle;
+    des_3cbc_encrypt(blk, blk, len, keys);
 }
 
-static void des3_decrypt_blk(unsigned char *blk, int len)
+static void des3_decrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_3cbc_decrypt(blk, blk, len, sckeys);
+    DESContext *keys = (DESContext *) handle;
+    des_3cbc_decrypt(blk, blk, len, keys+3);
 }
 
-static void des3_ssh2_encrypt_blk(unsigned char *blk, int len)
+static void des3_ssh2_encrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_cbc3_encrypt(blk, blk, len, cskeys);
+    DESContext *keys = (DESContext *) handle;
+    des_cbc3_encrypt(blk, blk, len, keys);
 }
 
-static void des3_ssh2_decrypt_blk(unsigned char *blk, int len)
+static void des3_ssh2_decrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_cbc3_decrypt(blk, blk, len, sckeys);
+    DESContext *keys = (DESContext *) handle;
+    des_cbc3_decrypt(blk, blk, len, keys);
 }
 
-static void des_ssh2_encrypt_blk(unsigned char *blk, int len)
+static void des_ssh2_encrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_cbc_encrypt(blk, blk, len, cskeys);
+    DESContext *keys = (DESContext *) handle;
+    des_cbc_encrypt(blk, blk, len, keys);
 }
 
-static void des_ssh2_decrypt_blk(unsigned char *blk, int len)
+static void des_ssh2_decrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_cbc_decrypt(blk, blk, len, sckeys);
+    DESContext *keys = (DESContext *) handle;
+    des_cbc_decrypt(blk, blk, len, keys);
 }
 
 void des3_decrypt_pubkey(unsigned char *key, unsigned char *blk, int len)
@@ -866,8 +875,8 @@ void des3_decrypt_pubkey_ossh(unsigned char *key, unsigned char *iv,
                  GET_32BIT_MSB_FIRST(key + 12), &ourkeys[1]);
     des_key_setup(GET_32BIT_MSB_FIRST(key + 16),
                  GET_32BIT_MSB_FIRST(key + 20), &ourkeys[2]);
-    ourkeys[0].div0 = GET_32BIT_MSB_FIRST(iv);
-    ourkeys[0].div1 = GET_32BIT_MSB_FIRST(iv+4);
+    ourkeys[0].iv0 = GET_32BIT_MSB_FIRST(iv);
+    ourkeys[0].iv1 = GET_32BIT_MSB_FIRST(iv+4);
     des_cbc3_decrypt(blk, blk, len, ourkeys);
     memset(ourkeys, 0, sizeof(ourkeys));
 }
@@ -882,33 +891,76 @@ void des3_encrypt_pubkey_ossh(unsigned char *key, unsigned char *iv,
                  GET_32BIT_MSB_FIRST(key + 12), &ourkeys[1]);
     des_key_setup(GET_32BIT_MSB_FIRST(key + 16),
                  GET_32BIT_MSB_FIRST(key + 20), &ourkeys[2]);
-    ourkeys[0].eiv0 = GET_32BIT_MSB_FIRST(iv);
-    ourkeys[0].eiv1 = GET_32BIT_MSB_FIRST(iv+4);
+    ourkeys[0].iv0 = GET_32BIT_MSB_FIRST(iv);
+    ourkeys[0].iv1 = GET_32BIT_MSB_FIRST(iv+4);
     des_cbc3_encrypt(blk, blk, len, ourkeys);
     memset(ourkeys, 0, sizeof(ourkeys));
 }
 
+static void des_keysetup_xdmauth(unsigned char *keydata, DESContext *dc)
+{
+    unsigned char key[8];
+    int i, nbits, j;
+    unsigned int bits;
+
+    bits = 0;
+    nbits = 0;
+    j = 0;
+    for (i = 0; i < 8; i++) {
+       if (nbits < 7) {
+           bits = (bits << 8) | keydata[j];
+           nbits += 8;
+           j++;
+       }
+       key[i] = (bits >> (nbits - 7)) << 1;
+       bits &= ~(0x7F << (nbits - 7));
+       nbits -= 7;
+    }
+
+    des_key_setup(GET_32BIT_MSB_FIRST(key), GET_32BIT_MSB_FIRST(key + 4), dc);
+}
+
+void des_encrypt_xdmauth(unsigned char *keydata, unsigned char *blk, int len)
+{
+    DESContext dc;
+    des_keysetup_xdmauth(keydata, &dc);
+    des_cbc_encrypt(blk, blk, 24, &dc);
+}
+
+void des_decrypt_xdmauth(unsigned char *keydata, unsigned char *blk, int len)
+{
+    DESContext dc;
+    des_keysetup_xdmauth(keydata, &dc);
+    des_cbc_decrypt(blk, blk, 24, &dc);
+}
+
 static const struct ssh2_cipher ssh_3des_ssh2 = {
-    des3_csiv, des3_cskey,
-    des3_sciv, des3_sckey,
-    des3_ssh2_encrypt_blk,
-    des3_ssh2_decrypt_blk,
+    des3_make_context, des3_free_context, des3_iv, des3_key,
+    des3_ssh2_encrypt_blk, des3_ssh2_decrypt_blk,
     "3des-cbc",
-    8, 168
+    8, 168, "triple-DES"
 };
 
 /*
- * Single DES in ssh2. It isn't clear that "des-cbc" is an official
- * cipher name, but ssh.com support it and apparently aren't the
- * only people to do so, so we sigh and implement it anyway.
+ * Single DES in SSH-2. "des-cbc" is marked as HISTORIC in
+ * draft-ietf-secsh-assignednumbers-04.txt, referring to
+ * FIPS-46-3.  ("Single DES (i.e., DES) will be permitted 
+ * for legacy systems only.") , but ssh.com support it and 
+ * apparently aren't the only people to do so, so we sigh 
+ * and implement it anyway.
  */
 static const struct ssh2_cipher ssh_des_ssh2 = {
-    des3_csiv, des_cskey,             /* iv functions shared with 3des */
-    des3_sciv, des_sckey,
-    des_ssh2_encrypt_blk,
-    des_ssh2_decrypt_blk,
+    des_make_context, des3_free_context, des3_iv, des_key,
+    des_ssh2_encrypt_blk, des_ssh2_decrypt_blk,
     "des-cbc",
-    8, 56
+    8, 56, "single-DES"
+};
+
+static const struct ssh2_cipher ssh_des_sshcom_ssh2 = {
+    des_make_context, des3_free_context, des3_iv, des_key,
+    des_ssh2_encrypt_blk, des_ssh2_decrypt_blk,
+    "des-cbc@ssh.com",
+    8, 56, "single-DES"
 };
 
 static const struct ssh2_cipher *const des3_list[] = {
@@ -921,40 +973,42 @@ const struct ssh2_ciphers ssh2_3des = {
 };
 
 static const struct ssh2_cipher *const des_list[] = {
-    &ssh_des_ssh2
+    &ssh_des_ssh2,
+    &ssh_des_sshcom_ssh2
 };
 
 const struct ssh2_ciphers ssh2_des = {
-    sizeof(des3_list) / sizeof(*des_list),
+    sizeof(des_list) / sizeof(*des_list),
     des_list
 };
 
 const struct ssh_cipher ssh_3des = {
-    des3_sesskey,
-    des3_encrypt_blk,
-    des3_decrypt_blk,
-    8
+    des3_ssh1_make_context, des3_free_context, des3_sesskey,
+    des3_encrypt_blk, des3_decrypt_blk,
+    8, "triple-DES"
 };
 
-static void des_sesskey(unsigned char *key)
+static void des_sesskey(void *handle, unsigned char *key)
 {
-    des_cskey(key);
-    des_sckey(key);
+    DESContext *keys = (DESContext *) handle;
+    des_key(keys, key);
+    des_key(keys+1, key);
 }
 
-static void des_encrypt_blk(unsigned char *blk, int len)
+static void des_encrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_cbc_encrypt(blk, blk, len, cskeys);
+    DESContext *keys = (DESContext *) handle;
+    des_cbc_encrypt(blk, blk, len, keys);
 }
 
-static void des_decrypt_blk(unsigned char *blk, int len)
+static void des_decrypt_blk(void *handle, unsigned char *blk, int len)
 {
-    des_cbc_decrypt(blk, blk, len, cskeys);
+    DESContext *keys = (DESContext *) handle;
+    des_cbc_decrypt(blk, blk, len, keys+1);
 }
 
 const struct ssh_cipher ssh_des = {
-    des_sesskey,
-    des_encrypt_blk,
-    des_decrypt_blk,
-    8
+    des_ssh1_make_context, des3_free_context, des_sesskey,
+    des_encrypt_blk, des_decrypt_blk,
+    8, "single-DES"
 };