70 lines
1.9 KiB
C
70 lines
1.9 KiB
C
/* sha512.c */
|
|
/*
|
|
This file is part of the ARM-Crypto-Lib.
|
|
Copyright (C) 2006-2011 Daniel Otte (daniel.otte@rub.de)
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <stdint.h>
|
|
#include <string.h>
|
|
#include "sha2_large_common.h"
|
|
#include "sha512.h"
|
|
|
|
|
|
void sha512_nextBlock (sha512_ctx_t* ctx, const void* block){
|
|
sha2_large_common_nextBlock(ctx, block);
|
|
}
|
|
|
|
void sha512_lastBlock(sha512_ctx_t* ctx, const void* block, uint16_t length_b){
|
|
sha2_large_common_lastBlock(ctx, block, length_b);
|
|
}
|
|
|
|
static const
|
|
uint64_t sha512_init_values[8] = {
|
|
0x6a09e667f3bcc908LL, 0xbb67ae8584caa73bLL, 0x3c6ef372fe94f82bLL, 0xa54ff53a5f1d36f1LL,
|
|
0x510e527fade682d1LL, 0x9b05688c2b3e6c1fLL, 0x1f83d9abfb41bd6bLL, 0x5be0cd19137e2179LL
|
|
};
|
|
|
|
|
|
void sha512_init(sha512_ctx_t* ctx){
|
|
ctx->length = 0;
|
|
memcpy(ctx->h, sha512_init_values, 8*8);
|
|
}
|
|
|
|
void sha512_ctx2hash(void* dest, const sha512_ctx_t* ctx){
|
|
uint8_t i=8, j, *s = (uint8_t*)(ctx->h);
|
|
do{
|
|
j=7;
|
|
do{
|
|
*((uint8_t*)dest) = s[j];
|
|
dest = (uint8_t*)dest + 1;
|
|
}while(j--);
|
|
s += 8;
|
|
}while(--i);
|
|
}
|
|
|
|
|
|
void sha512(void* dest, const void* msg, uint32_t length_b){
|
|
sha512_ctx_t ctx;
|
|
sha512_init(&ctx);
|
|
while(length_b >= 1024){
|
|
sha512_nextBlock(&ctx, msg);
|
|
msg = (uint8_t*)msg + 1024/8;
|
|
length_b -= 1024;
|
|
}
|
|
sha512_lastBlock(&ctx, msg, length_b);
|
|
sha512_ctx2hash(dest, &ctx);
|
|
}
|