/*
* Copyright (c) 2007-2009 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: 
*
*/


/**
 @file
*/

#include <e32std.h>
#include <hash.h>
#include "hashinc.h"
#define EXPANDLOOP


CMD4::CMD4(void)
: CMessageDigest(),iHash(MD4_HASH)
	{
	}

CMD4::CMD4(const CMD4& aMD)
: CMessageDigest(aMD),
  iHash(aMD.iHash),iA(aMD.iA),iB(aMD.iB),iC(aMD.iC),iD(aMD.iD),
  iNl(aMD.iNl),iNh(aMD.iNh)
	{
	(void)Mem::Copy(iData,aMD.iData,sizeof(iData));
	}
	
EXPORT_C CMD4* CMD4::NewL(void)
	{
	CMD4* self = new (ELeave) CMD4();
	self->Reset();
	return (self);
	}
	
EXPORT_C CMessageDigest* CMD4::ReplicateL(void)
	{
	 return CMD4::NewL();
	}
	
EXPORT_C CMD4::~CMD4(void)
	{
	}

EXPORT_C TPtrC8 CMD4::Hash(const TDesC8& aMessage)
	{
	//Adds the aMessage to the internal representation of data to be hashed i.e iData
	DoUpdate(aMessage.Ptr(),aMessage.Size());
	StoreState();
	//Does the padding and does the block operation on the final 512 bit block.
	DoFinal();
	RestoreState();
	return iHash;
	}

EXPORT_C CMessageDigest* CMD4::CopyL(void)
	{
	return new(ELeave) CMD4(*this);
	}
	
EXPORT_C TInt CMD4::BlockSize(void)
	{
	return sizeof(iData);
	}
	
EXPORT_C TInt CMD4::HashSize(void)
	{
	return MD4_HASH;
	}
	
EXPORT_C void CMD4::Reset(void)
	{
	iA=0x67452301;
	iB=0xefcdab89;
	iC=0x98badcfe;
	iD=0x10325476;
	iNh=0;
	iNl=0;
	}

EXPORT_C void CMD4::Update(const TDesC8& aMessage)
	{
	DoUpdate(aMessage.Ptr(),aMessage.Size());
	}
	
EXPORT_C TPtrC8 CMD4::Final(const TDesC8& aMessage)
	{
	//Adds the aMessage to the internal representation of data to be hashed i.e iData
	DoUpdate(aMessage.Ptr(),aMessage.Size());
	//Does the padding and does the block operation on the final 512 bit block.
	DoFinal();
	//Resets the values of iA, iB, iC and iD, iNh, iNl
	Reset();
	return iHash;
	}

EXPORT_C TPtrC8 CMD4::Final()
	{
	//Does the padding and does the block operation on the final 512 bit block.
	DoFinal();
	//Resets the values of iA, iB, iC and iD, iNh, iNl
	Reset();
	return iHash;
	}

void CMD4::DoUpdate(const TUint8* aData,TUint aLength)
	{
	const TUint8* pend=aData+aLength;	
	for (const TUint8* paData=aData;paData<pend;paData++) 
		{
		const TUint8 byte=*paData;
		switch (iNl&3) 
			{
			case 0:
				iData[iNl>>2]=byte;
				break;
			case 1:
				iData[iNl>>2]|=byte<<8;
				break;
			case 2:
				iData[iNl>>2]|=byte<<16;
				break;
			case 3:
				iData[iNl>>2]|=byte<<24;
				break;
			default:
				break;
			};
		if(++iNl==64) 
			{
			Block();
			iNh+=64;
			iNl=0;
			}
		}
	}

static inline TUint CMD4_F(TUint x,TUint y,TUint z)
	{
	return ((x)&(y)) | ((~x)&(z));
	}
	
static inline TUint CMD4_G(TUint x,TUint y,TUint z)
	{
	return ((x)&(y)) | ((x)&(z)) | ((y)&(z));
	}
	
static inline TUint CMD4_H(TUint x,TUint y,TUint z)
	{
	return (x)^(y)^(z);
	}

	
