1 b1ec8cee 2023-02-25 thomas /* $OpenBSD: sha2.c,v 1.28 2019/07/23 12:35:22 dtucker Exp $ */
4 b1ec8cee 2023-02-25 thomas * FILE: sha2.c
5 b1ec8cee 2023-02-25 thomas * AUTHOR: Aaron D. Gifford <me@aarongifford.com>
7 b1ec8cee 2023-02-25 thomas * Copyright (c) 2000-2001, Aaron D. Gifford
8 b1ec8cee 2023-02-25 thomas * All rights reserved.
10 b1ec8cee 2023-02-25 thomas * Redistribution and use in source and binary forms, with or without
11 b1ec8cee 2023-02-25 thomas * modification, are permitted provided that the following conditions
12 b1ec8cee 2023-02-25 thomas * are met:
13 b1ec8cee 2023-02-25 thomas * 1. Redistributions of source code must retain the above copyright
14 b1ec8cee 2023-02-25 thomas * notice, this list of conditions and the following disclaimer.
15 b1ec8cee 2023-02-25 thomas * 2. Redistributions in binary form must reproduce the above copyright
16 b1ec8cee 2023-02-25 thomas * notice, this list of conditions and the following disclaimer in the
17 b1ec8cee 2023-02-25 thomas * documentation and/or other materials provided with the distribution.
18 b1ec8cee 2023-02-25 thomas * 3. Neither the name of the copyright holder nor the names of contributors
19 b1ec8cee 2023-02-25 thomas * may be used to endorse or promote products derived from this software
20 b1ec8cee 2023-02-25 thomas * without specific prior written permission.
22 b1ec8cee 2023-02-25 thomas * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTOR(S) ``AS IS'' AND
23 b1ec8cee 2023-02-25 thomas * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 b1ec8cee 2023-02-25 thomas * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 b1ec8cee 2023-02-25 thomas * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTOR(S) BE LIABLE
26 b1ec8cee 2023-02-25 thomas * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 b1ec8cee 2023-02-25 thomas * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 b1ec8cee 2023-02-25 thomas * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 b1ec8cee 2023-02-25 thomas * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 b1ec8cee 2023-02-25 thomas * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 b1ec8cee 2023-02-25 thomas * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 b1ec8cee 2023-02-25 thomas * SUCH DAMAGE.
34 b1ec8cee 2023-02-25 thomas * $From: sha2.c,v 1.1 2001/11/08 00:01:51 adg Exp adg $
37 b1ec8cee 2023-02-25 thomas /* OPENBSD ORIGINAL: lib/libc/hash/sha2.c */
39 b1ec8cee 2023-02-25 thomas #include <string.h>
41 b1ec8cee 2023-02-25 thomas #include "got_compat.h"
42 b1ec8cee 2023-02-25 thomas #include "sha2.h"
44 b1ec8cee 2023-02-25 thomas #define DEF_WEAK(x) void __ssh_compat_weak_##x(void)
46 b1ec8cee 2023-02-25 thomas #if !defined(HAVE_SHA256UPDATE) || !defined(HAVE_SHA384UPDATE) || \
47 b1ec8cee 2023-02-25 thomas !defined(HAVE_SHA512UPDATE)
49 b1ec8cee 2023-02-25 thomas /* no-op out, similar to DEF_WEAK but only needed here */
50 b1ec8cee 2023-02-25 thomas #define MAKE_CLONE(x, y) void __ssh_compat_make_clone_##x_##y(void)
53 b1ec8cee 2023-02-25 thomas * UNROLLED TRANSFORM LOOP NOTE:
54 b1ec8cee 2023-02-25 thomas * You can define SHA2_UNROLL_TRANSFORM to use the unrolled transform
55 b1ec8cee 2023-02-25 thomas * loop version for the hash transform rounds (defined using macros
56 b1ec8cee 2023-02-25 thomas * later in this file). Either define on the command line, for example:
58 b1ec8cee 2023-02-25 thomas * cc -DSHA2_UNROLL_TRANSFORM -o sha2 sha2.c sha2prog.c
60 b1ec8cee 2023-02-25 thomas * or define below:
62 b1ec8cee 2023-02-25 thomas * #define SHA2_UNROLL_TRANSFORM
65 b1ec8cee 2023-02-25 thomas #ifndef SHA2_SMALL
66 b1ec8cee 2023-02-25 thomas #if defined(__amd64__) || defined(__i386__)
67 b1ec8cee 2023-02-25 thomas #define SHA2_UNROLL_TRANSFORM
71 b1ec8cee 2023-02-25 thomas /*** SHA-224/256/384/512 Machine Architecture Definitions *****************/
73 b1ec8cee 2023-02-25 thomas * BYTE_ORDER NOTE:
75 b1ec8cee 2023-02-25 thomas * Please make sure that your system defines BYTE_ORDER. If your
76 b1ec8cee 2023-02-25 thomas * architecture is little-endian, make sure it also defines
77 b1ec8cee 2023-02-25 thomas * LITTLE_ENDIAN and that the two (BYTE_ORDER and LITTLE_ENDIAN) are
78 b1ec8cee 2023-02-25 thomas * equivalent.
80 b1ec8cee 2023-02-25 thomas * If your system does not define the above, then you can do so by
81 b1ec8cee 2023-02-25 thomas * hand like this:
83 b1ec8cee 2023-02-25 thomas * #define LITTLE_ENDIAN 1234
84 b1ec8cee 2023-02-25 thomas * #define BIG_ENDIAN 4321
86 b1ec8cee 2023-02-25 thomas * And for little-endian machines, add:
88 b1ec8cee 2023-02-25 thomas * #define BYTE_ORDER LITTLE_ENDIAN
90 b1ec8cee 2023-02-25 thomas * Or for big-endian machines:
92 b1ec8cee 2023-02-25 thomas * #define BYTE_ORDER BIG_ENDIAN
94 b1ec8cee 2023-02-25 thomas * The FreeBSD machine this was written on defines BYTE_ORDER
95 b1ec8cee 2023-02-25 thomas * appropriately by including <sys/types.h> (which in turn includes
96 b1ec8cee 2023-02-25 thomas * <machine/endian.h> where the appropriate definitions are actually
99 b1ec8cee 2023-02-25 thomas #if !defined(BYTE_ORDER) || (BYTE_ORDER != LITTLE_ENDIAN && BYTE_ORDER != BIG_ENDIAN)
100 b1ec8cee 2023-02-25 thomas #error Define BYTE_ORDER to be equal to either LITTLE_ENDIAN or BIG_ENDIAN
104 b1ec8cee 2023-02-25 thomas /*** SHA-224/256/384/512 Various Length Definitions ***********************/
105 b1ec8cee 2023-02-25 thomas /* NOTE: Most of these are in sha2.h */
106 b1ec8cee 2023-02-25 thomas #define SHA224_SHORT_BLOCK_LENGTH (SHA224_BLOCK_LENGTH - 8)
107 b1ec8cee 2023-02-25 thomas #define SHA256_SHORT_BLOCK_LENGTH (SHA256_BLOCK_LENGTH - 8)
108 b1ec8cee 2023-02-25 thomas #define SHA384_SHORT_BLOCK_LENGTH (SHA384_BLOCK_LENGTH - 16)
109 b1ec8cee 2023-02-25 thomas #define SHA512_SHORT_BLOCK_LENGTH (SHA512_BLOCK_LENGTH - 16)
111 b1ec8cee 2023-02-25 thomas /*** ENDIAN SPECIFIC COPY MACROS **************************************/
112 b1ec8cee 2023-02-25 thomas #define BE_8_TO_32(dst, cp) do { \
113 b1ec8cee 2023-02-25 thomas (dst) = (u_int32_t)(cp)[3] | ((u_int32_t)(cp)[2] << 8) | \
114 b1ec8cee 2023-02-25 thomas ((u_int32_t)(cp)[1] << 16) | ((u_int32_t)(cp)[0] << 24); \
115 b1ec8cee 2023-02-25 thomas } while(0)
117 b1ec8cee 2023-02-25 thomas #define BE_8_TO_64(dst, cp) do { \
118 b1ec8cee 2023-02-25 thomas (dst) = (u_int64_t)(cp)[7] | ((u_int64_t)(cp)[6] << 8) | \
119 b1ec8cee 2023-02-25 thomas ((u_int64_t)(cp)[5] << 16) | ((u_int64_t)(cp)[4] << 24) | \
120 b1ec8cee 2023-02-25 thomas ((u_int64_t)(cp)[3] << 32) | ((u_int64_t)(cp)[2] << 40) | \
121 b1ec8cee 2023-02-25 thomas ((u_int64_t)(cp)[1] << 48) | ((u_int64_t)(cp)[0] << 56); \
122 b1ec8cee 2023-02-25 thomas } while (0)
124 b1ec8cee 2023-02-25 thomas #define BE_64_TO_8(cp, src) do { \
125 b1ec8cee 2023-02-25 thomas (cp)[0] = (src) >> 56; \
126 b1ec8cee 2023-02-25 thomas (cp)[1] = (src) >> 48; \
127 b1ec8cee 2023-02-25 thomas (cp)[2] = (src) >> 40; \
128 b1ec8cee 2023-02-25 thomas (cp)[3] = (src) >> 32; \
129 b1ec8cee 2023-02-25 thomas (cp)[4] = (src) >> 24; \
130 b1ec8cee 2023-02-25 thomas (cp)[5] = (src) >> 16; \
131 b1ec8cee 2023-02-25 thomas (cp)[6] = (src) >> 8; \
132 b1ec8cee 2023-02-25 thomas (cp)[7] = (src); \
133 b1ec8cee 2023-02-25 thomas } while (0)
135 b1ec8cee 2023-02-25 thomas #define BE_32_TO_8(cp, src) do { \
136 b1ec8cee 2023-02-25 thomas (cp)[0] = (src) >> 24; \
137 b1ec8cee 2023-02-25 thomas (cp)[1] = (src) >> 16; \
138 b1ec8cee 2023-02-25 thomas (cp)[2] = (src) >> 8; \
139 b1ec8cee 2023-02-25 thomas (cp)[3] = (src); \
140 b1ec8cee 2023-02-25 thomas } while (0)
143 b1ec8cee 2023-02-25 thomas * Macro for incrementally adding the unsigned 64-bit integer n to the
144 b1ec8cee 2023-02-25 thomas * unsigned 128-bit integer (represented using a two-element array of
145 b1ec8cee 2023-02-25 thomas * 64-bit words):
147 b1ec8cee 2023-02-25 thomas #define ADDINC128(w,n) do { \
148 b1ec8cee 2023-02-25 thomas (w)[0] += (u_int64_t)(n); \
149 b1ec8cee 2023-02-25 thomas if ((w)[0] < (n)) { \
150 b1ec8cee 2023-02-25 thomas (w)[1]++; \
152 b1ec8cee 2023-02-25 thomas } while (0)
154 b1ec8cee 2023-02-25 thomas /*** THE SIX LOGICAL FUNCTIONS ****************************************/
156 b1ec8cee 2023-02-25 thomas * Bit shifting and rotation (used by the six SHA-XYZ logical functions:
158 b1ec8cee 2023-02-25 thomas * NOTE: The naming of R and S appears backwards here (R is a SHIFT and
159 b1ec8cee 2023-02-25 thomas * S is a ROTATION) because the SHA-224/256/384/512 description document
160 b1ec8cee 2023-02-25 thomas * (see http://csrc.nist.gov/cryptval/shs/sha256-384-512.pdf) uses this
161 b1ec8cee 2023-02-25 thomas * same "backwards" definition.
163 b1ec8cee 2023-02-25 thomas /* Shift-right (used in SHA-224, SHA-256, SHA-384, and SHA-512): */
164 b1ec8cee 2023-02-25 thomas #define R(b,x) ((x) >> (b))
165 b1ec8cee 2023-02-25 thomas /* 32-bit Rotate-right (used in SHA-224 and SHA-256): */
166 b1ec8cee 2023-02-25 thomas #define S32(b,x) (((x) >> (b)) | ((x) << (32 - (b))))
167 b1ec8cee 2023-02-25 thomas /* 64-bit Rotate-right (used in SHA-384 and SHA-512): */
168 b1ec8cee 2023-02-25 thomas #define S64(b,x) (((x) >> (b)) | ((x) << (64 - (b))))
170 b1ec8cee 2023-02-25 thomas /* Two of six logical functions used in SHA-224, SHA-256, SHA-384, and SHA-512: */
171 b1ec8cee 2023-02-25 thomas #define Ch(x,y,z) (((x) & (y)) ^ ((~(x)) & (z)))
172 b1ec8cee 2023-02-25 thomas #define Maj(x,y,z) (((x) & (y)) ^ ((x) & (z)) ^ ((y) & (z)))
174 b1ec8cee 2023-02-25 thomas /* Four of six logical functions used in SHA-224 and SHA-256: */
175 b1ec8cee 2023-02-25 thomas #define Sigma0_256(x) (S32(2, (x)) ^ S32(13, (x)) ^ S32(22, (x)))
176 b1ec8cee 2023-02-25 thomas #define Sigma1_256(x) (S32(6, (x)) ^ S32(11, (x)) ^ S32(25, (x)))
177 b1ec8cee 2023-02-25 thomas #define sigma0_256(x) (S32(7, (x)) ^ S32(18, (x)) ^ R(3 , (x)))
178 b1ec8cee 2023-02-25 thomas #define sigma1_256(x) (S32(17, (x)) ^ S32(19, (x)) ^ R(10, (x)))
180 b1ec8cee 2023-02-25 thomas /* Four of six logical functions used in SHA-384 and SHA-512: */
181 b1ec8cee 2023-02-25 thomas #define Sigma0_512(x) (S64(28, (x)) ^ S64(34, (x)) ^ S64(39, (x)))
182 b1ec8cee 2023-02-25 thomas #define Sigma1_512(x) (S64(14, (x)) ^ S64(18, (x)) ^ S64(41, (x)))
183 b1ec8cee 2023-02-25 thomas #define sigma0_512(x) (S64( 1, (x)) ^ S64( 8, (x)) ^ R( 7, (x)))
184 b1ec8cee 2023-02-25 thomas #define sigma1_512(x) (S64(19, (x)) ^ S64(61, (x)) ^ R( 6, (x)))
187 b1ec8cee 2023-02-25 thomas /*** SHA-XYZ INITIAL HASH VALUES AND CONSTANTS ************************/
188 b1ec8cee 2023-02-25 thomas /* Hash constant words K for SHA-224 and SHA-256: */
189 b1ec8cee 2023-02-25 thomas static const u_int32_t K256[64] = {
190 b1ec8cee 2023-02-25 thomas 0x428a2f98UL, 0x71374491UL, 0xb5c0fbcfUL, 0xe9b5dba5UL,
191 b1ec8cee 2023-02-25 thomas 0x3956c25bUL, 0x59f111f1UL, 0x923f82a4UL, 0xab1c5ed5UL,
192 b1ec8cee 2023-02-25 thomas 0xd807aa98UL, 0x12835b01UL, 0x243185beUL, 0x550c7dc3UL,
193 b1ec8cee 2023-02-25 thomas 0x72be5d74UL, 0x80deb1feUL, 0x9bdc06a7UL, 0xc19bf174UL,
194 b1ec8cee 2023-02-25 thomas 0xe49b69c1UL, 0xefbe4786UL, 0x0fc19dc6UL, 0x240ca1ccUL,
195 b1ec8cee 2023-02-25 thomas 0x2de92c6fUL, 0x4a7484aaUL, 0x5cb0a9dcUL, 0x76f988daUL,
196 b1ec8cee 2023-02-25 thomas 0x983e5152UL, 0xa831c66dUL, 0xb00327c8UL, 0xbf597fc7UL,
197 b1ec8cee 2023-02-25 thomas 0xc6e00bf3UL, 0xd5a79147UL, 0x06ca6351UL, 0x14292967UL,
198 b1ec8cee 2023-02-25 thomas 0x27b70a85UL, 0x2e1b2138UL, 0x4d2c6dfcUL, 0x53380d13UL,
199 b1ec8cee 2023-02-25 thomas 0x650a7354UL, 0x766a0abbUL, 0x81c2c92eUL, 0x92722c85UL,
200 b1ec8cee 2023-02-25 thomas 0xa2bfe8a1UL, 0xa81a664bUL, 0xc24b8b70UL, 0xc76c51a3UL,
201 b1ec8cee 2023-02-25 thomas 0xd192e819UL, 0xd6990624UL, 0xf40e3585UL, 0x106aa070UL,
202 b1ec8cee 2023-02-25 thomas 0x19a4c116UL, 0x1e376c08UL, 0x2748774cUL, 0x34b0bcb5UL,
203 b1ec8cee 2023-02-25 thomas 0x391c0cb3UL, 0x4ed8aa4aUL, 0x5b9cca4fUL, 0x682e6ff3UL,
204 b1ec8cee 2023-02-25 thomas 0x748f82eeUL, 0x78a5636fUL, 0x84c87814UL, 0x8cc70208UL,
205 b1ec8cee 2023-02-25 thomas 0x90befffaUL, 0xa4506cebUL, 0xbef9a3f7UL, 0xc67178f2UL
208 b1ec8cee 2023-02-25 thomas /* Initial hash value H for SHA-256: */
209 b1ec8cee 2023-02-25 thomas static const u_int32_t sha256_initial_hash_value[8] = {
210 b1ec8cee 2023-02-25 thomas 0x6a09e667UL,
211 b1ec8cee 2023-02-25 thomas 0xbb67ae85UL,
212 b1ec8cee 2023-02-25 thomas 0x3c6ef372UL,
213 b1ec8cee 2023-02-25 thomas 0xa54ff53aUL,
214 b1ec8cee 2023-02-25 thomas 0x510e527fUL,
215 b1ec8cee 2023-02-25 thomas 0x9b05688cUL,
216 b1ec8cee 2023-02-25 thomas 0x1f83d9abUL,
217 b1ec8cee 2023-02-25 thomas 0x5be0cd19UL
220 b1ec8cee 2023-02-25 thomas /* Hash constant words K for SHA-384 and SHA-512: */
221 b1ec8cee 2023-02-25 thomas static const u_int64_t K512[80] = {
222 b1ec8cee 2023-02-25 thomas 0x428a2f98d728ae22ULL, 0x7137449123ef65cdULL,
223 b1ec8cee 2023-02-25 thomas 0xb5c0fbcfec4d3b2fULL, 0xe9b5dba58189dbbcULL,
224 b1ec8cee 2023-02-25 thomas 0x3956c25bf348b538ULL, 0x59f111f1b605d019ULL,
225 b1ec8cee 2023-02-25 thomas 0x923f82a4af194f9bULL, 0xab1c5ed5da6d8118ULL,
226 b1ec8cee 2023-02-25 thomas 0xd807aa98a3030242ULL, 0x12835b0145706fbeULL,
227 b1ec8cee 2023-02-25 thomas 0x243185be4ee4b28cULL, 0x550c7dc3d5ffb4e2ULL,
228 b1ec8cee 2023-02-25 thomas 0x72be5d74f27b896fULL, 0x80deb1fe3b1696b1ULL,
229 b1ec8cee 2023-02-25 thomas 0x9bdc06a725c71235ULL, 0xc19bf174cf692694ULL,
230 b1ec8cee 2023-02-25 thomas 0xe49b69c19ef14ad2ULL, 0xefbe4786384f25e3ULL,
231 b1ec8cee 2023-02-25 thomas 0x0fc19dc68b8cd5b5ULL, 0x240ca1cc77ac9c65ULL,
232 b1ec8cee 2023-02-25 thomas 0x2de92c6f592b0275ULL, 0x4a7484aa6ea6e483ULL,
233 b1ec8cee 2023-02-25 thomas 0x5cb0a9dcbd41fbd4ULL, 0x76f988da831153b5ULL,
234 b1ec8cee 2023-02-25 thomas 0x983e5152ee66dfabULL, 0xa831c66d2db43210ULL,
235 b1ec8cee 2023-02-25 thomas 0xb00327c898fb213fULL, 0xbf597fc7beef0ee4ULL,
236 b1ec8cee 2023-02-25 thomas 0xc6e00bf33da88fc2ULL, 0xd5a79147930aa725ULL,
237 b1ec8cee 2023-02-25 thomas 0x06ca6351e003826fULL, 0x142929670a0e6e70ULL,
238 b1ec8cee 2023-02-25 thomas 0x27b70a8546d22ffcULL, 0x2e1b21385c26c926ULL,
239 b1ec8cee 2023-02-25 thomas 0x4d2c6dfc5ac42aedULL, 0x53380d139d95b3dfULL,
240 b1ec8cee 2023-02-25 thomas 0x650a73548baf63deULL, 0x766a0abb3c77b2a8ULL,
241 b1ec8cee 2023-02-25 thomas 0x81c2c92e47edaee6ULL, 0x92722c851482353bULL,
242 b1ec8cee 2023-02-25 thomas 0xa2bfe8a14cf10364ULL, 0xa81a664bbc423001ULL,
243 b1ec8cee 2023-02-25 thomas 0xc24b8b70d0f89791ULL, 0xc76c51a30654be30ULL,
244 b1ec8cee 2023-02-25 thomas 0xd192e819d6ef5218ULL, 0xd69906245565a910ULL,
245 b1ec8cee 2023-02-25 thomas 0xf40e35855771202aULL, 0x106aa07032bbd1b8ULL,
246 b1ec8cee 2023-02-25 thomas 0x19a4c116b8d2d0c8ULL, 0x1e376c085141ab53ULL,
247 b1ec8cee 2023-02-25 thomas 0x2748774cdf8eeb99ULL, 0x34b0bcb5e19b48a8ULL,
248 b1ec8cee 2023-02-25 thomas 0x391c0cb3c5c95a63ULL, 0x4ed8aa4ae3418acbULL,
249 b1ec8cee 2023-02-25 thomas 0x5b9cca4f7763e373ULL, 0x682e6ff3d6b2b8a3ULL,
250 b1ec8cee 2023-02-25 thomas 0x748f82ee5defb2fcULL, 0x78a5636f43172f60ULL,
251 b1ec8cee 2023-02-25 thomas 0x84c87814a1f0ab72ULL, 0x8cc702081a6439ecULL,
252 b1ec8cee 2023-02-25 thomas 0x90befffa23631e28ULL, 0xa4506cebde82bde9ULL,
253 b1ec8cee 2023-02-25 thomas 0xbef9a3f7b2c67915ULL, 0xc67178f2e372532bULL,
254 b1ec8cee 2023-02-25 thomas 0xca273eceea26619cULL, 0xd186b8c721c0c207ULL,
255 b1ec8cee 2023-02-25 thomas 0xeada7dd6cde0eb1eULL, 0xf57d4f7fee6ed178ULL,
256 b1ec8cee 2023-02-25 thomas 0x06f067aa72176fbaULL, 0x0a637dc5a2c898a6ULL,
257 b1ec8cee 2023-02-25 thomas 0x113f9804bef90daeULL, 0x1b710b35131c471bULL,
258 b1ec8cee 2023-02-25 thomas 0x28db77f523047d84ULL, 0x32caab7b40c72493ULL,
259 b1ec8cee 2023-02-25 thomas 0x3c9ebe0a15c9bebcULL, 0x431d67c49c100d4cULL,
260 b1ec8cee 2023-02-25 thomas 0x4cc5d4becb3e42b6ULL, 0x597f299cfc657e2aULL,
261 b1ec8cee 2023-02-25 thomas 0x5fcb6fab3ad6faecULL, 0x6c44198c4a475817ULL
264 b1ec8cee 2023-02-25 thomas /* Initial hash value H for SHA-512 */
265 b1ec8cee 2023-02-25 thomas static const u_int64_t sha512_initial_hash_value[8] = {
266 b1ec8cee 2023-02-25 thomas 0x6a09e667f3bcc908ULL,
267 b1ec8cee 2023-02-25 thomas 0xbb67ae8584caa73bULL,
268 b1ec8cee 2023-02-25 thomas 0x3c6ef372fe94f82bULL,
269 b1ec8cee 2023-02-25 thomas 0xa54ff53a5f1d36f1ULL,
270 b1ec8cee 2023-02-25 thomas 0x510e527fade682d1ULL,
271 b1ec8cee 2023-02-25 thomas 0x9b05688c2b3e6c1fULL,
272 b1ec8cee 2023-02-25 thomas 0x1f83d9abfb41bd6bULL,
273 b1ec8cee 2023-02-25 thomas 0x5be0cd19137e2179ULL
276 b1ec8cee 2023-02-25 thomas #if !defined(SHA2_SMALL)
278 b1ec8cee 2023-02-25 thomas /* Initial hash value H for SHA-224: */
279 b1ec8cee 2023-02-25 thomas static const u_int32_t sha224_initial_hash_value[8] = {
280 b1ec8cee 2023-02-25 thomas 0xc1059ed8UL,
281 b1ec8cee 2023-02-25 thomas 0x367cd507UL,
282 b1ec8cee 2023-02-25 thomas 0x3070dd17UL,
283 b1ec8cee 2023-02-25 thomas 0xf70e5939UL,
284 b1ec8cee 2023-02-25 thomas 0xffc00b31UL,
285 b1ec8cee 2023-02-25 thomas 0x68581511UL,
286 b1ec8cee 2023-02-25 thomas 0x64f98fa7UL,
287 b1ec8cee 2023-02-25 thomas 0xbefa4fa4UL
289 b1ec8cee 2023-02-25 thomas #endif /* 0 */
291 b1ec8cee 2023-02-25 thomas /* Initial hash value H for SHA-384 */
292 b1ec8cee 2023-02-25 thomas static const u_int64_t sha384_initial_hash_value[8] = {
293 b1ec8cee 2023-02-25 thomas 0xcbbb9d5dc1059ed8ULL,
294 b1ec8cee 2023-02-25 thomas 0x629a292a367cd507ULL,
295 b1ec8cee 2023-02-25 thomas 0x9159015a3070dd17ULL,
296 b1ec8cee 2023-02-25 thomas 0x152fecd8f70e5939ULL,
297 b1ec8cee 2023-02-25 thomas 0x67332667ffc00b31ULL,
298 b1ec8cee 2023-02-25 thomas 0x8eb44a8768581511ULL,
299 b1ec8cee 2023-02-25 thomas 0xdb0c2e0d64f98fa7ULL,
300 b1ec8cee 2023-02-25 thomas 0x47b5481dbefa4fa4ULL
304 b1ec8cee 2023-02-25 thomas /* Initial hash value H for SHA-512-256 */
305 b1ec8cee 2023-02-25 thomas static const u_int64_t sha512_256_initial_hash_value[8] = {
306 b1ec8cee 2023-02-25 thomas 0x22312194fc2bf72cULL,
307 b1ec8cee 2023-02-25 thomas 0x9f555fa3c84c64c2ULL,
308 b1ec8cee 2023-02-25 thomas 0x2393b86b6f53b151ULL,
309 b1ec8cee 2023-02-25 thomas 0x963877195940eabdULL,
310 b1ec8cee 2023-02-25 thomas 0x96283ee2a88effe3ULL,
311 b1ec8cee 2023-02-25 thomas 0xbe5e1e2553863992ULL,
312 b1ec8cee 2023-02-25 thomas 0x2b0199fc2c85b8aaULL,
313 b1ec8cee 2023-02-25 thomas 0x0eb72ddc81c52ca2ULL
316 b1ec8cee 2023-02-25 thomas /*** SHA-224: *********************************************************/
318 b1ec8cee 2023-02-25 thomas SHA224Init(SHA2_CTX *context)
320 b1ec8cee 2023-02-25 thomas memcpy(context->state.st32, sha224_initial_hash_value,
321 b1ec8cee 2023-02-25 thomas sizeof(sha224_initial_hash_value));
322 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, sizeof(context->buffer));
323 b1ec8cee 2023-02-25 thomas context->bitcount[0] = 0;
325 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA224Init);
327 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA224Transform, SHA256Transform);
328 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA224Update, SHA256Update);
329 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA224Pad, SHA256Pad);
330 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA224Transform);
331 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA224Update);
332 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA224Pad);
335 b1ec8cee 2023-02-25 thomas SHA224Final(u_int8_t digest[SHA224_DIGEST_LENGTH], SHA2_CTX *context)
337 b1ec8cee 2023-02-25 thomas SHA224Pad(context);
339 b1ec8cee 2023-02-25 thomas #if BYTE_ORDER == LITTLE_ENDIAN
342 b1ec8cee 2023-02-25 thomas /* Convert TO host byte order */
343 b1ec8cee 2023-02-25 thomas for (i = 0; i < 7; i++)
344 b1ec8cee 2023-02-25 thomas BE_32_TO_8(digest + i * 4, context->state.st32[i]);
346 b1ec8cee 2023-02-25 thomas memcpy(digest, context->state.st32, SHA224_DIGEST_LENGTH);
348 b1ec8cee 2023-02-25 thomas explicit_bzero(context, sizeof(*context));
350 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA224Final);
351 b1ec8cee 2023-02-25 thomas #endif /* !defined(SHA2_SMALL) */
352 b1ec8cee 2023-02-25 thomas #endif /* 0 */
354 b1ec8cee 2023-02-25 thomas /*** SHA-256: *********************************************************/
356 b1ec8cee 2023-02-25 thomas SHA256Init(SHA2_CTX *context)
358 b1ec8cee 2023-02-25 thomas memcpy(context->state.st32, sha256_initial_hash_value,
359 b1ec8cee 2023-02-25 thomas sizeof(sha256_initial_hash_value));
360 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, sizeof(context->buffer));
361 b1ec8cee 2023-02-25 thomas context->bitcount[0] = 0;
363 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA256Init);
365 b1ec8cee 2023-02-25 thomas #ifdef SHA2_UNROLL_TRANSFORM
367 b1ec8cee 2023-02-25 thomas /* Unrolled SHA-256 round macros: */
369 b1ec8cee 2023-02-25 thomas #define ROUND256_0_TO_15(a,b,c,d,e,f,g,h) do { \
370 b1ec8cee 2023-02-25 thomas BE_8_TO_32(W256[j], data); \
371 b1ec8cee 2023-02-25 thomas data += 4; \
372 b1ec8cee 2023-02-25 thomas T1 = (h) + Sigma1_256((e)) + Ch((e), (f), (g)) + K256[j] + W256[j]; \
373 b1ec8cee 2023-02-25 thomas (d) += T1; \
374 b1ec8cee 2023-02-25 thomas (h) = T1 + Sigma0_256((a)) + Maj((a), (b), (c)); \
376 b1ec8cee 2023-02-25 thomas } while(0)
378 b1ec8cee 2023-02-25 thomas #define ROUND256(a,b,c,d,e,f,g,h) do { \
379 b1ec8cee 2023-02-25 thomas s0 = W256[(j+1)&0x0f]; \
380 b1ec8cee 2023-02-25 thomas s0 = sigma0_256(s0); \
381 b1ec8cee 2023-02-25 thomas s1 = W256[(j+14)&0x0f]; \
382 b1ec8cee 2023-02-25 thomas s1 = sigma1_256(s1); \
383 b1ec8cee 2023-02-25 thomas T1 = (h) + Sigma1_256((e)) + Ch((e), (f), (g)) + K256[j] + \
384 b1ec8cee 2023-02-25 thomas (W256[j&0x0f] += s1 + W256[(j+9)&0x0f] + s0); \
385 b1ec8cee 2023-02-25 thomas (d) += T1; \
386 b1ec8cee 2023-02-25 thomas (h) = T1 + Sigma0_256((a)) + Maj((a), (b), (c)); \
388 b1ec8cee 2023-02-25 thomas } while(0)
391 b1ec8cee 2023-02-25 thomas SHA256Transform(u_int32_t state[8], const u_int8_t data[SHA256_BLOCK_LENGTH])
393 b1ec8cee 2023-02-25 thomas u_int32_t a, b, c, d, e, f, g, h, s0, s1;
394 b1ec8cee 2023-02-25 thomas u_int32_t T1, W256[16];
397 b1ec8cee 2023-02-25 thomas /* Initialize registers with the prev. intermediate value */
398 b1ec8cee 2023-02-25 thomas a = state[0];
399 b1ec8cee 2023-02-25 thomas b = state[1];
400 b1ec8cee 2023-02-25 thomas c = state[2];
401 b1ec8cee 2023-02-25 thomas d = state[3];
402 b1ec8cee 2023-02-25 thomas e = state[4];
403 b1ec8cee 2023-02-25 thomas f = state[5];
404 b1ec8cee 2023-02-25 thomas g = state[6];
405 b1ec8cee 2023-02-25 thomas h = state[7];
409 b1ec8cee 2023-02-25 thomas /* Rounds 0 to 15 (unrolled): */
410 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(a,b,c,d,e,f,g,h);
411 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(h,a,b,c,d,e,f,g);
412 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(g,h,a,b,c,d,e,f);
413 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(f,g,h,a,b,c,d,e);
414 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(e,f,g,h,a,b,c,d);
415 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(d,e,f,g,h,a,b,c);
416 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(c,d,e,f,g,h,a,b);
417 b1ec8cee 2023-02-25 thomas ROUND256_0_TO_15(b,c,d,e,f,g,h,a);
418 b1ec8cee 2023-02-25 thomas } while (j < 16);
420 b1ec8cee 2023-02-25 thomas /* Now for the remaining rounds up to 63: */
422 b1ec8cee 2023-02-25 thomas ROUND256(a,b,c,d,e,f,g,h);
423 b1ec8cee 2023-02-25 thomas ROUND256(h,a,b,c,d,e,f,g);
424 b1ec8cee 2023-02-25 thomas ROUND256(g,h,a,b,c,d,e,f);
425 b1ec8cee 2023-02-25 thomas ROUND256(f,g,h,a,b,c,d,e);
426 b1ec8cee 2023-02-25 thomas ROUND256(e,f,g,h,a,b,c,d);
427 b1ec8cee 2023-02-25 thomas ROUND256(d,e,f,g,h,a,b,c);
428 b1ec8cee 2023-02-25 thomas ROUND256(c,d,e,f,g,h,a,b);
429 b1ec8cee 2023-02-25 thomas ROUND256(b,c,d,e,f,g,h,a);
430 b1ec8cee 2023-02-25 thomas } while (j < 64);
432 b1ec8cee 2023-02-25 thomas /* Compute the current intermediate hash value */
433 b1ec8cee 2023-02-25 thomas state[0] += a;
434 b1ec8cee 2023-02-25 thomas state[1] += b;
435 b1ec8cee 2023-02-25 thomas state[2] += c;
436 b1ec8cee 2023-02-25 thomas state[3] += d;
437 b1ec8cee 2023-02-25 thomas state[4] += e;
438 b1ec8cee 2023-02-25 thomas state[5] += f;
439 b1ec8cee 2023-02-25 thomas state[6] += g;
440 b1ec8cee 2023-02-25 thomas state[7] += h;
442 b1ec8cee 2023-02-25 thomas /* Clean up */
443 b1ec8cee 2023-02-25 thomas a = b = c = d = e = f = g = h = T1 = 0;
446 b1ec8cee 2023-02-25 thomas #else /* SHA2_UNROLL_TRANSFORM */
449 b1ec8cee 2023-02-25 thomas SHA256Transform(u_int32_t state[8], const u_int8_t data[SHA256_BLOCK_LENGTH])
451 b1ec8cee 2023-02-25 thomas u_int32_t a, b, c, d, e, f, g, h, s0, s1;
452 b1ec8cee 2023-02-25 thomas u_int32_t T1, T2, W256[16];
455 b1ec8cee 2023-02-25 thomas /* Initialize registers with the prev. intermediate value */
456 b1ec8cee 2023-02-25 thomas a = state[0];
457 b1ec8cee 2023-02-25 thomas b = state[1];
458 b1ec8cee 2023-02-25 thomas c = state[2];
459 b1ec8cee 2023-02-25 thomas d = state[3];
460 b1ec8cee 2023-02-25 thomas e = state[4];
461 b1ec8cee 2023-02-25 thomas f = state[5];
462 b1ec8cee 2023-02-25 thomas g = state[6];
463 b1ec8cee 2023-02-25 thomas h = state[7];
467 b1ec8cee 2023-02-25 thomas BE_8_TO_32(W256[j], data);
468 b1ec8cee 2023-02-25 thomas data += 4;
469 b1ec8cee 2023-02-25 thomas /* Apply the SHA-256 compression function to update a..h */
470 b1ec8cee 2023-02-25 thomas T1 = h + Sigma1_256(e) + Ch(e, f, g) + K256[j] + W256[j];
471 b1ec8cee 2023-02-25 thomas T2 = Sigma0_256(a) + Maj(a, b, c);
475 b1ec8cee 2023-02-25 thomas e = d + T1;
479 b1ec8cee 2023-02-25 thomas a = T1 + T2;
482 b1ec8cee 2023-02-25 thomas } while (j < 16);
485 b1ec8cee 2023-02-25 thomas /* Part of the message block expansion: */
486 b1ec8cee 2023-02-25 thomas s0 = W256[(j+1)&0x0f];
487 b1ec8cee 2023-02-25 thomas s0 = sigma0_256(s0);
488 b1ec8cee 2023-02-25 thomas s1 = W256[(j+14)&0x0f];
489 b1ec8cee 2023-02-25 thomas s1 = sigma1_256(s1);
491 b1ec8cee 2023-02-25 thomas /* Apply the SHA-256 compression function to update a..h */
492 b1ec8cee 2023-02-25 thomas T1 = h + Sigma1_256(e) + Ch(e, f, g) + K256[j] +
493 b1ec8cee 2023-02-25 thomas (W256[j&0x0f] += s1 + W256[(j+9)&0x0f] + s0);
494 b1ec8cee 2023-02-25 thomas T2 = Sigma0_256(a) + Maj(a, b, c);
498 b1ec8cee 2023-02-25 thomas e = d + T1;
502 b1ec8cee 2023-02-25 thomas a = T1 + T2;
505 b1ec8cee 2023-02-25 thomas } while (j < 64);
507 b1ec8cee 2023-02-25 thomas /* Compute the current intermediate hash value */
508 b1ec8cee 2023-02-25 thomas state[0] += a;
509 b1ec8cee 2023-02-25 thomas state[1] += b;
510 b1ec8cee 2023-02-25 thomas state[2] += c;
511 b1ec8cee 2023-02-25 thomas state[3] += d;
512 b1ec8cee 2023-02-25 thomas state[4] += e;
513 b1ec8cee 2023-02-25 thomas state[5] += f;
514 b1ec8cee 2023-02-25 thomas state[6] += g;
515 b1ec8cee 2023-02-25 thomas state[7] += h;
517 b1ec8cee 2023-02-25 thomas /* Clean up */
518 b1ec8cee 2023-02-25 thomas a = b = c = d = e = f = g = h = T1 = T2 = 0;
521 b1ec8cee 2023-02-25 thomas #endif /* SHA2_UNROLL_TRANSFORM */
522 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA256Transform);
525 b1ec8cee 2023-02-25 thomas SHA256Update(SHA2_CTX *context, const u_int8_t *data, size_t len)
527 b1ec8cee 2023-02-25 thomas u_int64_t freespace, usedspace;
529 b1ec8cee 2023-02-25 thomas /* Calling with no data is valid (we do nothing) */
530 b1ec8cee 2023-02-25 thomas if (len == 0)
533 b1ec8cee 2023-02-25 thomas usedspace = (context->bitcount[0] >> 3) % SHA256_BLOCK_LENGTH;
534 b1ec8cee 2023-02-25 thomas if (usedspace > 0) {
535 b1ec8cee 2023-02-25 thomas /* Calculate how much free space is available in the buffer */
536 b1ec8cee 2023-02-25 thomas freespace = SHA256_BLOCK_LENGTH - usedspace;
538 b1ec8cee 2023-02-25 thomas if (len >= freespace) {
539 b1ec8cee 2023-02-25 thomas /* Fill the buffer completely and process it */
540 b1ec8cee 2023-02-25 thomas memcpy(&context->buffer[usedspace], data, freespace);
541 b1ec8cee 2023-02-25 thomas context->bitcount[0] += freespace << 3;
542 b1ec8cee 2023-02-25 thomas len -= freespace;
543 b1ec8cee 2023-02-25 thomas data += freespace;
544 b1ec8cee 2023-02-25 thomas SHA256Transform(context->state.st32, context->buffer);
546 b1ec8cee 2023-02-25 thomas /* The buffer is not yet full */
547 b1ec8cee 2023-02-25 thomas memcpy(&context->buffer[usedspace], data, len);
548 b1ec8cee 2023-02-25 thomas context->bitcount[0] += (u_int64_t)len << 3;
549 b1ec8cee 2023-02-25 thomas /* Clean up: */
550 b1ec8cee 2023-02-25 thomas usedspace = freespace = 0;
554 b1ec8cee 2023-02-25 thomas while (len >= SHA256_BLOCK_LENGTH) {
555 b1ec8cee 2023-02-25 thomas /* Process as many complete blocks as we can */
556 b1ec8cee 2023-02-25 thomas SHA256Transform(context->state.st32, data);
557 b1ec8cee 2023-02-25 thomas context->bitcount[0] += SHA256_BLOCK_LENGTH << 3;
558 b1ec8cee 2023-02-25 thomas len -= SHA256_BLOCK_LENGTH;
559 b1ec8cee 2023-02-25 thomas data += SHA256_BLOCK_LENGTH;
561 b1ec8cee 2023-02-25 thomas if (len > 0) {
562 b1ec8cee 2023-02-25 thomas /* There's left-overs, so save 'em */
563 b1ec8cee 2023-02-25 thomas memcpy(context->buffer, data, len);
564 b1ec8cee 2023-02-25 thomas context->bitcount[0] += len << 3;
566 b1ec8cee 2023-02-25 thomas /* Clean up: */
567 b1ec8cee 2023-02-25 thomas usedspace = freespace = 0;
569 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA256Update);
572 b1ec8cee 2023-02-25 thomas SHA256Pad(SHA2_CTX *context)
574 b1ec8cee 2023-02-25 thomas unsigned int usedspace;
576 b1ec8cee 2023-02-25 thomas usedspace = (context->bitcount[0] >> 3) % SHA256_BLOCK_LENGTH;
577 b1ec8cee 2023-02-25 thomas if (usedspace > 0) {
578 b1ec8cee 2023-02-25 thomas /* Begin padding with a 1 bit: */
579 b1ec8cee 2023-02-25 thomas context->buffer[usedspace++] = 0x80;
581 b1ec8cee 2023-02-25 thomas if (usedspace <= SHA256_SHORT_BLOCK_LENGTH) {
582 b1ec8cee 2023-02-25 thomas /* Set-up for the last transform: */
583 b1ec8cee 2023-02-25 thomas memset(&context->buffer[usedspace], 0,
584 b1ec8cee 2023-02-25 thomas SHA256_SHORT_BLOCK_LENGTH - usedspace);
586 b1ec8cee 2023-02-25 thomas if (usedspace < SHA256_BLOCK_LENGTH) {
587 b1ec8cee 2023-02-25 thomas memset(&context->buffer[usedspace], 0,
588 b1ec8cee 2023-02-25 thomas SHA256_BLOCK_LENGTH - usedspace);
590 b1ec8cee 2023-02-25 thomas /* Do second-to-last transform: */
591 b1ec8cee 2023-02-25 thomas SHA256Transform(context->state.st32, context->buffer);
593 b1ec8cee 2023-02-25 thomas /* Prepare for last transform: */
594 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, SHA256_SHORT_BLOCK_LENGTH);
597 b1ec8cee 2023-02-25 thomas /* Set-up for the last transform: */
598 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, SHA256_SHORT_BLOCK_LENGTH);
600 b1ec8cee 2023-02-25 thomas /* Begin padding with a 1 bit: */
601 b1ec8cee 2023-02-25 thomas *context->buffer = 0x80;
603 b1ec8cee 2023-02-25 thomas /* Store the length of input data (in bits) in big endian format: */
604 b1ec8cee 2023-02-25 thomas BE_64_TO_8(&context->buffer[SHA256_SHORT_BLOCK_LENGTH],
605 b1ec8cee 2023-02-25 thomas context->bitcount[0]);
607 b1ec8cee 2023-02-25 thomas /* Final transform: */
608 b1ec8cee 2023-02-25 thomas SHA256Transform(context->state.st32, context->buffer);
610 b1ec8cee 2023-02-25 thomas /* Clean up: */
611 b1ec8cee 2023-02-25 thomas usedspace = 0;
613 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA256Pad);
616 b1ec8cee 2023-02-25 thomas SHA256Final(u_int8_t digest[SHA256_DIGEST_LENGTH], SHA2_CTX *context)
618 b1ec8cee 2023-02-25 thomas SHA256Pad(context);
620 b1ec8cee 2023-02-25 thomas #if BYTE_ORDER == LITTLE_ENDIAN
623 b1ec8cee 2023-02-25 thomas /* Convert TO host byte order */
624 b1ec8cee 2023-02-25 thomas for (i = 0; i < 8; i++)
625 b1ec8cee 2023-02-25 thomas BE_32_TO_8(digest + i * 4, context->state.st32[i]);
627 b1ec8cee 2023-02-25 thomas memcpy(digest, context->state.st32, SHA256_DIGEST_LENGTH);
629 b1ec8cee 2023-02-25 thomas explicit_bzero(context, sizeof(*context));
631 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA256Final);
634 b1ec8cee 2023-02-25 thomas /*** SHA-512: *********************************************************/
636 b1ec8cee 2023-02-25 thomas SHA512Init(SHA2_CTX *context)
638 b1ec8cee 2023-02-25 thomas memcpy(context->state.st64, sha512_initial_hash_value,
639 b1ec8cee 2023-02-25 thomas sizeof(sha512_initial_hash_value));
640 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, sizeof(context->buffer));
641 b1ec8cee 2023-02-25 thomas context->bitcount[0] = context->bitcount[1] = 0;
643 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512Init);
645 b1ec8cee 2023-02-25 thomas #ifdef SHA2_UNROLL_TRANSFORM
647 b1ec8cee 2023-02-25 thomas /* Unrolled SHA-512 round macros: */
649 b1ec8cee 2023-02-25 thomas #define ROUND512_0_TO_15(a,b,c,d,e,f,g,h) do { \
650 b1ec8cee 2023-02-25 thomas BE_8_TO_64(W512[j], data); \
651 b1ec8cee 2023-02-25 thomas data += 8; \
652 b1ec8cee 2023-02-25 thomas T1 = (h) + Sigma1_512((e)) + Ch((e), (f), (g)) + K512[j] + W512[j]; \
653 b1ec8cee 2023-02-25 thomas (d) += T1; \
654 b1ec8cee 2023-02-25 thomas (h) = T1 + Sigma0_512((a)) + Maj((a), (b), (c)); \
656 b1ec8cee 2023-02-25 thomas } while(0)
659 b1ec8cee 2023-02-25 thomas #define ROUND512(a,b,c,d,e,f,g,h) do { \
660 b1ec8cee 2023-02-25 thomas s0 = W512[(j+1)&0x0f]; \
661 b1ec8cee 2023-02-25 thomas s0 = sigma0_512(s0); \
662 b1ec8cee 2023-02-25 thomas s1 = W512[(j+14)&0x0f]; \
663 b1ec8cee 2023-02-25 thomas s1 = sigma1_512(s1); \
664 b1ec8cee 2023-02-25 thomas T1 = (h) + Sigma1_512((e)) + Ch((e), (f), (g)) + K512[j] + \
665 b1ec8cee 2023-02-25 thomas (W512[j&0x0f] += s1 + W512[(j+9)&0x0f] + s0); \
666 b1ec8cee 2023-02-25 thomas (d) += T1; \
667 b1ec8cee 2023-02-25 thomas (h) = T1 + Sigma0_512((a)) + Maj((a), (b), (c)); \
669 b1ec8cee 2023-02-25 thomas } while(0)
672 b1ec8cee 2023-02-25 thomas SHA512Transform(u_int64_t state[8], const u_int8_t data[SHA512_BLOCK_LENGTH])
674 b1ec8cee 2023-02-25 thomas u_int64_t a, b, c, d, e, f, g, h, s0, s1;
675 b1ec8cee 2023-02-25 thomas u_int64_t T1, W512[16];
678 b1ec8cee 2023-02-25 thomas /* Initialize registers with the prev. intermediate value */
679 b1ec8cee 2023-02-25 thomas a = state[0];
680 b1ec8cee 2023-02-25 thomas b = state[1];
681 b1ec8cee 2023-02-25 thomas c = state[2];
682 b1ec8cee 2023-02-25 thomas d = state[3];
683 b1ec8cee 2023-02-25 thomas e = state[4];
684 b1ec8cee 2023-02-25 thomas f = state[5];
685 b1ec8cee 2023-02-25 thomas g = state[6];
686 b1ec8cee 2023-02-25 thomas h = state[7];
690 b1ec8cee 2023-02-25 thomas /* Rounds 0 to 15 (unrolled): */
691 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(a,b,c,d,e,f,g,h);
692 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(h,a,b,c,d,e,f,g);
693 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(g,h,a,b,c,d,e,f);
694 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(f,g,h,a,b,c,d,e);
695 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(e,f,g,h,a,b,c,d);
696 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(d,e,f,g,h,a,b,c);
697 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(c,d,e,f,g,h,a,b);
698 b1ec8cee 2023-02-25 thomas ROUND512_0_TO_15(b,c,d,e,f,g,h,a);
699 b1ec8cee 2023-02-25 thomas } while (j < 16);
701 b1ec8cee 2023-02-25 thomas /* Now for the remaining rounds up to 79: */
703 b1ec8cee 2023-02-25 thomas ROUND512(a,b,c,d,e,f,g,h);
704 b1ec8cee 2023-02-25 thomas ROUND512(h,a,b,c,d,e,f,g);
705 b1ec8cee 2023-02-25 thomas ROUND512(g,h,a,b,c,d,e,f);
706 b1ec8cee 2023-02-25 thomas ROUND512(f,g,h,a,b,c,d,e);
707 b1ec8cee 2023-02-25 thomas ROUND512(e,f,g,h,a,b,c,d);
708 b1ec8cee 2023-02-25 thomas ROUND512(d,e,f,g,h,a,b,c);
709 b1ec8cee 2023-02-25 thomas ROUND512(c,d,e,f,g,h,a,b);
710 b1ec8cee 2023-02-25 thomas ROUND512(b,c,d,e,f,g,h,a);
711 b1ec8cee 2023-02-25 thomas } while (j < 80);
713 b1ec8cee 2023-02-25 thomas /* Compute the current intermediate hash value */
714 b1ec8cee 2023-02-25 thomas state[0] += a;
715 b1ec8cee 2023-02-25 thomas state[1] += b;
716 b1ec8cee 2023-02-25 thomas state[2] += c;
717 b1ec8cee 2023-02-25 thomas state[3] += d;
718 b1ec8cee 2023-02-25 thomas state[4] += e;
719 b1ec8cee 2023-02-25 thomas state[5] += f;
720 b1ec8cee 2023-02-25 thomas state[6] += g;
721 b1ec8cee 2023-02-25 thomas state[7] += h;
723 b1ec8cee 2023-02-25 thomas /* Clean up */
724 b1ec8cee 2023-02-25 thomas a = b = c = d = e = f = g = h = T1 = 0;
727 b1ec8cee 2023-02-25 thomas #else /* SHA2_UNROLL_TRANSFORM */
730 b1ec8cee 2023-02-25 thomas SHA512Transform(u_int64_t state[8], const u_int8_t data[SHA512_BLOCK_LENGTH])
732 b1ec8cee 2023-02-25 thomas u_int64_t a, b, c, d, e, f, g, h, s0, s1;
733 b1ec8cee 2023-02-25 thomas u_int64_t T1, T2, W512[16];
736 b1ec8cee 2023-02-25 thomas /* Initialize registers with the prev. intermediate value */
737 b1ec8cee 2023-02-25 thomas a = state[0];
738 b1ec8cee 2023-02-25 thomas b = state[1];
739 b1ec8cee 2023-02-25 thomas c = state[2];
740 b1ec8cee 2023-02-25 thomas d = state[3];
741 b1ec8cee 2023-02-25 thomas e = state[4];
742 b1ec8cee 2023-02-25 thomas f = state[5];
743 b1ec8cee 2023-02-25 thomas g = state[6];
744 b1ec8cee 2023-02-25 thomas h = state[7];
748 b1ec8cee 2023-02-25 thomas BE_8_TO_64(W512[j], data);
749 b1ec8cee 2023-02-25 thomas data += 8;
750 b1ec8cee 2023-02-25 thomas /* Apply the SHA-512 compression function to update a..h */
751 b1ec8cee 2023-02-25 thomas T1 = h + Sigma1_512(e) + Ch(e, f, g) + K512[j] + W512[j];
752 b1ec8cee 2023-02-25 thomas T2 = Sigma0_512(a) + Maj(a, b, c);
756 b1ec8cee 2023-02-25 thomas e = d + T1;
760 b1ec8cee 2023-02-25 thomas a = T1 + T2;
763 b1ec8cee 2023-02-25 thomas } while (j < 16);
766 b1ec8cee 2023-02-25 thomas /* Part of the message block expansion: */
767 b1ec8cee 2023-02-25 thomas s0 = W512[(j+1)&0x0f];
768 b1ec8cee 2023-02-25 thomas s0 = sigma0_512(s0);
769 b1ec8cee 2023-02-25 thomas s1 = W512[(j+14)&0x0f];
770 b1ec8cee 2023-02-25 thomas s1 = sigma1_512(s1);
772 b1ec8cee 2023-02-25 thomas /* Apply the SHA-512 compression function to update a..h */
773 b1ec8cee 2023-02-25 thomas T1 = h + Sigma1_512(e) + Ch(e, f, g) + K512[j] +
774 b1ec8cee 2023-02-25 thomas (W512[j&0x0f] += s1 + W512[(j+9)&0x0f] + s0);
775 b1ec8cee 2023-02-25 thomas T2 = Sigma0_512(a) + Maj(a, b, c);
779 b1ec8cee 2023-02-25 thomas e = d + T1;
783 b1ec8cee 2023-02-25 thomas a = T1 + T2;
786 b1ec8cee 2023-02-25 thomas } while (j < 80);
788 b1ec8cee 2023-02-25 thomas /* Compute the current intermediate hash value */
789 b1ec8cee 2023-02-25 thomas state[0] += a;
790 b1ec8cee 2023-02-25 thomas state[1] += b;
791 b1ec8cee 2023-02-25 thomas state[2] += c;
792 b1ec8cee 2023-02-25 thomas state[3] += d;
793 b1ec8cee 2023-02-25 thomas state[4] += e;
794 b1ec8cee 2023-02-25 thomas state[5] += f;
795 b1ec8cee 2023-02-25 thomas state[6] += g;
796 b1ec8cee 2023-02-25 thomas state[7] += h;
798 b1ec8cee 2023-02-25 thomas /* Clean up */
799 b1ec8cee 2023-02-25 thomas a = b = c = d = e = f = g = h = T1 = T2 = 0;
802 b1ec8cee 2023-02-25 thomas #endif /* SHA2_UNROLL_TRANSFORM */
803 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512Transform);
806 b1ec8cee 2023-02-25 thomas SHA512Update(SHA2_CTX *context, const u_int8_t *data, size_t len)
808 b1ec8cee 2023-02-25 thomas size_t freespace, usedspace;
810 b1ec8cee 2023-02-25 thomas /* Calling with no data is valid (we do nothing) */
811 b1ec8cee 2023-02-25 thomas if (len == 0)
814 b1ec8cee 2023-02-25 thomas usedspace = (context->bitcount[0] >> 3) % SHA512_BLOCK_LENGTH;
815 b1ec8cee 2023-02-25 thomas if (usedspace > 0) {
816 b1ec8cee 2023-02-25 thomas /* Calculate how much free space is available in the buffer */
817 b1ec8cee 2023-02-25 thomas freespace = SHA512_BLOCK_LENGTH - usedspace;
819 b1ec8cee 2023-02-25 thomas if (len >= freespace) {
820 b1ec8cee 2023-02-25 thomas /* Fill the buffer completely and process it */
821 b1ec8cee 2023-02-25 thomas memcpy(&context->buffer[usedspace], data, freespace);
822 b1ec8cee 2023-02-25 thomas ADDINC128(context->bitcount, freespace << 3);
823 b1ec8cee 2023-02-25 thomas len -= freespace;
824 b1ec8cee 2023-02-25 thomas data += freespace;
825 b1ec8cee 2023-02-25 thomas SHA512Transform(context->state.st64, context->buffer);
827 b1ec8cee 2023-02-25 thomas /* The buffer is not yet full */
828 b1ec8cee 2023-02-25 thomas memcpy(&context->buffer[usedspace], data, len);
829 b1ec8cee 2023-02-25 thomas ADDINC128(context->bitcount, len << 3);
830 b1ec8cee 2023-02-25 thomas /* Clean up: */
831 b1ec8cee 2023-02-25 thomas usedspace = freespace = 0;
835 b1ec8cee 2023-02-25 thomas while (len >= SHA512_BLOCK_LENGTH) {
836 b1ec8cee 2023-02-25 thomas /* Process as many complete blocks as we can */
837 b1ec8cee 2023-02-25 thomas SHA512Transform(context->state.st64, data);
838 b1ec8cee 2023-02-25 thomas ADDINC128(context->bitcount, SHA512_BLOCK_LENGTH << 3);
839 b1ec8cee 2023-02-25 thomas len -= SHA512_BLOCK_LENGTH;
840 b1ec8cee 2023-02-25 thomas data += SHA512_BLOCK_LENGTH;
842 b1ec8cee 2023-02-25 thomas if (len > 0) {
843 b1ec8cee 2023-02-25 thomas /* There's left-overs, so save 'em */
844 b1ec8cee 2023-02-25 thomas memcpy(context->buffer, data, len);
845 b1ec8cee 2023-02-25 thomas ADDINC128(context->bitcount, len << 3);
847 b1ec8cee 2023-02-25 thomas /* Clean up: */
848 b1ec8cee 2023-02-25 thomas usedspace = freespace = 0;
850 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512Update);
853 b1ec8cee 2023-02-25 thomas SHA512Pad(SHA2_CTX *context)
855 b1ec8cee 2023-02-25 thomas unsigned int usedspace;
857 b1ec8cee 2023-02-25 thomas usedspace = (context->bitcount[0] >> 3) % SHA512_BLOCK_LENGTH;
858 b1ec8cee 2023-02-25 thomas if (usedspace > 0) {
859 b1ec8cee 2023-02-25 thomas /* Begin padding with a 1 bit: */
860 b1ec8cee 2023-02-25 thomas context->buffer[usedspace++] = 0x80;
862 b1ec8cee 2023-02-25 thomas if (usedspace <= SHA512_SHORT_BLOCK_LENGTH) {
863 b1ec8cee 2023-02-25 thomas /* Set-up for the last transform: */
864 b1ec8cee 2023-02-25 thomas memset(&context->buffer[usedspace], 0, SHA512_SHORT_BLOCK_LENGTH - usedspace);
866 b1ec8cee 2023-02-25 thomas if (usedspace < SHA512_BLOCK_LENGTH) {
867 b1ec8cee 2023-02-25 thomas memset(&context->buffer[usedspace], 0, SHA512_BLOCK_LENGTH - usedspace);
869 b1ec8cee 2023-02-25 thomas /* Do second-to-last transform: */
870 b1ec8cee 2023-02-25 thomas SHA512Transform(context->state.st64, context->buffer);
872 b1ec8cee 2023-02-25 thomas /* And set-up for the last transform: */
873 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, SHA512_BLOCK_LENGTH - 2);
876 b1ec8cee 2023-02-25 thomas /* Prepare for final transform: */
877 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, SHA512_SHORT_BLOCK_LENGTH);
879 b1ec8cee 2023-02-25 thomas /* Begin padding with a 1 bit: */
880 b1ec8cee 2023-02-25 thomas *context->buffer = 0x80;
882 b1ec8cee 2023-02-25 thomas /* Store the length of input data (in bits) in big endian format: */
883 b1ec8cee 2023-02-25 thomas BE_64_TO_8(&context->buffer[SHA512_SHORT_BLOCK_LENGTH],
884 b1ec8cee 2023-02-25 thomas context->bitcount[1]);
885 b1ec8cee 2023-02-25 thomas BE_64_TO_8(&context->buffer[SHA512_SHORT_BLOCK_LENGTH + 8],
886 b1ec8cee 2023-02-25 thomas context->bitcount[0]);
888 b1ec8cee 2023-02-25 thomas /* Final transform: */
889 b1ec8cee 2023-02-25 thomas SHA512Transform(context->state.st64, context->buffer);
891 b1ec8cee 2023-02-25 thomas /* Clean up: */
892 b1ec8cee 2023-02-25 thomas usedspace = 0;
894 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512Pad);
897 b1ec8cee 2023-02-25 thomas SHA512Final(u_int8_t digest[SHA512_DIGEST_LENGTH], SHA2_CTX *context)
899 b1ec8cee 2023-02-25 thomas SHA512Pad(context);
901 b1ec8cee 2023-02-25 thomas #if BYTE_ORDER == LITTLE_ENDIAN
904 b1ec8cee 2023-02-25 thomas /* Convert TO host byte order */
905 b1ec8cee 2023-02-25 thomas for (i = 0; i < 8; i++)
906 b1ec8cee 2023-02-25 thomas BE_64_TO_8(digest + i * 8, context->state.st64[i]);
908 b1ec8cee 2023-02-25 thomas memcpy(digest, context->state.st64, SHA512_DIGEST_LENGTH);
910 b1ec8cee 2023-02-25 thomas explicit_bzero(context, sizeof(*context));
912 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512Final);
914 b1ec8cee 2023-02-25 thomas #if !defined(SHA2_SMALL)
916 b1ec8cee 2023-02-25 thomas /*** SHA-384: *********************************************************/
918 b1ec8cee 2023-02-25 thomas SHA384Init(SHA2_CTX *context)
920 b1ec8cee 2023-02-25 thomas memcpy(context->state.st64, sha384_initial_hash_value,
921 b1ec8cee 2023-02-25 thomas sizeof(sha384_initial_hash_value));
922 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, sizeof(context->buffer));
923 b1ec8cee 2023-02-25 thomas context->bitcount[0] = context->bitcount[1] = 0;
925 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA384Init);
927 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA384Transform, SHA512Transform);
928 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA384Update, SHA512Update);
929 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA384Pad, SHA512Pad);
930 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA384Transform);
931 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA384Update);
932 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA384Pad);
934 b1ec8cee 2023-02-25 thomas /* Equivalent of MAKE_CLONE (which is a no-op) for SHA384 funcs */
936 b1ec8cee 2023-02-25 thomas SHA384Transform(u_int64_t state[8], const u_int8_t data[SHA512_BLOCK_LENGTH])
938 b1ec8cee 2023-02-25 thomas SHA512Transform(state, data);
942 b1ec8cee 2023-02-25 thomas SHA384Update(SHA2_CTX *context, const u_int8_t *data, size_t len)
944 b1ec8cee 2023-02-25 thomas SHA512Update(context, data, len);
948 b1ec8cee 2023-02-25 thomas SHA384Pad(SHA2_CTX *context)
950 b1ec8cee 2023-02-25 thomas SHA512Pad(context);
954 b1ec8cee 2023-02-25 thomas SHA384Final(u_int8_t digest[SHA384_DIGEST_LENGTH], SHA2_CTX *context)
956 b1ec8cee 2023-02-25 thomas SHA384Pad(context);
958 b1ec8cee 2023-02-25 thomas #if BYTE_ORDER == LITTLE_ENDIAN
961 b1ec8cee 2023-02-25 thomas /* Convert TO host byte order */
962 b1ec8cee 2023-02-25 thomas for (i = 0; i < 6; i++)
963 b1ec8cee 2023-02-25 thomas BE_64_TO_8(digest + i * 8, context->state.st64[i]);
965 b1ec8cee 2023-02-25 thomas memcpy(digest, context->state.st64, SHA384_DIGEST_LENGTH);
967 b1ec8cee 2023-02-25 thomas /* Zero out state data */
968 b1ec8cee 2023-02-25 thomas explicit_bzero(context, sizeof(*context));
970 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA384Final);
973 b1ec8cee 2023-02-25 thomas /*** SHA-512/256: *********************************************************/
975 b1ec8cee 2023-02-25 thomas SHA512_256Init(SHA2_CTX *context)
977 b1ec8cee 2023-02-25 thomas memcpy(context->state.st64, sha512_256_initial_hash_value,
978 b1ec8cee 2023-02-25 thomas sizeof(sha512_256_initial_hash_value));
979 b1ec8cee 2023-02-25 thomas memset(context->buffer, 0, sizeof(context->buffer));
980 b1ec8cee 2023-02-25 thomas context->bitcount[0] = context->bitcount[1] = 0;
982 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512_256Init);
984 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA512_256Transform, SHA512Transform);
985 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA512_256Update, SHA512Update);
986 b1ec8cee 2023-02-25 thomas MAKE_CLONE(SHA512_256Pad, SHA512Pad);
987 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512_256Transform);
988 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512_256Update);
989 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512_256Pad);
992 b1ec8cee 2023-02-25 thomas SHA512_256Final(u_int8_t digest[SHA512_256_DIGEST_LENGTH], SHA2_CTX *context)
994 b1ec8cee 2023-02-25 thomas SHA512_256Pad(context);
996 b1ec8cee 2023-02-25 thomas #if BYTE_ORDER == LITTLE_ENDIAN
999 b1ec8cee 2023-02-25 thomas /* Convert TO host byte order */
1000 b1ec8cee 2023-02-25 thomas for (i = 0; i < 4; i++)
1001 b1ec8cee 2023-02-25 thomas BE_64_TO_8(digest + i * 8, context->state.st64[i]);
1003 b1ec8cee 2023-02-25 thomas memcpy(digest, context->state.st64, SHA512_256_DIGEST_LENGTH);
1005 b1ec8cee 2023-02-25 thomas /* Zero out state data */
1006 b1ec8cee 2023-02-25 thomas explicit_bzero(context, sizeof(*context));
1008 b1ec8cee 2023-02-25 thomas DEF_WEAK(SHA512_256Final);
1009 b1ec8cee 2023-02-25 thomas #endif /* !defined(SHA2_SMALL) */
1010 b1ec8cee 2023-02-25 thomas #endif /* 0 */
1012 b1ec8cee 2023-02-25 thomas #endif /* HAVE_SHA{256,384,512}UPDATE */
