/*

* Copyright (c) 2001-2006 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of the License "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - initial contribution.

*

* Contributors:

*

* Description:  EAP and WLAN authentication protocols.

*

*/

// This is enumeration of EAPOL source code.

#if defined(USE_EAP_MINIMUM_RELEASE_TRACES)

	#undef EAP_FILE_NUMBER_ENUM

	#define EAP_FILE_NUMBER_ENUM 7 

	#undef EAP_FILE_NUMBER_DATE 

	#define EAP_FILE_NUMBER_DATE 1127594498 

#endif //#if defined(USE_EAP_MINIMUM_RELEASE_TRACES)

#include "eap_am_memory.h"

#include "eap_am_crypto_sha1.h"

//--------------------------------------------------

#if 1

	#define EAP_SHA1_TRACE_DEBUG EAP_TRACE_DEBUG

	#define EAP_SHA1_TRACE_DATA_DEBUG EAP_TRACE_DATA_DEBUG

#else

	#define EAP_SHA1_TRACE_DEBUG(tools, flags, params)

	#define EAP_SHA1_TRACE_DATA_DEBUG(object_name, flags, _parameter_list_)

#endif

#if defined(USE_EAP_TRACE)	

	static const u32_t EAP_TRACE_MASK_SHA1 = eap_am_tools_c::eap_trace_mask_crypto_sha1;

#endif //#if defined(USE_EAP_TRACE)	

//--------------------------------------------------

EAP_FUNC_EXPORT eap_am_crypto_sha1_c::~eap_am_crypto_sha1_c()

{

	hash_cleanup();

}

//--------------------------------------------------

EAP_FUNC_EXPORT eap_am_crypto_sha1_c::eap_am_crypto_sha1_c(

	abs_eap_am_tools_c * const tools)

	: m_am_tools(tools)

	, m_saved_data(tools)

	, m_full_hashed_data_length(0ul)

	, m_is_valid(false)

{

	m_H[0] = 0;

	m_T[0] = 0;

	m_W_in_host_order[0] = 0;

	if (m_saved_data.get_is_valid() == false)

	{

		return;

	}

	eap_status_e status = hash_init();

	if (status != eap_status_ok)

	{

		return;

	}

	set_is_valid();

}

//------------------------------------------------------------

/**

 * The set_is_invalid() function sets the state of the eap_am_crypto_sha1_c

 * object invalid. 

 * The eap_am_crypto_sha1_c object calls this function after it is initialized.

 */

EAP_FUNC_EXPORT void eap_am_crypto_sha1_c::set_is_invalid()

{

	m_is_valid = false;

}

//------------------------------------------------------------

/**

 * The set_is_valid() function sets the state of the eap_am_crypto_sha1_c

 * object valid. 

 * The eap_am_crypto_sha1_c object calls this function after it is initialized.

 */

EAP_FUNC_EXPORT void eap_am_crypto_sha1_c::set_is_valid()

{

	m_is_valid = true;

}

//------------------------------------------------------------

/**

 * The get_is_valid() function returns the status of the eap_am_crypto_sha1_c

 * object. 

 * True indicates the object is allocated successfully.

 */

EAP_FUNC_EXPORT bool eap_am_crypto_sha1_c::get_is_valid()

{

	return m_is_valid;

}

//--------------------------------------------------

inline u32_t eap_am_crypto_sha1_c::eap_sha1_rotate(

	const u32_t value,

	const u32_t shift

	)

{

	return (value << shift) | (value >> (32ul - shift));

}

//--------------------------------------------------

inline u32_t eap_am_crypto_sha1_c::eap_sha1_b_substitution(

	const u32_t Wt_3,

	const u32_t Wt_8,

	const u32_t Wt_14,

	const u32_t Wt_16

	)

{

	return eap_sha1_rotate(Wt_3 ^ Wt_8 ^ Wt_14 ^ Wt_16, 1ul);

}

//--------------------------------------------------

inline u32_t eap_am_crypto_sha1_c::eap_sha1_ft_0_19(

	const u32_t B,

	const u32_t C,

	const u32_t D

	)

{

	return (((C ^ D) & B) ^ D);

}

//--------------------------------------------------

inline u32_t eap_am_crypto_sha1_c::eap_sha1_ft_20_39(

	const u32_t B,

	const u32_t C,

	const u32_t D

	)

{

	return (B ^ C ^ D);

}

//--------------------------------------------------

inline u32_t eap_am_crypto_sha1_c::eap_sha1_ft_40_59(

	const u32_t B,

	const u32_t C,

	const u32_t D

	)