#ifdef NOREFS
static inline TUint CMD4_FF(TUint a,const TUint b,const TUint c,const TUint d,const TUint x,const TUint s)
	{
	a+=CMD4_F(b,c,d) + x; 
	a=CMD_R(a,s);
	return a;
	}
	
static inline TUint CMD4_GG(TUint a,const TUint b,const TUint c,const TUint d,const TUint x,const TUint s)
	{
	a+=CMD4_G(b,c,d) + x + (TUint32)0x5a827999; 
	a=CMD_R(a,s);
	return a;
	}
	
static inline TUint CMD4_HH(TUint a,const TUint b,const TUint c,const TUint d,const TUint x,const TUint s)
	{
	a+=CMD4_H(b,c,d) + x + (TUint32)0x6ed9eba1; 
	a=CMD_R(a,s);
	return a;
	}
	
void CMD4::Block()
	{
	register TUint tempA=iA;
	register TUint tempB=iB;
	register TUint tempC=iC;
	register TUint tempD=iD;

	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[ 0],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[ 1],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[ 2],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[ 3],19);
	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[ 4],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[ 5],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[ 6],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[ 7],19);
	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[ 8],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[ 9],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[10],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[11],19);
	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[12],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[13],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[14],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[15],19);

	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 0],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 4],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[ 8],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[12],13);
	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 1],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 5],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[ 9],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[13],13);
	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 2],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 6],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[10],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[14],13);
	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 3],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 7],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[11],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[15],13);

	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 0],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[ 8],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 4],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[12],15);
	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 2],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[10],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 6],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[14],15);
	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 1],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[ 9],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 5],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[13],15);
	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 3],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[11],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 7],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[15],15);

	iA+=tempA;
	iB+=tempB;
	iC+=tempC;
	iD+=tempD;
	}

#else
#ifdef MACRO
#define CMD4_FF(a, b, c, d, x, s) (CMD_R(a += CMD4_F(b,c,d) + x, s))
#define CMD4_GG(a, b, c, d, x, s) (CMD_R(a += CMD4_G(b,c,d) + x + (TUint32)0x5a827999, s))
#define CMD4_HH(a, b, c, d, x, s) (CMD_R(a += CMD4_H(b,c,d) + x + (TUint32)0x6ed9eba1, s))
void CMD4::Block()
	{
	register TUint tempA=iA;
	register TUint tempB=iB;
	register TUint tempC=iC;
	register TUint tempD=iD;
	
	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[ 0],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[ 1],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[ 2],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[ 3],19);
	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[ 4],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[ 5],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[ 6],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[ 7],19);
	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[ 8],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[ 9],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[10],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[11],19);
	tempA = CMD4_FF(tempA,tempB,tempC,tempD,iData[12],3);
	tempD = CMD4_FF(tempD,tempA,tempB,tempC,iData[13],7);
	tempC = CMD4_FF(tempC,tempD,tempA,tempB,iData[14],11);
	tempB = CMD4_FF(tempB,tempC,tempD,tempA,iData[15],19);

	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 0],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 4],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[ 8],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[12],13);
	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 1],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 5],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[ 9],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[13],13);
	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 2],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 6],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[10],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[14],13);
	tempA = CMD4_GG(tempA,tempB,tempC,tempD,iData[ 3],3);
	tempD = CMD4_GG(tempD,tempA,tempB,tempC,iData[ 7],5);
	tempC = CMD4_GG(tempC,tempD,tempA,tempB,iData[11],9);
	tempB = CMD4_GG(tempB,tempC,tempD,tempA,iData[15],13);

	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 0],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[ 8],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 4],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[12],15);
	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 2],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[10],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 6],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[14],15);
	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 1],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[ 9],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 5],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[13],15);
	tempA = CMD4_HH(tempA,tempB,tempC,tempD,iData[ 3],3);
	tempD = CMD4_HH(tempD,tempA,tempB,tempC,iData[11],9);
	tempC = CMD4_HH(tempC,tempD,tempA,tempB,iData[ 7],11);
	tempB = CMD4_HH(tempB,tempC,tempD,tempA,iData[15],15);

	iA+=tempA;
	iB+=tempB;
	iC+=tempC;
	iD+=tempD;
	}
	
