Replace aes.c and des.c by Libgcrypt
[metze/wireshark/wip.git] / wsutil / wsgcrypt.c
1 /* wsgcrypt.c
2  * Helper functions for libgcrypt
3  * By Erik de Jong <erikdejong@gmail.com>
4  * Copyright 2017 Erik de Jong
5  *
6  * Wireshark - Network traffic analyzer
7  * By Gerald Combs <gerald@wireshark.org>
8  * Copyright 1998 Gerald Combs
9  *
10  * This program is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU General Public License
12  * as published by the Free Software Foundation; either version 2
13  * of the License, or (at your option) any later version.
14  *
15  * This program is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  * GNU General Public License for more details.
19  *
20  * You should have received a copy of the GNU General Public License
21  * along with this program; if not, write to the Free Software
22  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23  *
24  */
25
26 #include "wsgcrypt.h"
27
28 gcry_error_t ws_hmac_buffer(int algo, void *digest, const void *buffer, size_t length, const void *key, size_t keylen)
29 {
30         gcry_md_hd_t hmac_handle;
31         gcry_error_t result = gcry_md_open(&hmac_handle, algo, GCRY_MD_FLAG_HMAC);
32         if (result) {
33                 return result;
34         }
35         result = gcry_md_setkey(hmac_handle, key, keylen);
36         if (result) {
37                 gcry_md_close(hmac_handle);
38                 return result;
39         }
40         gcry_md_write(hmac_handle, buffer, length);
41         memcpy(digest, gcry_md_read(hmac_handle, 0), gcry_md_get_algo_dlen(algo));
42         gcry_md_close(hmac_handle);
43         return GPG_ERR_NO_ERROR;
44 }
45
46 void crypt_des_ecb(guint8 *output, const guint8 *buffer, const guint8 *key56)
47 {
48         guint8 key64[8];
49         gcry_cipher_hd_t handle;
50
51         memset(output, 0x00, 8);
52
53         /* Transform 56 bits key into 64 bits DES key */
54         key64[0] = key56[0];
55         key64[1] = (key56[0] << 7) | (key56[1] >> 1);
56         key64[2] = (key56[1] << 6) | (key56[2] >> 2);
57         key64[3] = (key56[2] << 5) | (key56[3] >> 3);
58         key64[4] = (key56[3] << 4) | (key56[4] >> 4);
59         key64[5] = (key56[4] << 3) | (key56[5] >> 5);
60         key64[6] = (key56[5] << 2) | (key56[6] >> 6);
61         key64[7] = (key56[6] << 1);
62
63         if (gcry_cipher_open(&handle, GCRY_CIPHER_DES, GCRY_CIPHER_MODE_ECB, 0)) {
64                 return;
65         }
66         if (gcry_cipher_setkey(handle, key64, 8)) {
67                 gcry_cipher_close(handle);
68                 return;
69         }
70         gcry_cipher_encrypt(handle, output, 8, buffer, 8);
71         gcry_cipher_close(handle);
72 }
73
74 /*
75  * Editor modelines  -  http://www.wireshark.org/tools/modelines.html
76  *
77  * Local variables:
78  * c-basic-offset: 8
79  * tab-width: 8
80  * indent-tabs-mode: t
81  * End:
82  *
83  * vi: set shiftwidth=8 tabstop=8 noexpandtab:
84  * :indentSize=8:tabSize=8:noTabs=false:
85  */