crypto/des/str2key.c

   1 /*
   2  * Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the Apache License 2.0 (the "License").  You may not use
   5  * this file except in compliance with the License.  You can obtain a copy
   6  * in the file LICENSE in the source distribution or at
   7  * https://www.openssl.org/source/license.html
   8  */
   9
  10 /*
  11  * DES low level APIs are deprecated for public use, but still ok for internal
  12  * use.
  13  */
  14 #include "internal/deprecated.h"
  15
  16 #include <openssl/crypto.h>
  17 #include "des_local.h"
  18
  19 void DES_string_to_key(const char *str, DES_cblock *key)
  20 {
  21     DES_key_schedule ks;
  22     int i, length;
  23
  24     memset(key, 0, 8);
  25     length = strlen(str);
  26     for (i = 0; i < length; i++) {
  27         register unsigned char j = str[i];
  28
  29         if ((i % 16) < 8)
  30             (*key)[i % 8] ^= (j << 1);
  31         else {
  32             /* Reverse the bit order 05/05/92 eay */
  33             j = ((j << 4) & 0xf0) | ((j >> 4) & 0x0f);
  34             j = ((j << 2) & 0xcc) | ((j >> 2) & 0x33);
  35             j = ((j << 1) & 0xaa) | ((j >> 1) & 0x55);
  36             (*key)[7 - (i % 8)] ^= j;
  37         }
  38     }
  39     DES_set_odd_parity(key);
  40     DES_set_key_unchecked(key, &ks);
  41     DES_cbc_cksum((const unsigned char *)str, key, length, &ks, key);
  42     OPENSSL_cleanse(&ks, sizeof(ks));
  43     DES_set_odd_parity(key);
  44 }
  45
  46 void DES_string_to_2keys(const char *str, DES_cblock *key1, DES_cblock *key2)
  47 {
  48     DES_key_schedule ks;
  49     int i, length;
  50
  51     memset(key1, 0, 8);
  52     memset(key2, 0, 8);
  53     length = strlen(str);
  54     for (i = 0; i < length; i++) {
  55         register unsigned char j = str[i];
  56
  57         if ((i % 32) < 16) {
  58             if ((i % 16) < 8)
  59                 (*key1)[i % 8] ^= (j << 1);
  60             else
  61                 (*key2)[i % 8] ^= (j << 1);
  62         } else {
  63             j = ((j << 4) & 0xf0) | ((j >> 4) & 0x0f);
  64             j = ((j << 2) & 0xcc) | ((j >> 2) & 0x33);
  65             j = ((j << 1) & 0xaa) | ((j >> 1) & 0x55);
  66             if ((i % 16) < 8)
  67                 (*key1)[7 - (i % 8)] ^= j;
  68             else
  69                 (*key2)[7 - (i % 8)] ^= j;
  70         }
  71     }
  72     if (length <= 8)
  73         memcpy(key2, key1, 8);
  74     DES_set_odd_parity(key1);
  75     DES_set_odd_parity(key2);
  76     DES_set_key_unchecked(key1, &ks);
  77     DES_cbc_cksum((const unsigned char *)str, key1, length, &ks, key1);
  78     DES_set_key_unchecked(key2, &ks);
  79     DES_cbc_cksum((const unsigned char *)str, key2, length, &ks, key2);
  80     OPENSSL_cleanse(&ks, sizeof(ks));
  81     DES_set_odd_parity(key1);
  82     DES_set_odd_parity(key2);
  83 }