ed25519-hash.h (6867B)
1 #if defined(ED25519_REFHASH) 2 3 /* reference/slow SHA-512. really, do not use this */ 4 5 #define HASH_BLOCK_SIZE 128 6 #define HASH_DIGEST_SIZE 64 7 8 typedef struct sha512_state_t { 9 uint64_t H[8]; 10 uint64_t T[2]; 11 uint32_t leftover; 12 uint8_t buffer[HASH_BLOCK_SIZE]; 13 } sha512_state; 14 15 typedef sha512_state ed25519_hash_context; 16 17 static const uint64_t sha512_constants[80] = { 18 0x428a2f98d728ae22ull, 0x7137449123ef65cdull, 0xb5c0fbcfec4d3b2full, 0xe9b5dba58189dbbcull, 19 0x3956c25bf348b538ull, 0x59f111f1b605d019ull, 0x923f82a4af194f9bull, 0xab1c5ed5da6d8118ull, 20 0xd807aa98a3030242ull, 0x12835b0145706fbeull, 0x243185be4ee4b28cull, 0x550c7dc3d5ffb4e2ull, 21 0x72be5d74f27b896full, 0x80deb1fe3b1696b1ull, 0x9bdc06a725c71235ull, 0xc19bf174cf692694ull, 22 0xe49b69c19ef14ad2ull, 0xefbe4786384f25e3ull, 0x0fc19dc68b8cd5b5ull, 0x240ca1cc77ac9c65ull, 23 0x2de92c6f592b0275ull, 0x4a7484aa6ea6e483ull, 0x5cb0a9dcbd41fbd4ull, 0x76f988da831153b5ull, 24 0x983e5152ee66dfabull, 0xa831c66d2db43210ull, 0xb00327c898fb213full, 0xbf597fc7beef0ee4ull, 25 0xc6e00bf33da88fc2ull, 0xd5a79147930aa725ull, 0x06ca6351e003826full, 0x142929670a0e6e70ull, 26 0x27b70a8546d22ffcull, 0x2e1b21385c26c926ull, 0x4d2c6dfc5ac42aedull, 0x53380d139d95b3dfull, 27 0x650a73548baf63deull, 0x766a0abb3c77b2a8ull, 0x81c2c92e47edaee6ull, 0x92722c851482353bull, 28 0xa2bfe8a14cf10364ull, 0xa81a664bbc423001ull, 0xc24b8b70d0f89791ull, 0xc76c51a30654be30ull, 29 0xd192e819d6ef5218ull, 0xd69906245565a910ull, 0xf40e35855771202aull, 0x106aa07032bbd1b8ull, 30 0x19a4c116b8d2d0c8ull, 0x1e376c085141ab53ull, 0x2748774cdf8eeb99ull, 0x34b0bcb5e19b48a8ull, 31 0x391c0cb3c5c95a63ull, 0x4ed8aa4ae3418acbull, 0x5b9cca4f7763e373ull, 0x682e6ff3d6b2b8a3ull, 32 0x748f82ee5defb2fcull, 0x78a5636f43172f60ull, 0x84c87814a1f0ab72ull, 0x8cc702081a6439ecull, 33 0x90befffa23631e28ull, 0xa4506cebde82bde9ull, 0xbef9a3f7b2c67915ull, 0xc67178f2e372532bull, 34 0xca273eceea26619cull, 0xd186b8c721c0c207ull, 0xeada7dd6cde0eb1eull, 0xf57d4f7fee6ed178ull, 35 0x06f067aa72176fbaull, 0x0a637dc5a2c898a6ull, 0x113f9804bef90daeull, 0x1b710b35131c471bull, 36 0x28db77f523047d84ull, 0x32caab7b40c72493ull, 0x3c9ebe0a15c9bebcull, 0x431d67c49c100d4cull, 37 0x4cc5d4becb3e42b6ull, 0x597f299cfc657e2aull, 0x5fcb6fab3ad6faecull, 0x6c44198c4a475817ull 38 }; 39 40 static uint64_t 41 sha512_ROTR64(uint64_t x, int k) { 42 return (x >> k) | (x << (64 - k)); 43 } 44 45 static uint64_t 46 sha512_LOAD64_BE(const uint8_t *p) { 47 return 48 ((uint64_t)p[0] << 56) | 49 ((uint64_t)p[1] << 48) | 50 ((uint64_t)p[2] << 40) | 51 ((uint64_t)p[3] << 32) | 52 ((uint64_t)p[4] << 24) | 53 ((uint64_t)p[5] << 16) | 54 ((uint64_t)p[6] << 8) | 55 ((uint64_t)p[7] ); 56 } 57 58 static void 59 sha512_STORE64_BE(uint8_t *p, uint64_t v) { 60 p[0] = (uint8_t)(v >> 56); 61 p[1] = (uint8_t)(v >> 48); 62 p[2] = (uint8_t)(v >> 40); 63 p[3] = (uint8_t)(v >> 32); 64 p[4] = (uint8_t)(v >> 24); 65 p[5] = (uint8_t)(v >> 16); 66 p[6] = (uint8_t)(v >> 8); 67 p[7] = (uint8_t)(v ); 68 } 69 70 #define Ch(x,y,z) (z ^ (x & (y ^ z))) 71 #define Maj(x,y,z) (((x | y) & z) | (x & y)) 72 #define S0(x) (sha512_ROTR64(x, 28) ^ sha512_ROTR64(x, 34) ^ sha512_ROTR64(x, 39)) 73 #define S1(x) (sha512_ROTR64(x, 14) ^ sha512_ROTR64(x, 18) ^ sha512_ROTR64(x, 41)) 74 #define G0(x) (sha512_ROTR64(x, 1) ^ sha512_ROTR64(x, 8) ^ (x >> 7)) 75 #define G1(x) (sha512_ROTR64(x, 19) ^ sha512_ROTR64(x, 61) ^ (x >> 6)) 76 #define W0(in,i) (sha512_LOAD64_BE(&in[i * 8])) 77 #define W1(i) (G1(w[i - 2]) + w[i - 7] + G0(w[i - 15]) + w[i - 16]) 78 #define STEP(i) \ 79 t1 = S0(r[0]) + Maj(r[0], r[1], r[2]); \ 80 t0 = r[7] + S1(r[4]) + Ch(r[4], r[5], r[6]) + sha512_constants[i] + w[i]; \ 81 r[7] = r[6]; \ 82 r[6] = r[5]; \ 83 r[5] = r[4]; \ 84 r[4] = r[3] + t0; \ 85 r[3] = r[2]; \ 86 r[2] = r[1]; \ 87 r[1] = r[0]; \ 88 r[0] = t0 + t1; 89 90 static void 91 sha512_blocks(sha512_state *S, const uint8_t *in, size_t blocks) { 92 uint64_t r[8], w[80], t0, t1; 93 size_t i; 94 95 for (i = 0; i < 8; i++) r[i] = S->H[i]; 96 97 while (blocks--) { 98 for (i = 0; i < 16; i++) { w[i] = W0(in, i); } 99 for (i = 16; i < 80; i++) { w[i] = W1(i); } 100 for (i = 0; i < 80; i++) { STEP(i); } 101 for (i = 0; i < 8; i++) { r[i] += S->H[i]; S->H[i] = r[i]; } 102 S->T[0] += HASH_BLOCK_SIZE * 8; 103 S->T[1] += (!S->T[0]) ? 1 : 0; 104 in += HASH_BLOCK_SIZE; 105 } 106 } 107 108 static void 109 ed25519_hash_init(sha512_state *S) { 110 S->H[0] = 0x6a09e667f3bcc908ull; 111 S->H[1] = 0xbb67ae8584caa73bull; 112 S->H[2] = 0x3c6ef372fe94f82bull; 113 S->H[3] = 0xa54ff53a5f1d36f1ull; 114 S->H[4] = 0x510e527fade682d1ull; 115 S->H[5] = 0x9b05688c2b3e6c1full; 116 S->H[6] = 0x1f83d9abfb41bd6bull; 117 S->H[7] = 0x5be0cd19137e2179ull; 118 S->T[0] = 0; 119 S->T[1] = 0; 120 S->leftover = 0; 121 } 122 123 static void 124 ed25519_hash_update(sha512_state *S, const uint8_t *in, size_t inlen) { 125 size_t blocks, want; 126 127 /* handle the previous data */ 128 if (S->leftover) { 129 want = (HASH_BLOCK_SIZE - S->leftover); 130 want = (want < inlen) ? want : inlen; 131 memcpy(S->buffer + S->leftover, in, want); 132 S->leftover += (uint32_t)want; 133 if (S->leftover < HASH_BLOCK_SIZE) 134 return; 135 in += want; 136 inlen -= want; 137 sha512_blocks(S, S->buffer, 1); 138 } 139 140 /* handle the current data */ 141 blocks = (inlen & ~(HASH_BLOCK_SIZE - 1)); 142 S->leftover = (uint32_t)(inlen - blocks); 143 if (blocks) { 144 sha512_blocks(S, in, blocks / HASH_BLOCK_SIZE); 145 in += blocks; 146 } 147 148 /* handle leftover data */ 149 if (S->leftover) 150 memcpy(S->buffer, in, S->leftover); 151 } 152 153 static void 154 ed25519_hash_final(sha512_state *S, uint8_t *hash) { 155 uint64_t t0 = S->T[0] + (S->leftover * 8), t1 = S->T[1]; 156 157 S->buffer[S->leftover] = 0x80; 158 if (S->leftover <= 111) { 159 memset(S->buffer + S->leftover + 1, 0, 111 - S->leftover); 160 } else { 161 memset(S->buffer + S->leftover + 1, 0, 127 - S->leftover); 162 sha512_blocks(S, S->buffer, 1); 163 memset(S->buffer, 0, 112); 164 } 165 166 sha512_STORE64_BE(S->buffer + 112, t1); 167 sha512_STORE64_BE(S->buffer + 120, t0); 168 sha512_blocks(S, S->buffer, 1); 169 170 sha512_STORE64_BE(&hash[ 0], S->H[0]); 171 sha512_STORE64_BE(&hash[ 8], S->H[1]); 172 sha512_STORE64_BE(&hash[16], S->H[2]); 173 sha512_STORE64_BE(&hash[24], S->H[3]); 174 sha512_STORE64_BE(&hash[32], S->H[4]); 175 sha512_STORE64_BE(&hash[40], S->H[5]); 176 sha512_STORE64_BE(&hash[48], S->H[6]); 177 sha512_STORE64_BE(&hash[56], S->H[7]); 178 } 179 180 static void 181 ed25519_hash(uint8_t *hash, const uint8_t *in, size_t inlen) { 182 ed25519_hash_context ctx; 183 ed25519_hash_init(&ctx); 184 ed25519_hash_update(&ctx, in, inlen); 185 ed25519_hash_final(&ctx, hash); 186 } 187 188 #elif defined(ED25519_CUSTOMHASH) 189 190 #include "ed25519-hash-custom.h" 191 192 #else 193 194 #include <openssl/sha.h> 195 196 typedef SHA512_CTX ed25519_hash_context; 197 198 static void 199 ed25519_hash_init(ed25519_hash_context *ctx) { 200 SHA512_Init(ctx); 201 } 202 203 static void 204 ed25519_hash_update(ed25519_hash_context *ctx, const uint8_t *in, size_t inlen) { 205 SHA512_Update(ctx, in, inlen); 206 } 207 208 static void 209 ed25519_hash_final(ed25519_hash_context *ctx, uint8_t *hash) { 210 SHA512_Final(hash, ctx); 211 } 212 213 static void 214 ed25519_hash(uint8_t *hash, const uint8_t *in, size_t inlen) { 215 SHA512(in, inlen, hash); 216 } 217 218 #endif