prosody: util-src/hashes.c@15464633d8fb (annotated)

2923 b7049746bd29 Update copyright headers for 2010 Matthew Wild <mwild1@gmail.com> parents: 896 diff changeset	1	/* Prosody IM
b7049746bd29 Update copyright headers for 2010 Matthew Wild <mwild1@gmail.com> parents: 896 diff changeset	2	-- Copyright (C) 2009-2010 Matthew Wild
b7049746bd29 Update copyright headers for 2010 Matthew Wild <mwild1@gmail.com> parents: 896 diff changeset	3	-- Copyright (C) 2009-2010 Waqas Hussain
520 e96ac4bb6dd8 and the C files too Matthew Wild <mwild1@gmail.com> parents: 441 diff changeset	4	--
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	5	-- This project is MIT/X11 licensed. Please see the
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	6	-- COPYING file in the source package for more information.
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	7	--
520 e96ac4bb6dd8 and the C files too Matthew Wild <mwild1@gmail.com> parents: 441 diff changeset	8	*/
e96ac4bb6dd8 and the C files too Matthew Wild <mwild1@gmail.com> parents: 441 diff changeset	9
e96ac4bb6dd8 and the C files too Matthew Wild <mwild1@gmail.com> parents: 441 diff changeset	10
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	11	/*
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	12	* hashes.c
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	13	* Lua library for sha1, sha256 and md5 hashes
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	14	*/
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	15
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	16	#include <string.h>
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	17
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	18	#include "lua.h"
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	19	#include "lauxlib.h"
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	20	#include <openssl/sha.h>
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	21	#include <openssl/md5.h>
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	22
5537 15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	23	#define HMAC_IPAD 0x36363636
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	24	#define HMAC_OPAD 0x5c5c5c5c
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	25
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	26	const char *hex_tab = "0123456789abcdef";
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	27	void toHex(const unsigned char in, int length, unsigned char out) {
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	28	int i;
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	29	for (i = 0; i < length; i++) {
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	30	out[i*2] = hex_tab[(in[i] >> 4) & 0xF];
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	31	out[i*2+1] = hex_tab[(in[i]) & 0xF];
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	32	}
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	33	}
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	34
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	35	#define MAKE_HASH_FUNCTION(myFunc, func, size) \
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	36	static int myFunc(lua_State *L) { \
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	37	size_t len; \
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	38	const char *s = luaL_checklstring(L, 1, &len); \
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	39	int hex_out = lua_toboolean(L, 2); \
5537 15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	40	unsigned char hash[size], result[size*2]; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	41	func((const unsigned char*)s, len, hash); \
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	42	if (hex_out) { \
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	43	toHex(hash, size, result); \
5537 15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	44	lua_pushlstring(L, (char)result, size2); \
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	45	} else { \
5537 15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	46	lua_pushlstring(L, (char*)hash, size);\
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	47	} \
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	48	return 1; \
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	49	}
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	50
4828 f3e841521436 util.hashes: Use defined hash function output lengths. Kim Alvefur <zash@zash.se> parents: 2923 diff changeset	51	MAKE_HASH_FUNCTION(Lsha1, SHA1, SHA_DIGEST_LENGTH)
4829 0ebc636faa59 util.hashes: Add sha224, sha384, sha512 Kim Alvefur <zash@zash.se> parents: 4828 diff changeset	52	MAKE_HASH_FUNCTION(Lsha224, SHA224, SHA224_DIGEST_LENGTH)
4828 f3e841521436 util.hashes: Use defined hash function output lengths. Kim Alvefur <zash@zash.se> parents: 2923 diff changeset	53	MAKE_HASH_FUNCTION(Lsha256, SHA256, SHA256_DIGEST_LENGTH)
4829 0ebc636faa59 util.hashes: Add sha224, sha384, sha512 Kim Alvefur <zash@zash.se> parents: 4828 diff changeset	54	MAKE_HASH_FUNCTION(Lsha384, SHA384, SHA384_DIGEST_LENGTH)
0ebc636faa59 util.hashes: Add sha224, sha384, sha512 Kim Alvefur <zash@zash.se> parents: 4828 diff changeset	55	MAKE_HASH_FUNCTION(Lsha512, SHA512, SHA512_DIGEST_LENGTH)
4828 f3e841521436 util.hashes: Use defined hash function output lengths. Kim Alvefur <zash@zash.se> parents: 2923 diff changeset	56	MAKE_HASH_FUNCTION(Lmd5, MD5, MD5_DIGEST_LENGTH)
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	57
5537 15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	58	struct hash_desc {
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	59	int (Init)(void);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	60	int (Update)(void, const void *, size_t);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	61	int (Final)(unsigned char, void*);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	62	size_t digestLength;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	63	void ctx, ctxo;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	64	};
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	65
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	66	static void hmac(struct hash_desc desc, const char key, size_t key_len,
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	67	const char msg, size_t msg_len, unsigned char result)
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	68	{
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	69	union xory {
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	70	unsigned char bytes[64];
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	71	uint32_t quadbytes[16];
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	72	};
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	73
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	74	int i;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	75	char hashedKey[64]; /* Maximum used digest length */
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	76	union xory k_ipad, k_opad;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	77
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	78	if (key_len > 64) {
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	79	desc->Init(desc->ctx);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	80	desc->Update(desc->ctx, key, key_len);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	81	desc->Final(desc->ctx, hashedKey);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	82	key = (const char*)hashedKey;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	83	key_len = desc->digestLength;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	84	}
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	85
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	86	memcpy(k_ipad.bytes, key, key_len);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	87	memset(k_ipad.bytes + key_len, 0, 64 - key_len);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	88	memcpy(k_opad.bytes, k_ipad.bytes, 64);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	89
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	90	for (i = 0; i < 16; i++) {
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	91	k_ipad.quadbytes[i] ^= HMAC_IPAD;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	92	k_opad.quadbytes[i] ^= HMAC_OPAD;
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	93	}
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	94
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	95	desc->Init(desc->ctx);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	96	desc->Update(desc->ctx, k_ipad.bytes, 64);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	97	desc->Init(desc->ctxo);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	98	desc->Update(desc->ctxo, k_opad.bytes, 64);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	99	desc->Update(desc->ctx, msg, msg_len);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	100	desc->Final(result, desc->ctx);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	101	desc->Update(desc->ctxo, result, desc->digestLength);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	102	desc->Final(result, desc->ctxo);
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	103	}
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	104
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	105	#define MAKE_HMAC_FUNCTION(myFunc, func, size, type) \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	106	static int myFunc(lua_State *L) { \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	107	type ctx, ctxo; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	108	unsigned char hash[size], result[2*size]; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	109	size_t key_len, msg_len; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	110	const char *key = luaL_checklstring(L, 1, &key_len); \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	111	const char *msg = luaL_checklstring(L, 2, &msg_len); \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	112	const int hex_out = lua_toboolean(L, 3); \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	113	struct hash_desc desc; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	114	desc.Init = (int ()(void))func##_Init; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	115	desc.Update = (int ()(void, const void *, size_t))func##_Update; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	116	desc.Final = (int ()(unsigned char, void*))func##_Final; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	117	desc.digestLength = size; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	118	desc.ctx = &ctx; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	119	desc.ctxo = &ctxo; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	120	hmac(&desc, key, key_len, msg, msg_len, hash); \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	121	if (hex_out) { \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	122	toHex(hash, size, result); \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	123	lua_pushlstring(L, (char)result, size2); \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	124	} else { \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	125	lua_pushlstring(L, (char*)hash, size); \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	126	} \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	127	return 1; \
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	128	}
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	129
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	130	MAKE_HMAC_FUNCTION(Lhmac_sha1, SHA1, SHA_DIGEST_LENGTH, SHA_CTX)
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	131	MAKE_HMAC_FUNCTION(Lhmac_sha256, SHA256, SHA256_DIGEST_LENGTH, SHA256_CTX)
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	132	MAKE_HMAC_FUNCTION(Lhmac_sha512, SHA512, SHA512_DIGEST_LENGTH, SHA512_CTX)
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	133	MAKE_HMAC_FUNCTION(Lhmac_md5, MD5, MD5_DIGEST_LENGTH, MD5_CTX)
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	134
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	135	static const luaL_Reg Reg[] =
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	136	{
5537 15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	137	{ "sha1", Lsha1 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	138	{ "sha224", Lsha224 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	139	{ "sha256", Lsha256 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	140	{ "sha384", Lsha384 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	141	{ "sha512", Lsha512 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	142	{ "md5", Lmd5 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	143	{ "hmac_sha1", Lhmac_sha1 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	144	{ "hmac_sha256", Lhmac_sha256 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	145	{ "hmac_sha512", Lhmac_sha512 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	146	{ "hmac_md5", Lhmac_md5 },
15464633d8fb util.hmac, util.hashes: Implement HMAC functions in C, and move to util.hashes Florian Zeitz <florob@babelmonkeys.de> parents: 4829 diff changeset	147	{ NULL, NULL }
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	148	};
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	149
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	150	LUALIB_API int luaopen_util_hashes(lua_State *L)
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	151	{
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	152	luaL_register(L, "hashes", Reg);
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	153	lua_pushliteral(L, "version"); /** version */
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	154	lua_pushliteral(L, "-3.14");
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	155	lua_settable(L,-3);
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	156	return 1;
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 520 diff changeset	157	}

author	Florian Zeitz <florob@babelmonkeys.de>
	Sat, 27 Apr 2013 17:01:31 +0200
changeset 5537	15464633d8fb
parent 4829	0ebc636faa59
child 5538	62089c9c142d
permissions	-rw-r--r--