FEAT: added support for SHA384 and SHA512 checksums

Replaced Brad Conte's SHA256 only implementation with Aaron D. Gifford's version which supports the new methods too.

Author: Oldes

NOTICE

@@ -21,8 +21,8 @@ SHA1:
 Copyright 1995-1998 Eric Young (eay@cryptsoft.com)
 All rights reserved.
 
-SHA256:
-Copyright 2006-2012 (?) Brad Conte
+SHA256/384/512:
+Copyright (c) 2000-2001, Aaron D. Gifford - http://www.aarongifford.com/
 
 RC4, AES, DH:
 Copyright (c) 2007, Cameron Rich

src/boot/natives.r

@@ -381,7 +381,7 @@ checksum: native [
 	/hash {Returns a hash value}
 	size [integer!] {Size of the hash table}
 	/method {Method to use}
-	word [word!] {Methods: SHA1 SHA256 MD5 CRC32}
+	word [word!] {Methods: SHA1 SHA256 SHA384 SHA512 MD5 CRC32}
 	/key {Returns keyed HMAC value}
 	key-value [any-string! binary!] {Key to use}
 ]

src/core/n-strings.c

@@ -47,13 +47,25 @@ int  SHA1_CtxSize(void);
 #endif
 #endif
 
-#ifndef SHA256_DEFINED
-#ifdef HAS_SHA256
+#ifndef SHA2_DEFINED
+#ifdef HAS_SHA2
 REBYTE *SHA256(REBYTE *, REBCNT, REBYTE *);
 void SHA256_Init(void *c);
 void SHA256_Update(void *c, REBYTE *data, REBCNT len);
 void SHA256_Final(REBYTE *md, void *c);
 int  SHA256_CtxSize(void);
+
+REBYTE *SHA384(REBYTE *, REBCNT, REBYTE *);
+void SHA384_Init(void *c);
+void SHA384_Update(void *c, REBYTE *data, REBCNT len);
+void SHA384_Final(REBYTE *md, void *c);
+int  SHA384_CtxSize(void);
+
+REBYTE *SHA512(REBYTE *, REBCNT, REBYTE *);
+void SHA512_Init(void *c);
+void SHA512_Update(void *c, REBYTE *data, REBCNT len);
+void SHA512_Final(REBYTE *md, void *c);
+int  SHA512_CtxSize(void);
 #endif
 #endif
 
@@ -91,8 +103,10 @@ static struct digest {
 	{SHA1, SHA1_Init, SHA1_Update, SHA1_Final, SHA1_CtxSize, SYM_SHA1, 20, 64},
 #endif
 
-#ifdef HAS_SHA256
-	{SHA256, SHA256_Init, SHA256_Update, SHA256_Final, SHA256_CtxSize, SYM_SHA256, 32, 64},
+#ifdef HAS_SHA2
+	{ SHA256, SHA256_Init, SHA256_Update, SHA256_Final, SHA256_CtxSize, SYM_SHA256, 32, 64 },
+	{ SHA384, SHA384_Init, SHA384_Update, SHA384_Final, SHA384_CtxSize, SYM_SHA384, 48, 128 },
+	{ SHA512, SHA512_Init, SHA512_Update, SHA512_Final, SHA512_CtxSize, SYM_SHA512, 64, 128 },
 #endif
 
 #ifdef HAS_MD4

src/core/p-checksum.c

@@ -27,11 +27,12 @@
 **
 ***********************************************************************/
 
-#include "sys-core.h"
+//#include "sys-core.h"
+#include "sys-sha2.h"
 #include "reb-net.h"
 #include "sys-md5.h"
 #include "sys-sha1.h"
-#include "sys-sha256.h"
+
 
 
 /***********************************************************************
@@ -51,7 +52,15 @@
 			break;
 		case SYM_SHA256:
 			*ctx = sizeof(SHA256_CTX);
-			*blk = SHA256_BLOCK_SIZE;
+			*blk = SHA256_DIGEST_LENGTH;
+			return;
+		case SYM_SHA384:
+			*ctx = sizeof(SHA384_CTX);
+			*blk = SHA384_DIGEST_LENGTH;
+			return;
+		case SYM_SHA512:
+			*ctx = sizeof(SHA512_CTX);
+			*blk = SHA512_DIGEST_LENGTH;
 			return;
 		default:
 			*ctx = *blk = 0;
@@ -85,6 +94,12 @@
 		case SYM_SHA256:
 			SHA256_Init((SHA256_CTX*)VAL_BIN(ctx));
 			return TRUE;
+		case SYM_SHA384:
+			SHA384_Init((SHA384_CTX*)VAL_BIN(ctx));
+			return TRUE;
+		case SYM_SHA512:
+			SHA512_Init((SHA512_CTX*)VAL_BIN(ctx));
+			return TRUE;
 	}
 	return FALSE;
 }
@@ -162,6 +177,12 @@
 			case SYM_SHA256:
 				SHA256_Update((SHA256_CTX*)VAL_BIN(ctx), VAL_BIN_SKIP(arg, pos), part);
 				break;
+			case SYM_SHA384:
+				SHA384_Update((SHA384_CTX*)VAL_BIN(ctx), VAL_BIN_SKIP(arg, pos), part);
+				break;
+			case SYM_SHA512:
+				SHA512_Update((SHA512_CTX*)VAL_BIN(ctx), VAL_BIN_SKIP(arg, pos), part);
+				break;
 			}
 		break;
 	case A_READ:
@@ -194,6 +215,12 @@
 		case SYM_SHA256:
 			SHA256_Final(VAL_BIN_DATA(data), (SHA256_CTX*)DS_TOP);
 			break;
+		case SYM_SHA384:
+			SHA384_Final(VAL_BIN_DATA(data), (SHA384_CTX*)DS_TOP);
+			break;
+		case SYM_SHA512:
+			SHA512_Final(VAL_BIN_DATA(data), (SHA512_CTX*)DS_TOP);
+			break;
 		}
 		if(action == A_READ) *D_RET = *data;
 		return R_RET;