"Fossies" - the Fresh Open Source Software Archive

Member "tor-0.4.1.6/src/ext/ed25519/donna/ed25519-hash.h" (10 Jun 2019, 6867 Bytes) of package /linux/misc/tor-0.4.1.6.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    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
  219