local t = {}

	for i = 1,#array do

		t_insert(t, s_char(array[i]))

	end

	return t_concat(t)

	the key to use in the hash

	the message to hash

	the hash function

	the blocksize for the hash function in bytes

	local opad = {}

	local ipad = {}

	for i = 1,blocksize do

		opad[i] = 0x5c

		ipad[i] = 0x36

	end

	if #key > blocksize then

		key = hash(key)

	end

	for i = 1,#key do

		ipad[i] = xor(ipad[i],key:sub(i,i):byte())

		opad[i] = xor(opad[i],key:sub(i,i):byte())

	end

	opad = arraystr(opad)

	ipad = arraystr(ipad)

	if hex then

		return hash(opad..hash(ipad..message), true)

	else

		return hash(opad..hash(ipad..message))

	end

	return hmac(key, message, hashes.md5, 64, hex)

	return hmac(key, message, hashes.sha1, 64, hex)

	return hmac(key, message, hashes.sha256, 64, hex)