src/common/passcrypt.c

   1 /*
   2  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
   3  * Copyright (C) 1999-2003 Hiroyuki Yamamoto and the Sylpheed-Claws Team
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18  */
  19
  20 #define _XOPEN_SOURCE
  21
  22 #include <sys/types.h>
  23 #include <stdio.h>
  24 #include <memory.h>
  25 #include <ctype.h>
  26 #include <stdlib.h>
  27 #include <unistd.h>
  28
  29 #include <glib.h>
  30
  31 #include "passcrypt.h"
  32
  33 void crypt_cfb_buf(const char key[8], void *buf, unsigned len,
  34                    unsigned chunksize, int decrypt);
  35 static void crypt_cfb_shift(unsigned char *to,
  36                             const unsigned char *from, unsigned len);
  37 static void crypt_cfb_xor(unsigned char *to, const unsigned char *from,
  38                           unsigned len);
  39 static void crypt_unpack(unsigned char *a);
  40
  41 void passcrypt_encrypt(gchar *password, guint len)
  42 {
  43         crypt_cfb_buf(PASSCRYPT_KEY, password, len, 1, 0 );
  44 }
  45
  46 void passcrypt_decrypt(gchar *password, guint len)
  47 {
  48         crypt_cfb_buf(PASSCRYPT_KEY, password, len, 1, 1 );
  49 }
  50
  51 /*
  52 * crypt_cfb_iv is the intermediate vector used for cypher feedback encryption
  53 */
  54 unsigned char crypt_cfb_iv[64];
  55 int crypt_cfb_blocksize = 8;    /* 8 for DES */
  56
  57 void
  58 crypt_cfb_buf(const char key[8], void *buf, unsigned len,
  59               unsigned chunksize, int decrypt)
  60 {
  61         unsigned char temp[64];
  62
  63         memcpy(temp, key, 8);
  64         crypt_unpack(temp);
  65         setkey((const char *) temp);
  66         memset(temp, 0, sizeof(temp));
  67
  68         memset(crypt_cfb_iv, 0, sizeof(crypt_cfb_iv));
  69
  70         if (chunksize > crypt_cfb_blocksize)
  71                 chunksize = crypt_cfb_blocksize;
  72
  73         while (len) {
  74                 memcpy(temp, crypt_cfb_iv, sizeof(temp));
  75                 encrypt((char *) temp, 0);
  76                 if (chunksize > len)
  77                         chunksize = len;
  78                 if (decrypt)
  79                         crypt_cfb_shift(crypt_cfb_iv,
  80                                         (unsigned char *) buf, chunksize);
  81                 crypt_cfb_xor((unsigned char *) buf, temp, chunksize);
  82                 if (!decrypt)
  83                         crypt_cfb_shift(crypt_cfb_iv,
  84                                         (unsigned char *) buf, chunksize);
  85                 len -= chunksize;
  86                 buf += chunksize;
  87         }
  88 }
  89
  90 /*
  91 * Shift len bytes from end of to buffer to beginning, then put len
  92 * bytes from from at the end.  Caution: the to buffer is unpacked,
  93 * but the from buffer is not.
  94 */
  95 static void
  96 crypt_cfb_shift(unsigned char *to, const unsigned char *from, unsigned len)
  97 {
  98         unsigned i;
  99         unsigned j;
 100         unsigned k;
 101
 102         if (len < crypt_cfb_blocksize) {
 103                 i = len * 8;
 104                 j = crypt_cfb_blocksize * 8;
 105                 for (k = i; k < j; k++) {
 106                         to[0] = to[i];
 107                         ++to;
 108                 }
 109         }
 110
 111         for (i = 0; i < len; i++) {
 112                 j = *from++;
 113                 for (k = 0x80; k; k >>= 1)
 114                         *to++ = ((j & k) != 0);
 115         }
 116 }
 117
 118 /*
 119 * XOR len bytes from from into the data at to.  Caution: the from buffer
 120 * is unpacked, but the to buffer is not.
 121 */
 122 static void
 123 crypt_cfb_xor(unsigned char *to, const unsigned char *from, unsigned len)
 124 {
 125         unsigned i;
 126         unsigned j;
 127         unsigned char c;
 128
 129         for (i = 0; i < len; i++) {
 130                 c = 0;
 131                 for (j = 0; j < 8; j++)
 132                         c = (c << 1) | *from++;
 133                 *to++ ^= c;
 134         }
 135 }
 136
 137 /*
 138 * Take the 8-byte array at *a (must be able to hold 64 bytes!) and unpack
 139 * each bit into its own byte.
 140 */
 141 static void crypt_unpack(unsigned char *a)
 142 {
 143         int i, j;
 144
 145         for (i = 7; i >= 0; --i)
 146                 for (j = 7; j >= 0; --j)
 147                         a[(i << 3) + j] = (a[i] & (0x80 >> j)) != 0;
 148 }