Comparison

util.hashes: Return OpenSSL error messages on failure With luck, might contain more details than just "failed"

comparison

equal deleted inserted replaced

-:36e769c64054
+:2e0c7f5cd8f8
 #include <openssl/crypto.h>
 #include <openssl/sha.h>
 #include <openssl/md5.h>
 #include <openssl/hmac.h>
 #include <openssl/evp.h>
+#include <openssl/err.h>
 #if (LUA_VERSION_NUM == 501)
 #define luaL_setfuncs(L, R, N) luaL_register(L, NULL, R)
 #endif
 	return 1;
 fail:
 	EVP_MD_CTX_free(ctx);
-	return luaL_error(L, "hash function failed");
+	return luaL_error(L, ERR_error_string(ERR_get_error(), NULL));
 }
 static int Lsha1(lua_State *L) {
 	return Levp_hash(L, EVP_sha1());
 }
 	return 1;
 fail:
 	EVP_MD_CTX_free(ctx);
 	EVP_PKEY_free(pkey);
-	return luaL_error(L, "hash function failed");
+	return luaL_error(L, ERR_error_string(ERR_get_error(), NULL));
 }
 static int Lhmac_sha1(lua_State *L) {
 	return Levp_hmac(L, EVP_sha1());
 }
 	const char *pass = luaL_checklstring(L, 1, &pass_len);
 	const unsigned char *salt = (unsigned char *)luaL_checklstring(L, 2, &salt_len);
 	const int iter = luaL_checkinteger(L, 3);
 	if(PKCS5_PBKDF2_HMAC(pass, pass_len, salt, salt_len, iter, evp, out_len, out) == 0) {
-		return luaL_error(L, "PKCS5_PBKDF2_HMAC() failed");
+		return luaL_error(L, ERR_error_string(ERR_get_error(), NULL));
 	}
 	lua_pushlstring(L, (char *)out, out_len);
 	return 1;