28 lines
623 B
C
28 lines
623 B
C
/* $OpenBSD: hash.c,v 1.4 2017/12/14 21:07:39 naddy Exp $ */
|
|
|
|
/* $OpenBSD: hash.c,v 1.5 2018/01/13 00:24:09 naddy Exp $ */
|
|
/*
|
|
* Public domain. Author: Christian Weisgerber <naddy@openbsd.org>
|
|
* API compatible reimplementation of function from nacl
|
|
*/
|
|
|
|
#include "crypto_api.h"
|
|
|
|
#include <stdarg.h>
|
|
|
|
#include "digest.h"
|
|
#include "log.h"
|
|
#include "ssherr.h"
|
|
|
|
int
|
|
crypto_hash_sha512(unsigned char *out, const unsigned char *in,
|
|
unsigned long long inlen)
|
|
{
|
|
int r;
|
|
|
|
if ((r = ssh_digest_memory(SSH_DIGEST_SHA512, in, inlen, out,
|
|
crypto_hash_sha512_BYTES)) != 0)
|
|
fatal("%s: %s", __func__, ssh_err(r));
|
|
return 0;
|
|
}
|