1 |
|
|
/* $OpenBSD: hash.c,v 1.3 2013/12/09 11:03:45 markus Exp $ */ |
2 |
|
|
|
3 |
|
|
/* Copied from nacl-20110221/crypto_hash/sha512/ref/hash.c */ |
4 |
|
|
|
5 |
|
|
/* |
6 |
|
|
20080913 |
7 |
|
|
D. J. Bernstein |
8 |
|
|
Public domain. |
9 |
|
|
*/ |
10 |
|
|
|
11 |
|
|
#include "crypto_api.h" |
12 |
|
|
|
13 |
|
|
#define blocks crypto_hashblocks_sha512 |
14 |
|
|
|
15 |
|
|
static const unsigned char iv[64] = { |
16 |
|
|
0x6a,0x09,0xe6,0x67,0xf3,0xbc,0xc9,0x08, |
17 |
|
|
0xbb,0x67,0xae,0x85,0x84,0xca,0xa7,0x3b, |
18 |
|
|
0x3c,0x6e,0xf3,0x72,0xfe,0x94,0xf8,0x2b, |
19 |
|
|
0xa5,0x4f,0xf5,0x3a,0x5f,0x1d,0x36,0xf1, |
20 |
|
|
0x51,0x0e,0x52,0x7f,0xad,0xe6,0x82,0xd1, |
21 |
|
|
0x9b,0x05,0x68,0x8c,0x2b,0x3e,0x6c,0x1f, |
22 |
|
|
0x1f,0x83,0xd9,0xab,0xfb,0x41,0xbd,0x6b, |
23 |
|
|
0x5b,0xe0,0xcd,0x19,0x13,0x7e,0x21,0x79 |
24 |
|
|
} ; |
25 |
|
|
|
26 |
|
|
typedef unsigned long long uint64; |
27 |
|
|
|
28 |
|
|
int crypto_hash_sha512(unsigned char *out,const unsigned char *in,unsigned long long inlen) |
29 |
|
|
{ |
30 |
|
|
unsigned char h[64]; |
31 |
|
|
unsigned char padded[256]; |
32 |
|
|
unsigned int i; |
33 |
|
|
unsigned long long bytes = inlen; |
34 |
|
|
|
35 |
|
|
for (i = 0;i < 64;++i) h[i] = iv[i]; |
36 |
|
|
|
37 |
|
|
blocks(h,in,inlen); |
38 |
|
|
in += inlen; |
39 |
|
|
inlen &= 127; |
40 |
|
|
in -= inlen; |
41 |
|
|
|
42 |
|
|
for (i = 0;i < inlen;++i) padded[i] = in[i]; |
43 |
|
|
padded[inlen] = 0x80; |
44 |
|
|
|
45 |
|
|
if (inlen < 112) { |
46 |
|
|
for (i = inlen + 1;i < 119;++i) padded[i] = 0; |
47 |
|
|
padded[119] = bytes >> 61; |
48 |
|
|
padded[120] = bytes >> 53; |
49 |
|
|
padded[121] = bytes >> 45; |
50 |
|
|
padded[122] = bytes >> 37; |
51 |
|
|
padded[123] = bytes >> 29; |
52 |
|
|
padded[124] = bytes >> 21; |
53 |
|
|
padded[125] = bytes >> 13; |
54 |
|
|
padded[126] = bytes >> 5; |
55 |
|
|
padded[127] = bytes << 3; |
56 |
|
|
blocks(h,padded,128); |
57 |
|
|
} else { |
58 |
|
|
for (i = inlen + 1;i < 247;++i) padded[i] = 0; |
59 |
|
|
padded[247] = bytes >> 61; |
60 |
|
|
padded[248] = bytes >> 53; |
61 |
|
|
padded[249] = bytes >> 45; |
62 |
|
|
padded[250] = bytes >> 37; |
63 |
|
|
padded[251] = bytes >> 29; |
64 |
|
|
padded[252] = bytes >> 21; |
65 |
|
|
padded[253] = bytes >> 13; |
66 |
|
|
padded[254] = bytes >> 5; |
67 |
|
|
padded[255] = bytes << 3; |
68 |
|
|
blocks(h,padded,256); |
69 |
|
|
} |
70 |
|
|
|
71 |
|
|
for (i = 0;i < 64;++i) out[i] = h[i]; |
72 |
|
|
|
73 |
|
|
return 0; |
74 |
|
|
} |