{

	return ((B & C) | ((B | C) & D));

}

//--------------------------------------------------

inline u32_t eap_am_crypto_sha1_c::eap_sha1_ft_60_79(

	const u32_t B,

	const u32_t C,

	const u32_t D

	)

{

	return eap_sha1_ft_20_39(B, C, D);

}

//--------------------------------------------------

inline void eap_am_crypto_sha1_c::d_substitution(

	u32_t * const A,

	u32_t * const B,

	u32_t * const C,

	u32_t * const D,

	u32_t * const E,

	const u32_t temp

	)

{

	*E = *D;

	*D = *C;

	*C = eap_sha1_rotate(*B, 30ul);

	*B = *A;

	*A = temp;

}

//--------------------------------------------------

inline void eap_am_crypto_sha1_c::d_substitution_0_15(

	const u32_t t,

	u32_t * const A,

	u32_t * const B,

	u32_t * const C,

	u32_t * const D,

	u32_t * const E,

	const u32_t Wt

	)

{

	EAP_UNREFERENCED_PARAMETER(t);

	const u32_t TEMP = eap_sha1_rotate(*A, 5ul)

		+ eap_sha1_ft_0_19(*B, *C, *D)

		+ *E + Wt + eap_am_crypto_sha1_c::EAP_SHA1_K__0_19;

	d_substitution(A, B, C, D, E, TEMP);

	EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

					(EAPL("SHA1: t=%d\t%08x\t%08x\t%08x\t%08x\t%08x\n"),

					 t, *A, *B, *C, *D, *E));

}

//--------------------------------------------------

inline void eap_am_crypto_sha1_c::d_substitution_16_19(

	const u32_t t,

	u32_t * const A,

	u32_t * const B,

	u32_t * const C,

	u32_t * const D,

	u32_t * const E,

	u32_t * const Wt,

	const u32_t Wt_3,

	const u32_t Wt_8,

	const u32_t Wt_14,

	const u32_t Wt_16

	)

{

	EAP_UNREFERENCED_PARAMETER(t);

	*Wt = eap_sha1_b_substitution(Wt_3, Wt_8, Wt_14, Wt_16);

	const u32_t TEMP = eap_sha1_rotate(*A, 5ul)

		+ eap_sha1_ft_0_19(*B, *C, *D)

		+ *E + *Wt + eap_am_crypto_sha1_c::EAP_SHA1_K__0_19;

	d_substitution(A, B, C, D, E, TEMP);

	EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

					(EAPL("SHA1: t=%d\t%08x\t%08x\t%08x\t%08x\t%08x\n"),

					 t, *A, *B, *C, *D, *E));

}

//--------------------------------------------------

inline void eap_am_crypto_sha1_c::d_substitution_20_39(

	const u32_t t,

	u32_t * const A,

	u32_t * const B,

	u32_t * const C,

	u32_t * const D,

	u32_t * const E,

	u32_t * const Wt,

	const u32_t Wt_3,

	const u32_t Wt_8,

	const u32_t Wt_14,

	const u32_t Wt_16

	)

{

	EAP_UNREFERENCED_PARAMETER(t);

	*Wt = eap_sha1_b_substitution(Wt_3, Wt_8, Wt_14, Wt_16);

	const u32_t TEMP = eap_sha1_rotate(*A, 5ul)

		+ eap_sha1_ft_20_39(*B, *C, *D)

		+ *E + *Wt + eap_am_crypto_sha1_c::EAP_SHA1_K_20_39;

	d_substitution(A, B, C, D, E, TEMP);

	EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

					(EAPL("SHA1: t=%d\t%08x\t%08x\t%08x\t%08x\t%08x\n"),

					 t, *A, *B, *C, *D, *E));

}

//--------------------------------------------------

inline void eap_am_crypto_sha1_c::d_substitution_40_59(

	const u32_t t,

	u32_t * const A,

	u32_t * const B,

	u32_t * const C,

	u32_t * const D,

	u32_t * const E,

	u32_t * const Wt,

	const u32_t Wt_3,

	const u32_t Wt_8,

	const u32_t Wt_14,

	const u32_t Wt_16

	)

{

	EAP_UNREFERENCED_PARAMETER(t);

	*Wt = eap_sha1_b_substitution(Wt_3, Wt_8, Wt_14, Wt_16);

	const u32_t TEMP = eap_sha1_rotate(*A, 5ul)

		+ eap_sha1_ft_40_59(*B, *C, *D)

		+ *E + *Wt + static_cast<u32_t>(eap_am_crypto_sha1_c::EAP_SHA1_K_40_59);

	d_substitution(A, B, C, D, E, TEMP);

	EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

					(EAPL("SHA1: t=%d\t%08x\t%08x\t%08x\t%08x\t%08x\n"),

					 t, *A, *B, *C, *D, *E));

}