#else
static inline void CMD4_FF(TUint& a,const TUint b,const TUint c,const TUint d,const TUint x,const TUint s)
	{
	a+=CMD4_F(b,c,d) + x; 
	a=CMD_R(a,s);
	}
	
static inline void CMD4_GG(TUint& a,const TUint b,const TUint c,const TUint d,const TUint x,const TUint s)
	{
	a+=CMD4_G(b,c,d) + x + (TUint32)0x5a827999; 
	a=CMD_R(a,s);
	}
	
static inline void CMD4_HH(TUint& a,const TUint b,const TUint c,const TUint d,const TUint x,const TUint s)
	{
	a+=CMD4_H(b,c,d) + x + (TUint32)0x6ed9eba1; 
	a=CMD_R(a,s);
	}

void CMD4::Block()
	{
	register TUint tempA=iA;
	register TUint tempB=iB;
	register TUint tempC=iC;
	register TUint tempD=iD;

	CMD4_FF(tempA,tempB,tempC,tempD,iData[ 0],3);
	CMD4_FF(tempD,tempA,tempB,tempC,iData[ 1],7);
	CMD4_FF(tempC,tempD,tempA,tempB,iData[ 2],11);
	CMD4_FF(tempB,tempC,tempD,tempA,iData[ 3],19);
	CMD4_FF(tempA,tempB,tempC,tempD,iData[ 4],3);
	CMD4_FF(tempD,tempA,tempB,tempC,iData[ 5],7);
	CMD4_FF(tempC,tempD,tempA,tempB,iData[ 6],11);
	CMD4_FF(tempB,tempC,tempD,tempA,iData[ 7],19);
	CMD4_FF(tempA,tempB,tempC,tempD,iData[ 8],3);
	CMD4_FF(tempD,tempA,tempB,tempC,iData[ 9],7);
	CMD4_FF(tempC,tempD,tempA,tempB,iData[10],11);
	CMD4_FF(tempB,tempC,tempD,tempA,iData[11],19);
	CMD4_FF(tempA,tempB,tempC,tempD,iData[12],3);
	CMD4_FF(tempD,tempA,tempB,tempC,iData[13],7);
	CMD4_FF(tempC,tempD,tempA,tempB,iData[14],11);
	CMD4_FF(tempB,tempC,tempD,tempA,iData[15],19);

	CMD4_GG(tempA,tempB,tempC,tempD,iData[ 0],3);
	CMD4_GG(tempD,tempA,tempB,tempC,iData[ 4],5);
	CMD4_GG(tempC,tempD,tempA,tempB,iData[ 8],9);
	CMD4_GG(tempB,tempC,tempD,tempA,iData[12],13);
	CMD4_GG(tempA,tempB,tempC,tempD,iData[ 1],3);
	CMD4_GG(tempD,tempA,tempB,tempC,iData[ 5],5);
	CMD4_GG(tempC,tempD,tempA,tempB,iData[ 9],9);
	CMD4_GG(tempB,tempC,tempD,tempA,iData[13],13);
	CMD4_GG(tempA,tempB,tempC,tempD,iData[ 2],3);
	CMD4_GG(tempD,tempA,tempB,tempC,iData[ 6],5);
	CMD4_GG(tempC,tempD,tempA,tempB,iData[10],9);
	CMD4_GG(tempB,tempC,tempD,tempA,iData[14],13);
	CMD4_GG(tempA,tempB,tempC,tempD,iData[ 3],3);
	CMD4_GG(tempD,tempA,tempB,tempC,iData[ 7],5);
	CMD4_GG(tempC,tempD,tempA,tempB,iData[11],9);
	CMD4_GG(tempB,tempC,tempD,tempA,iData[15],13);

	CMD4_HH(tempA,tempB,tempC,tempD,iData[ 0],3);
	CMD4_HH(tempD,tempA,tempB,tempC,iData[ 8],9);
	CMD4_HH(tempC,tempD,tempA,tempB,iData[ 4],11);
	CMD4_HH(tempB,tempC,tempD,tempA,iData[12],15);
	CMD4_HH(tempA,tempB,tempC,tempD,iData[ 2],3);
	CMD4_HH(tempD,tempA,tempB,tempC,iData[10],9);
	CMD4_HH(tempC,tempD,tempA,tempB,iData[ 6],11);
	CMD4_HH(tempB,tempC,tempD,tempA,iData[14],15);
	CMD4_HH(tempA,tempB,tempC,tempD,iData[ 1],3);
	CMD4_HH(tempD,tempA,tempB,tempC,iData[ 9],9);
	CMD4_HH(tempC,tempD,tempA,tempB,iData[ 5],11);
	CMD4_HH(tempB,tempC,tempD,tempA,iData[13],15);
	CMD4_HH(tempA,tempB,tempC,tempD,iData[ 3],3);
	CMD4_HH(tempD,tempA,tempB,tempC,iData[11],9);
	CMD4_HH(tempC,tempD,tempA,tempB,iData[ 7],11);
	CMD4_HH(tempB,tempC,tempD,tempA,iData[15],15);
	
	iA+=tempA;
	iB+=tempB;
	iC+=tempC;
	iD+=tempD;
	}
