1261287Sdes/* $OpenBSD: hash.c,v 1.3 2013/12/09 11:03:45 markus Exp $ */ 2261287Sdes 3261287Sdes/* Copied from nacl-20110221/crypto_hash/sha512/ref/hash.c */ 4261287Sdes 5261287Sdes/* 6261287Sdes20080913 7261287SdesD. J. Bernstein 8261287SdesPublic domain. 9261287Sdes*/ 10261287Sdes 11261287Sdes#include "includes.h" 12261287Sdes 13261287Sdes#include "crypto_api.h" 14261287Sdes 15261287Sdes#define blocks crypto_hashblocks_sha512 16261287Sdes 17261287Sdesstatic const unsigned char iv[64] = { 18261287Sdes 0x6a,0x09,0xe6,0x67,0xf3,0xbc,0xc9,0x08, 19261287Sdes 0xbb,0x67,0xae,0x85,0x84,0xca,0xa7,0x3b, 20261287Sdes 0x3c,0x6e,0xf3,0x72,0xfe,0x94,0xf8,0x2b, 21261287Sdes 0xa5,0x4f,0xf5,0x3a,0x5f,0x1d,0x36,0xf1, 22261287Sdes 0x51,0x0e,0x52,0x7f,0xad,0xe6,0x82,0xd1, 23261287Sdes 0x9b,0x05,0x68,0x8c,0x2b,0x3e,0x6c,0x1f, 24261287Sdes 0x1f,0x83,0xd9,0xab,0xfb,0x41,0xbd,0x6b, 25261287Sdes 0x5b,0xe0,0xcd,0x19,0x13,0x7e,0x21,0x79 26261287Sdes} ; 27261287Sdes 28261287Sdestypedef unsigned long long uint64; 29261287Sdes 30261287Sdesint crypto_hash_sha512(unsigned char *out,const unsigned char *in,unsigned long long inlen) 31261287Sdes{ 32261287Sdes unsigned char h[64]; 33261287Sdes unsigned char padded[256]; 34261287Sdes unsigned int i; 35261287Sdes unsigned long long bytes = inlen; 36261287Sdes 37261287Sdes for (i = 0;i < 64;++i) h[i] = iv[i]; 38261287Sdes 39261287Sdes blocks(h,in,inlen); 40261287Sdes in += inlen; 41261287Sdes inlen &= 127; 42261287Sdes in -= inlen; 43261287Sdes 44261287Sdes for (i = 0;i < inlen;++i) padded[i] = in[i]; 45261287Sdes padded[inlen] = 0x80; 46261287Sdes 47261287Sdes if (inlen < 112) { 48261287Sdes for (i = inlen + 1;i < 119;++i) padded[i] = 0; 49261287Sdes padded[119] = bytes >> 61; 50261287Sdes padded[120] = bytes >> 53; 51261287Sdes padded[121] = bytes >> 45; 52261287Sdes padded[122] = bytes >> 37; 53261287Sdes padded[123] = bytes >> 29; 54261287Sdes padded[124] = bytes >> 21; 55261287Sdes padded[125] = bytes >> 13; 56261287Sdes padded[126] = bytes >> 5; 57261287Sdes padded[127] = bytes << 3; 58261287Sdes blocks(h,padded,128); 59261287Sdes } else { 60261287Sdes for (i = inlen + 1;i < 247;++i) padded[i] = 0; 61261287Sdes padded[247] = bytes >> 61; 62261287Sdes padded[248] = bytes >> 53; 63261287Sdes padded[249] = bytes >> 45; 64261287Sdes padded[250] = bytes >> 37; 65261287Sdes padded[251] = bytes >> 29; 66261287Sdes padded[252] = bytes >> 21; 67261287Sdes padded[253] = bytes >> 13; 68261287Sdes padded[254] = bytes >> 5; 69261287Sdes padded[255] = bytes << 3; 70261287Sdes blocks(h,padded,256); 71261287Sdes } 72261287Sdes 73261287Sdes for (i = 0;i < 64;++i) out[i] = h[i]; 74261287Sdes 75261287Sdes return 0; 76261287Sdes} 77