summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/gost/gostr341194.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/gost/gostr341194.c')
-rw-r--r--src/lib/libcrypto/gost/gostr341194.c278
1 files changed, 0 insertions, 278 deletions
diff --git a/src/lib/libcrypto/gost/gostr341194.c b/src/lib/libcrypto/gost/gostr341194.c
deleted file mode 100644
index 311c304539..0000000000
--- a/src/lib/libcrypto/gost/gostr341194.c
+++ /dev/null
@@ -1,278 +0,0 @@
1/* $OpenBSD: gostr341194.c,v 1.7 2023/07/08 14:30:44 beck Exp $ */
2/*
3 * Copyright (c) 2014 Dmitry Eremin-Solenikov <dbaryshkov@gmail.com>
4 * Copyright (c) 2005-2006 Cryptocom LTD
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 *
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 *
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in
15 * the documentation and/or other materials provided with the
16 * distribution.
17 *
18 * 3. All advertising materials mentioning features or use of this
19 * software must display the following acknowledgment:
20 * "This product includes software developed by the OpenSSL Project
21 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
22 *
23 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
24 * endorse or promote products derived from this software without
25 * prior written permission. For written permission, please contact
26 * openssl-core@openssl.org.
27 *
28 * 5. Products derived from this software may not be called "OpenSSL"
29 * nor may "OpenSSL" appear in their names without prior written
30 * permission of the OpenSSL Project.
31 *
32 * 6. Redistributions of any form whatsoever must retain the following
33 * acknowledgment:
34 * "This product includes software developed by the OpenSSL Project
35 * for use in the OpenSSL Toolkit (http://www.openssl.org/)"
36 *
37 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
38 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
39 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
40 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
41 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
42 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
43 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
44 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
45 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
46 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
47 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
48 * OF THE POSSIBILITY OF SUCH DAMAGE.
49 * ====================================================================
50 */
51
52#include <string.h>
53
54#include <openssl/opensslconf.h>
55
56#ifndef OPENSSL_NO_GOST
57#include <openssl/crypto.h>
58#include <openssl/objects.h>
59#include <openssl/gost.h>
60
61#include "gost_local.h"
62
63/* Following functions are various bit meshing routines used in
64 * GOST R 34.11-94 algorithms */
65static void
66swap_bytes(unsigned char *w, unsigned char *k)
67{
68 int i, j;
69
70 for (i = 0; i < 4; i++)
71 for (j = 0; j < 8; j++)
72 k[i + 4 * j] = w[8 * i + j];
73}
74
75/* was A_A */
76static void
77circle_xor8(const unsigned char *w, unsigned char *k)
78{
79 unsigned char buf[8];
80 int i;
81
82 memcpy(buf, w, 8);
83 memmove(k, w + 8, 24);
84 for (i = 0; i < 8; i++)
85 k[i + 24] = buf[i] ^ k[i];
86}
87
88/* was R_R */
89static void
90transform_3(unsigned char *data)
91{
92 unsigned short int acc;
93
94 acc = (data[0] ^ data[2] ^ data[4] ^ data[6] ^ data[24] ^ data[30]) |
95 ((data[1] ^ data[3] ^ data[5] ^ data[7] ^ data[25] ^ data[31]) << 8);
96 memmove(data, data + 2, 30);
97 data[30] = acc & 0xff;
98 data[31] = acc >> 8;
99}
100
101/* Adds blocks of N bytes modulo 2**(8*n). Returns carry*/
102static int
103add_blocks(int n, unsigned char *left, const unsigned char *right)
104{
105 int i;
106 int carry = 0;
107 int sum;
108
109 for (i = 0; i < n; i++) {
110 sum = (int)left[i] + (int)right[i] + carry;
111 left[i] = sum & 0xff;
112 carry = sum >> 8;
113 }
114 return carry;
115}
116
117/* Xor two sequences of bytes */
118static void
119xor_blocks(unsigned char *result, const unsigned char *a,
120 const unsigned char *b, size_t len)
121{
122 size_t i;
123
124 for (i = 0; i < len; i++)
125 result[i] = a[i] ^ b[i];
126}
127
128/*
129 * Calculate H(i+1) = Hash(Hi,Mi)
130 * Where H and M are 32 bytes long
131 */
132static int
133hash_step(GOSTR341194_CTX *c, unsigned char *H, const unsigned char *M)
134{
135 unsigned char U[32], W[32], V[32], S[32], Key[32];
136 int i;
137
138 /* Compute first key */
139 xor_blocks(W, H, M, 32);
140 swap_bytes(W, Key);
141 /* Encrypt first 8 bytes of H with first key */
142 Gost2814789_set_key(&c->cipher, Key, 256);
143 Gost2814789_encrypt(H, S, &c->cipher);
144
145 /* Compute second key */
146 circle_xor8(H, U);
147 circle_xor8(M, V);
148 circle_xor8(V, V);
149 xor_blocks(W, U, V, 32);
150 swap_bytes(W, Key);
151 /* encrypt second 8 bytes of H with second key */
152 Gost2814789_set_key(&c->cipher, Key, 256);
153 Gost2814789_encrypt(H+8, S+8, &c->cipher);
154
155 /* compute third key */
156 circle_xor8(U, U);
157 U[31] = ~U[31];
158 U[29] = ~U[29];
159 U[28] = ~U[28];
160 U[24] = ~U[24];
161 U[23] = ~U[23];
162 U[20] = ~U[20];
163 U[18] = ~U[18];
164 U[17] = ~U[17];
165 U[14] = ~U[14];
166 U[12] = ~U[12];
167 U[10] = ~U[10];
168 U[8] = ~U[8];
169 U[7] = ~U[7];
170 U[5] = ~U[5];
171 U[3] = ~U[3];
172 U[1] = ~U[1];
173 circle_xor8(V, V);
174 circle_xor8(V, V);
175 xor_blocks(W, U, V, 32);
176 swap_bytes(W, Key);
177 /* encrypt third 8 bytes of H with third key */
178 Gost2814789_set_key(&c->cipher, Key, 256);
179 Gost2814789_encrypt(H+16, S+16, &c->cipher);
180
181 /* Compute fourth key */
182 circle_xor8(U, U);
183 circle_xor8(V, V);
184 circle_xor8(V, V);
185 xor_blocks(W, U, V, 32);
186 swap_bytes(W, Key);
187 /* Encrypt last 8 bytes with fourth key */
188 Gost2814789_set_key(&c->cipher, Key, 256);
189 Gost2814789_encrypt(H+24, S+24, &c->cipher);
190
191 for (i = 0; i < 12; i++)
192 transform_3(S);
193 xor_blocks(S, S, M, 32);
194 transform_3(S);
195 xor_blocks(S, S, H, 32);
196 for (i = 0; i < 61; i++)
197 transform_3(S);
198 memcpy(H, S, 32);
199 return 1;
200}
201
202int
203GOSTR341194_Init(GOSTR341194_CTX *c, int nid)
204{
205 memset(c, 0, sizeof(*c));
206 return Gost2814789_set_sbox(&c->cipher, nid);
207}
208LCRYPTO_ALIAS(GOSTR341194_Init);
209
210static void
211GOSTR341194_block_data_order(GOSTR341194_CTX *ctx, const unsigned char *p,
212 size_t num)
213{
214 int i;
215
216 for (i = 0; i < num; i++) {
217 hash_step(ctx, ctx->H, p);
218 add_blocks(32, ctx->S, p);
219 p += 32;
220 }
221}
222
223#define DATA_ORDER_IS_LITTLE_ENDIAN
224
225#define HASH_CBLOCK GOSTR341194_CBLOCK
226#define HASH_LONG GOSTR341194_LONG
227#define HASH_CTX GOSTR341194_CTX
228#define HASH_UPDATE GOSTR341194_Update
229#define HASH_TRANSFORM GOSTR341194_Transform
230#define HASH_NO_FINAL 1
231#define HASH_BLOCK_DATA_ORDER GOSTR341194_block_data_order
232
233#include "md32_common.h"
234LCRYPTO_ALIAS(GOSTR341194_Update);
235LCRYPTO_ALIAS(GOSTR341194_Transform);
236
237int
238GOSTR341194_Final(unsigned char *md, GOSTR341194_CTX * c)
239{
240 unsigned char *p = (unsigned char *)c->data;
241 unsigned char T[32];
242
243 if (c->num > 0) {
244 memset(p + c->num, 0, 32 - c->num);
245 hash_step(c, c->H, p);
246 add_blocks(32, c->S, p);
247 }
248
249 p = T;
250 HOST_l2c(c->Nl, p);
251 HOST_l2c(c->Nh, p);
252 memset(p, 0, 32 - 8);
253 hash_step(c, c->H, T);
254 hash_step(c, c->H, c->S);
255
256 memcpy(md, c->H, 32);
257
258 return 1;
259}
260LCRYPTO_ALIAS(GOSTR341194_Final);
261
262unsigned char *
263GOSTR341194(const unsigned char *d, size_t n, unsigned char *md, int nid)
264{
265 GOSTR341194_CTX c;
266 static unsigned char m[GOSTR341194_LENGTH];
267
268 if (md == NULL)
269 md = m;
270 if (!GOSTR341194_Init(&c, nid))
271 return 0;
272 GOSTR341194_Update(&c, d, n);
273 GOSTR341194_Final(md, &c);
274 explicit_bzero(&c, sizeof(c));
275 return (md);
276}
277LCRYPTO_ALIAS(GOSTR341194);
278#endif