//--------------------------------------------------

inline void eap_am_crypto_sha1_c::d_substitution_60_79(

	const u32_t t,

	u32_t * const A,

	u32_t * const B,

	u32_t * const C,

	u32_t * const D,

	u32_t * const E,

	u32_t * const Wt,

	const u32_t Wt_3,

	const u32_t Wt_8,

	const u32_t Wt_14,

	const u32_t Wt_16

	)

{

	EAP_UNREFERENCED_PARAMETER(t);

	*Wt = eap_sha1_b_substitution(Wt_3, Wt_8, Wt_14, Wt_16);

	const u32_t TEMP = eap_sha1_rotate(*A, 5ul)

		+ eap_sha1_ft_60_79(*B, *C, *D)

		+ *E + *Wt + static_cast<u32_t>(eap_am_crypto_sha1_c::EAP_SHA1_K_60_79);

	d_substitution(A, B, C, D, E, TEMP);

	EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

					(EAPL("SHA1: t=%d\t%08x\t%08x\t%08x\t%08x\t%08x\n"),

					 t, *A, *B, *C, *D, *E));

}

//--------------------------------------------------

EAP_FUNC_EXPORT eap_status_e

eap_am_crypto_sha1_c::eap_sha1_process_data_host_order(

	const u32_t * W,

	u32_t W_count

	)

