From e17f71f9f01a429664caf120d9ac159ed9f5283f Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Fri, 27 Mar 2015 13:28:03 +0000
Subject:  - added sha512 (buggy, need to commit to test somewhere else)  -
 version bump (not a rc yet)  - bugfix: buffer_get returned -1 EPIPE on short
 reads w/o EOF

---
 src/libstdcrypto/sha512_final.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/libstdcrypto/sha512_final.c

(limited to 'src/libstdcrypto/sha512_final.c')

diff --git a/src/libstdcrypto/sha512_final.c b/src/libstdcrypto/sha512_final.c
new file mode 100644
index 0000000..968671b
--- /dev/null
+++ b/src/libstdcrypto/sha512_final.c
@@ -0,0 +1,25 @@
+/* ISC license. */
+
+#include <skalibs/bytestr.h>
+#include <skalibs/uint64.h>
+#include <skalibs/sha512.h>
+#include "sha512-internal.h"
+
+void sha512_final (SHA512Schedule *ctx, char *digest)
+{
+  register unsigned int i = 0 ;
+  register unsigned int pad = ctx->len % 128;
+
+  ctx->buf[pad++] = 0x80 ;
+  if (pad > 112)
+  {
+    byte_zero(ctx->buf + pad, 128 - pad) ;
+    sha512_transform(ctx, ctx->buf) ;
+    pad = 0 ;
+  }
+  byte_zero(ctx + pad, 120 - pad) ;
+  uint64_pack_big((char *)ctx->buf + 120, ctx->len << 3) ;
+  sha512_transform(ctx, ctx->buf) ;
+
+  for (; i < 8 ; i++) uint64_pack_big(digest + (i << 3), ctx->h[i]) ;
+}
-- 
cgit v1.3.1