1 files changed, 25 insertions, 0 deletions
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]) ;
+}