--- a/util-src/hashes.c	Sun Nov 29 17:58:30 2020 +0100
+++ b/util-src/hashes.c	Sun Nov 29 17:58:45 2020 +0100
@@ -169,10 +169,18 @@
 	return Levp_hmac(L, EVP_sha1());
 }
 
+static int Lhmac_sha224(lua_State *L) {
+	return Levp_hmac(L, EVP_sha224());
+}
+
 static int Lhmac_sha256(lua_State *L) {
 	return Levp_hmac(L, EVP_sha256());
 }
 
+static int Lhmac_sha384(lua_State *L) {
+	return Levp_hmac(L, EVP_sha384());
+}
+
 static int Lhmac_sha512(lua_State *L) {
 	return Levp_hmac(L, EVP_sha512());
 }
@@ -236,7 +244,9 @@
 	{ "sha512",		Lsha512		},
 	{ "md5",		Lmd5		},
 	{ "hmac_sha1",		Lhmac_sha1	},
+	{ "hmac_sha224",	Lhmac_sha224	},
 	{ "hmac_sha256",	Lhmac_sha256	},
+	{ "hmac_sha384",	Lhmac_sha384	},
 	{ "hmac_sha512",	Lhmac_sha512	},
 	{ "hmac_md5",		Lhmac_md5	},
 	{ "scram_Hi_sha1",	Lpbkdf2_sha1	}, /* COMPAT */