{

	u32_t A;

	u32_t B;

	u32_t C;

	u32_t D;

	u32_t E;

	if (W == 0

		//|| (reinterpret_cast<u32_t>(W) % sizeof(u32_t)) != 0

		|| W_count == 0

		|| (W_count % EAP_AM_CRYPTO_SHA1_BLOCK_u32_COUNT) != 0)

	{

		EAP_ASSERT_ANYWAY;

		EAP_SYSTEM_DEBUG_BREAK();

		return EAP_STATUS_RETURN(m_am_tools, eap_status_illegal_parameter);

	}

	#if defined(_DEBUG)

		for (u32_t ind = 0ul; ind < W_count; ind++)

		{

			EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

						(EAPL("SHA1: W[%d]=%08x\n"),

						 ind,

						 W[ind]));

		} // for()

	#endif //#if defined(_DEBUG)

	do

	{

		#if defined(_DEBUG)

			EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

					(EAPL("SHA1: H[0]=0x%08x, H[1]=0x%08x, H[2]=0x%08x, H[3]=0x%08x, H[4]=0x%08x\n"),

					 m_H[0],

					 m_H[1],

					 m_H[2],

					 m_H[3],

					 m_H[4]));

			EAP_SHA1_TRACE_DEBUG(m_am_tools, EAP_TRACE_MASK_SHA1,

					(EAPL("SHA1: % 4s\t% 8s\t% 8s\t% 8s\t% 8s\t% 8s\n"),

					"t", "A", "B", "C", "D", "E"));

		#endif //#if defined(_DEBUG)

		A = m_H[0];

		B = m_H[1];

		C = m_H[2];

		D = m_H[3];

		E = m_H[4];

		d_substitution_0_15( 0, &A, &B, &C, &D, &E, W[ 0]);

		d_substitution_0_15( 1, &A, &B, &C, &D, &E, W[ 1]);

		d_substitution_0_15( 2, &A, &B, &C, &D, &E, W[ 2]);

		d_substitution_0_15( 3, &A, &B, &C, &D, &E, W[ 3]);

		d_substitution_0_15( 4, &A, &B, &C, &D, &E, W[ 4]);

		d_substitution_0_15( 5, &A, &B, &C, &D, &E, W[ 5]);

		d_substitution_0_15( 6, &A, &B, &C, &D, &E, W[ 6]);

		d_substitution_0_15( 7, &A, &B, &C, &D, &E, W[ 7]);

		d_substitution_0_15( 8, &A, &B, &C, &D, &E, W[ 8]);

		d_substitution_0_15( 9, &A, &B, &C, &D, &E, W[ 9]);

		d_substitution_0_15(10, &A, &B, &C, &D, &E, W[10]);

		d_substitution_0_15(11, &A, &B, &C, &D, &E, W[11]);

		d_substitution_0_15(12, &A, &B, &C, &D, &E, W[12]);

		d_substitution_0_15(13, &A, &B, &C, &D, &E, W[13]);

		d_substitution_0_15(14, &A, &B, &C, &D, &E, W[14]);

		d_substitution_0_15(15, &A, &B, &C, &D, &E, W[15]);

		d_substitution_16_19(16, &A, &B, &C, &D, &E, &(m_T[ 0]),

							 W[13], W[ 8], W[ 2], W[ 0]);

		d_substitution_16_19(17, &A, &B, &C, &D, &E, &(m_T[ 1]),

							 W[14], W[ 9], W[ 3], W[ 1]);

		d_substitution_16_19(18, &A, &B, &C, &D, &E, &(m_T[ 2]),

							 W[15], W[10], W[ 4], W[ 2]);

		d_substitution_16_19(19, &A, &B, &C, &D, &E, &(m_T[ 3]),

							 m_T[ 0], W[11], W[ 5], W[ 3]);

		d_substitution_20_39(20, &A, &B, &C, &D, &E, &(m_T[ 4]),

							 m_T[ 1], W[12], W[ 6], W[ 4]);

		d_substitution_20_39(21, &A, &B, &C, &D, &E, &(m_T[ 5]),

							 m_T[ 2], W[13], W[ 7], W[ 5]);

		d_substitution_20_39(22, &A, &B, &C, &D, &E, &(m_T[ 6]),

							 m_T[ 3], W[14], W[ 8], W[ 6]);

		d_substitution_20_39(23, &A, &B, &C, &D, &E, &(m_T[ 7]),

							 m_T[ 4], W[15], W[ 9], W[ 7]);

		d_substitution_20_39(24, &A, &B, &C, &D, &E, &(m_T[ 8]),

							 m_T[ 5], m_T[ 0], W[10], W[ 8]);

		d_substitution_20_39(25, &A, &B, &C, &D, &E, &(m_T[ 9]),

							 m_T[ 6], m_T[ 1], W[11], W[ 9]);

		d_substitution_20_39(26, &A, &B, &C, &D, &E, &(m_T[10]),

							 m_T[ 7], m_T[ 2], W[12], W[10]);

		d_substitution_20_39(27, &A, &B, &C, &D, &E, &(m_T[11]),

							 m_T[ 8], m_T[ 3], W[13], W[11]);

		d_substitution_20_39(28, &A, &B, &C, &D, &E, &(m_T[12]),

							 m_T[ 9], m_T[ 4], W[14], W[12]);

		d_substitution_20_39(29, &A, &B, &C, &D, &E, &(m_T[13]),

							 m_T[10], m_T[ 5], W[15], W[13]);

		d_substitution_20_39(30, &A, &B, &C, &D, &E, &(m_T[14]),

							 m_T[11], m_T[ 6], m_T[ 0], W[14]);

		d_substitution_20_39(31, &A, &B, &C, &D, &E, &(m_T[15]),

							 m_T[12], m_T[ 7], m_T[ 1], W[15]);

		d_substitution_20_39(32, &A, &B, &C, &D, &E, &(m_T[ 0]),

							 m_T[13], m_T[ 8], m_T[ 2], m_T[ 0]);

		d_substitution_20_39(33, &A, &B, &C, &D, &E, &(m_T[ 1]),

							 m_T[14], m_T[ 9], m_T[ 3], m_T[ 1]);

		d_substitution_20_39(34, &A, &B, &C, &D, &E, &(m_T[ 2]),

							 m_T[15], m_T[10], m_T[ 4], m_T[ 2]);

		d_substitution_20_39(35, &A, &B, &C, &D, &E, &(m_T[ 3]),

							 m_T[ 0], m_T[11], m_T[ 5], m_T[ 3]);

		d_substitution_20_39(36, &A, &B, &C, &D, &E, &(m_T[ 4]),

							 m_T[ 1], m_T[12], m_T[ 6], m_T[ 4]);

		d_substitution_20_39(37, &A, &B, &C, &D, &E, &(m_T[ 5]),

							 m_T[ 2], m_T[13], m_T[ 7], m_T[ 5]);

		d_substitution_20_39(38, &A, &B, &C, &D, &E, &(m_T[ 6]),

							 m_T[ 3], m_T[14], m_T[ 8], m_T[ 6]);

		d_substitution_20_39(39, &A, &B, &C, &D, &E, &(m_T[ 7]),

							 m_T[ 4], m_T[15], m_T[ 9], m_T[ 7]);

		d_substitution_40_59(40, &A, &B, &C, &D, &E, &(m_T[ 8]),

							 m_T[ 5], m_T[ 0], m_T[10], m_T[ 8]);

		d_substitution_40_59(41, &A, &B, &C, &D, &E, &(m_T[ 9]),

							 m_T[ 6], m_T[ 1], m_T[11], m_T[ 9]);

		d_substitution_40_59(42, &A, &B, &C, &D, &E, &(m_T[10]),

							 m_T[ 7], m_T[ 2], m_T[12], m_T[10]);

		d_substitution_40_59(43, &A, &B, &C, &D, &E, &(m_T[11]),

							 m_T[ 8], m_T[ 3], m_T[13], m_T[11]);

		d_substitution_40_59(44, &A, &B, &C, &D, &E, &(m_T[12]),

							 m_T[ 9], m_T[ 4], m_T[14], m_T[12]);

		d_substitution_40_59(45, &A, &B, &C, &D, &E, &(m_T[13]),

							 m_T[10], m_T[ 5], m_T[15], m_T[13]);

		d_substitution_40_59(46, &A, &B, &C, &D, &E, &(m_T[14]),

							 m_T[11], m_T[ 6], m_T[ 0], m_T[14]);

		d_substitution_40_59(47, &A, &B, &C, &D, &E, &(m_T[15]),

							 m_T[12], m_T[ 7], m_T[ 1], m_T[15]);

		d_substitution_40_59(48, &A, &B, &C, &D, &E, &(m_T[ 0]),

							 m_T[13], m_T[ 8], m_T[ 2], m_T[ 0]);

		d_substitution_40_59(49, &A, &B, &C, &D, &E, &(m_T[ 1]),

							 m_T[14], m_T[ 9], m_T[ 3], m_T[ 1]);

		d_substitution_40_59(50, &A, &B, &C, &D, &E, &(m_T[ 2]),

							 m_T[15], m_T[10], m_T[ 4], m_T[ 2]);

		d_substitution_40_59(51, &A, &B, &C, &D, &E, &(m_T[ 3]),

							 m_T[ 0], m_T[11], m_T[ 5], m_T[ 3]);

		d_substitution_40_59(52, &A, &B, &C, &D, &E, &(m_T[ 4]),

							 m_T[ 1], m_T[12], m_T[ 6], m_T[ 4]);

		d_substitution_40_59(53, &A, &B, &C, &D, &E, &(m_T[ 5]),

							 m_T[ 2], m_T[13], m_T[ 7], m_T[ 5]);

		d_substitution_40_59(54, &A, &B, &C, &D, &E, &(m_T[ 6]),

							 m_T[ 3], m_T[14], m_T[ 8], m_T[ 6]);

		d_substitution_40_59(55, &A, &B, &C, &D, &E, &(m_T[ 7]),

							 m_T[ 4], m_T[15], m_T[ 9], m_T[ 7]);

		d_substitution_40_59(56, &A, &B, &C, &D, &E, &(m_T[ 8]),

							 m_T[ 5], m_T[ 0], m_T[10], m_T[ 8]);

		d_substitution_40_59(57, &A, &B, &C, &D, &E, &(m_T[ 9]),

							 m_T[ 6], m_T[ 1], m_T[11], m_T[ 9]);

		d_substitution_40_59(58, &A, &B, &C, &D, &E, &(m_T[10]),

							 m_T[ 7], m_T[ 2], m_T[12], m_T[10]);

		d_substitution_40_59(59, &A, &B, &C, &D, &E, &(m_T[11]),

							 m_T[ 8], m_T[ 3], m_T[13], m_T[11]);

		d_substitution_60_79(60, &A, &B, &C, &D, &E, &(m_T[12]),

							 m_T[ 9], m_T[ 4], m_T[14], m_T[12]);

		d_substitution_60_79(61, &A, &B, &C, &D, &E, &(m_T[13]),

							 m_T[10], m_T[ 5], m_T[15], m_T[13]);

		d_substitution_60_79(62, &A, &B, &C, &D, &E, &(m_T[14]),

							 m_T[11], m_T[ 6], m_T[ 0], m_T[14]);

		d_substitution_60_79(63, &A, &B, &C, &D, &E, &(m_T[15]),

							 m_T[12], m_T[ 7], m_T[ 1], m_T[15]);

		d_substitution_60_79(64, &A, &B, &C, &D, &E, &(m_T[ 0]),

							 m_T[13], m_T[ 8], m_T[ 2], m_T[ 0]);

		d_substitution_60_79(65, &A, &B, &C, &D, &E, &(m_T[ 1]),

							 m_T[14], m_T[ 9], m_T[ 3], m_T[ 1]);

		d_substitution_60_79(66, &A, &B, &C, &D, &E, &(m_T[ 2]),

							 m_T[15], m_T[10], m_T[ 4], m_T[ 2]);