/// Class for symmetric encryption of data across a connection.  Internally it uses
/// the libtomcrypt AES algorithm to encrypt the data.

class symmetric_cipher : public ref_object
{
	public:
	enum {
		block_size = 16,
		key_size = 16,
	};
	private:
	struct key
	{
		uint32 e_k[64], d_k[64];
		int n_r;
	};
	uint32 _counter[block_size >> 2];
	
	uint8 _init_vector[block_size];
	uint8 _pad[block_size];
	
	key _symmetric_key;
	uint32 _pad_len;
	public:
	symmetric_cipher(const uint8 key[key_size], const uint8 init_vector[block_size])
	{
		rijndael_setup(key, key_size, 0, (symmetric_key *) &_symmetric_key);
		memcpy(_init_vector, init_vector, block_size);
		memcpy(_counter, init_vector, block_size);
		rijndael_ecb_encrypt((uint8 *) _counter, _pad, (symmetric_key *) &_symmetric_key);
		_pad_len = 0;
	}

	symmetric_cipher(const byte_buffer_ptr the_bytes)
	{
		if(the_bytes->get_buffer_size() != key_size * 2)
		{
			uint8 buffer[key_size];
			memset(buffer, 0, key_size);
			rijndael_setup(buffer, key_size, 0, (symmetric_key *) &_symmetric_key);
			memcpy(_init_vector, buffer, block_size);
		}
		else
		{
			rijndael_setup(the_bytes->get_buffer(), key_size, 0, (symmetric_key *) &_symmetric_key);
			memcpy(_init_vector, the_bytes->get_buffer() + key_size, block_size);
		}
		memcpy(_counter, _init_vector, block_size);
		rijndael_ecb_encrypt((uint8 *) _counter, _pad, (symmetric_key *) &_symmetric_key);
		_pad_len = 0;
	}
	void get_init_vector(uint8 iv[block_size])
	{
		memcpy(iv, _init_vector, block_size);
	}

	void setup_counter(uint32 counter_value1, uint32 counter_value2, uint32 counter_value3, uint32 counter_value4)
	{
		uint8 *iv_walk = _init_vector;
		for(uint32 i = 0; i < 4; i++)
		{
			_counter[i] = buffer_to_uint32(iv_walk);
			iv_walk += 4;
		}
		_counter[0] += counter_value1;
		_counter[1] += counter_value2;
		_counter[2] += counter_value3;
		_counter[3] += counter_value4;

		for(uint32 i = 0; i < 4; i++)
			host_to_little_endian(_counter[i]);

		rijndael_ecb_encrypt((uint8 *) _counter, _pad, (symmetric_key *) &_symmetric_key);
		_pad_len = 0;
	}

	void encrypt(const uint8 *plain_text, uint8 *cipher_text, uint32 len)
	{
		while(len-- > 0)
		{
			if(_pad_len == block_size)
			{
				// we've reached the end of the pad, so compute a new pad
				rijndael_ecb_encrypt(_pad, _pad, (symmetric_key *) &_symmetric_key);
				_pad_len = 0;
			}
			uint8 encrypted_char = *plain_text++ ^ _pad[_pad_len];
			_pad[_pad_len++] = *cipher_text++ = encrypted_char;
		}
	}


	void decrypt(const uint8 *cipher_text, uint8 *plain_text, uint32 len)
	{
		while(len-- > 0)
		{
			if(_pad_len == block_size)
			{
				rijndael_ecb_encrypt(_pad, _pad, (symmetric_key *) &_symmetric_key);
				_pad_len = 0;
			}
			uint8 encrypted_char = *cipher_text++;
			*plain_text++ = encrypted_char ^ _pad[_pad_len];
			_pad[_pad_len++] = encrypted_char;
		}
	}
};