#endif
#endif

void CMD4::DoFinal(void)
	{
	iNh += iNl;
	const TUint ul128=128;
	switch (iNl&3) 
		{
		case 0:
			iData[iNl>>2] = ul128;
			break;
		case 1:
			iData[iNl>>2] += ul128<<8;
			break;
		case 2:
			iData[iNl>>2] += ul128<<16;
			break;
		case 3:
			iData[iNl>>2] += ul128<<24;
			break;
		default:
			break;
		};
	if (iNl>=56) 
		{
		if (iNl<60)
			iData[15]=0;		
		Block();
		Mem::FillZ(iData,14*sizeof(TUint));
		} 
	else
		{
		const TUint offset=(iNl+4)>>2;
		Mem::FillZ(iData+offset,(14-offset)*sizeof(TUint));
		}
	
	iData[14]=iNh<<3;//number in bits
	// this will fail if the total input length is longer than 2^32 in bits
	//(2^31 in bytes) which is roughly half a gig.
	iData[15]=0;

	Block();
	//
	// Generate hash value into iHash
	//
	TUint tmp=iA;
	iHash[0]=(TUint8)(tmp & 255);
	iHash[1]=(TUint8)((tmp >>= 8) & 255);
	iHash[2]=(TUint8)((tmp >>= 8) & 255);
	iHash[3]=(TUint8)((tmp >>= 8) & 255);

	tmp=iB;
	iHash[4]=(TUint8)(tmp & 255);
	iHash[5]=(TUint8)((tmp >>= 8) & 255);
	iHash[6]=(TUint8)((tmp >>= 8) & 255);
	iHash[7]=(TUint8)((tmp >>= 8) & 255);

	tmp=iC;
	iHash[8]=(TUint8)(tmp & 255);
	iHash[9]=(TUint8)((tmp >>= 8) & 255);
	iHash[10]=(TUint8)((tmp >>= 8) & 255);
	iHash[11]=(TUint8)((tmp >>= 8) & 255);

	tmp=iD;
	iHash[12]=(TUint8)(tmp & 255);
	iHash[13]=(TUint8)((tmp >>= 8) & 255);
	iHash[14]=(TUint8)((tmp >>= 8) & 255);
	iHash[15]=(TUint8)((tmp >>= 8) & 255);
	}

void CMD4::RestoreState()
{
	iA = iACopy;
	iB = iBCopy;
	iC = iCCopy;
	iD = iDCopy;
	iNl = iNlCopy;
	iNh = iNhCopy;	
	Mem::Copy(&iData[0], &iDataCopy[0], MD4_LBLOCK*sizeof(TUint)); 
}

void CMD4::StoreState()
{
	iACopy = iA;
	iBCopy = iB;
	iCCopy = iC;
	iDCopy = iD;
	iNlCopy = iNl;
	iNhCopy = iNh;	
	Mem::Copy(&iDataCopy[0], &iData[0], MD4_LBLOCK*sizeof(TUint));
}