78 lines
2.3 KiB
C
78 lines
2.3 KiB
C
|
/*
|
||
|
|
* Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
|
||
|
|
*
|
||
|
|
* Licensed under the OpenSSL license (the "License"). You may not use
|
||
|
|
* this file except in compliance with the License. You can obtain a copy
|
||
|
|
* in the file LICENSE in the source distribution or at
|
||
|
|
* https://www.openssl.org/source/license.html
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <openssl/crypto.h>
|
||
|
|
#include "des_local.h"
|
||
|
|
|
||
|
|
void DES_string_to_key(const char *str, DES_cblock *key)
|
||
|
|
{
|
||
|
|
DES_key_schedule ks;
|
||
|
|
int i, length;
|
||
|
|
|
||
|
|
memset(key, 0, 8);
|
||
|
|
length = strlen(str);
|
||
|
|
for (i = 0; i < length; i++) {
|
||
|
|
register unsigned char j = str[i];
|
||
|
|
|
||
|
|
if ((i % 16) < 8)
|
||
|
|
(*key)[i % 8] ^= (j << 1);
|
||
|
|
else {
|
||
|
|
/* Reverse the bit order 05/05/92 eay */
|
||
|
|
j = ((j << 4) & 0xf0) | ((j >> 4) & 0x0f);
|
||
|
|
j = ((j << 2) & 0xcc) | ((j >> 2) & 0x33);
|
||
|
|
j = ((j << 1) & 0xaa) | ((j >> 1) & 0x55);
|
||
|
|
(*key)[7 - (i % 8)] ^= j;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
DES_set_odd_parity(key);
|
||
|
|
DES_set_key_unchecked(key, &ks);
|
||
|
|
DES_cbc_cksum((const unsigned char *)str, key, length, &ks, key);
|
||
|
|
OPENSSL_cleanse(&ks, sizeof(ks));
|
||
|
|
DES_set_odd_parity(key);
|
||
|
|
}
|
||
|
|
|
||
|
|
void DES_string_to_2keys(const char *str, DES_cblock *key1, DES_cblock *key2)
|
||
|
|
{
|
||
|
|
DES_key_schedule ks;
|
||
|
|
int i, length;
|
||
|
|
|
||
|
|
memset(key1, 0, 8);
|
||
|
|
memset(key2, 0, 8);
|
||
|
|
length = strlen(str);
|
||
|
|
for (i = 0; i < length; i++) {
|
||
|
|
register unsigned char j = str[i];
|
||
|
|
|
||
|
|
if ((i % 32) < 16) {
|
||
|
|
if ((i % 16) < 8)
|
||
|
|
(*key1)[i % 8] ^= (j << 1);
|
||
|
|
else
|
||
|
|
(*key2)[i % 8] ^= (j << 1);
|
||
|
|
} else {
|
||
|
|
j = ((j << 4) & 0xf0) | ((j >> 4) & 0x0f);
|
||
|
|
j = ((j << 2) & 0xcc) | ((j >> 2) & 0x33);
|
||
|
|
j = ((j << 1) & 0xaa) | ((j >> 1) & 0x55);
|
||
|
|
if ((i % 16) < 8)
|
||
|
|
(*key1)[7 - (i % 8)] ^= j;
|
||
|
|
else
|
||
|
|
(*key2)[7 - (i % 8)] ^= j;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (length <= 8)
|
||
|
|
memcpy(key2, key1, 8);
|
||
|
|
DES_set_odd_parity(key1);
|
||
|
|
DES_set_odd_parity(key2);
|
||
|
|
DES_set_key_unchecked(key1, &ks);
|
||
|
|
DES_cbc_cksum((const unsigned char *)str, key1, length, &ks, key1);
|
||
|
|
DES_set_key_unchecked(key2, &ks);
|
||
|
|
DES_cbc_cksum((const unsigned char *)str, key2, length, &ks, key2);
|
||
|
|
OPENSSL_cleanse(&ks, sizeof(ks));
|
||
|
|
DES_set_odd_parity(key1);
|
||
|
|
DES_set_odd_parity(key2);
|
||
|
|
}
|