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


#include <padding.h>
#include "tpaddingSSLv3.h"
#include <securityerr.h>

CTestPadSSLv3::CTestPadSSLv3()
	{
   SetTestStepName(KPadSSLv3);
	}

CTestPadSSLv3::~CTestPadSSLv3()
	{
	}

TVerdict CTestPadSSLv3::doTestStepL()
	{
    SetTestStepResult(EPass);
    __UHEAP_MARK;

	INFO_PRINTF1(_L("Test of padding with type SSLv3"));

	TInt blockSize;
    TInt textSize;

	if (!GetStringFromConfig(ConfigSection(), _L("TestCaseName"), iTestCaseName))
 		{
 		INFO_PRINTF1(_L("Could not find TestCaseName in tpadSSLv3.ini"));
      	return EFail;
 		}
   
    if (!GetIntFromConfig(ConfigSection(), _L("BlockSize"), blockSize))
 		{
 		INFO_PRINTF1(_L("Could not find blocksize in tpadSSLv3.ini"));
      	return EFail;
 		}
 		
  	if(iTestCaseName.Compare(_L("CipherAES_CBC"))==0 || iTestCaseName.Compare(_L("CipherDES_CBC"))==0 || iTestCaseName.Compare(_L("CipherRC2_CBC"))==0)
 		{
 		TestSSLv3Padding(blockSize);
 		}
 	else
 		{
 		if (!GetIntFromConfig(ConfigSection(), _L("TextSize"), textSize))
   			{
      		INFO_PRINTF1(_L("Could not find TextSize in tpadSSLv3.ini"));
      		return EFail;
   			}
   		if (!GetStringFromConfig(ConfigSection(), _L("ExpectedResult"), iExpectedResult))
 			{
 			INFO_PRINTF1(_L("Could not find TextSize in tpadSSLv3.ini"));
      		return EFail;
 			}
 		TestSSLv3CorruptPadding(blockSize, textSize);	
 		}
	__UHEAP_MARKEND;
	return TestStepResult();
	}

void CTestPadSSLv3::TestSSLv3Padding(TInt aBlockSize)
	{
	CPaddingSSLv3 *padding = CPaddingSSLv3::NewLC(aBlockSize);

	for (TInt i = 0 ; i <= aBlockSize; i++)
		{
		HBufC8 *padInData = HBufC8::NewLC(i);
		HBufC8 *padOutData = HBufC8::NewLC(i+(aBlockSize-i%aBlockSize));
		TPtr8 in(padInData->Des());
		TPtr8 out(padOutData->Des());
		TInt j;
      
		for (j = 0; j < i; j++)
			{
			TInt text('a'+j%25);
			in.Append(text);
			}
		TRAPD(err, padding->PadL(in, out));
		INFO_PRINTF3(_L("The error returned for input size %d is %d"), i, err);
		TEST(err == KErrNone);

		TInt totalLength = out.Length();
		TInt paddingLength = aBlockSize - in.Length()%aBlockSize;
		// Test that the total length is a multiple of blockSize
		TEST((totalLength % aBlockSize) == 0);
      
		// Test that the padding bytes are equal in value to the paddingLength,
		// ie, if padding length is 5 the 5 last octets in the out array should be 0x05
		// This is according to RFC2246 (TLS1.0). The padding content in SSL3.0 is arbitrary.
		for (TInt i = paddingLength; i > 0 ; i--)
			{
			TEST(out[out.Length()-i] == paddingLength - 1);
			}

		// Test that the data has not been corrupted
		TEST(in == out.Left(out.Length() - paddingLength));
      
		CleanupStack::PopAndDestroy(2, padInData); // padInData, padOutData
		}
	CleanupStack::PopAndDestroy(padding);
	}

void CTestPadSSLv3::TestSSLv3CorruptPadding(TInt aBlockSize, TInt aTextSize)
	{
	CPaddingSSLv3 *padding = CPaddingSSLv3::NewLC(aBlockSize);

	HBufC8 *padInData = HBufC8::NewLC(aTextSize);
	TInt paddingBytes = 0;
	//If BlockSize is 0, Divide by 0 is undefined
	if(aBlockSize != 0)
		{
		paddingBytes = (aBlockSize - aTextSize % aBlockSize);
		}
	HBufC8 *padOutData = HBufC8::NewLC(aTextSize + paddingBytes);
	TPtr8 in(padInData->Des());
	TPtr8 out(padOutData->Des());
	TInt j;
      
	for (j = 0; j < aTextSize; j++)
   		{
	 	TInt text('a'+j%25);
	 	in.Append(text);
      	}
	TRAPD(err, padding->PadL(in, out));
	
  
	if(iExpectedResult.Compare(_L("CorruptBlockSize")) ==0)
 		{
 		TEST(err == KErrArgument);
 		}
	else if(iExpectedResult.Compare(_L("Valid")) ==0)
 		{
 		TEST(err == KErrNone);
 		}
	else if(iExpectedResult.Compare(_L("InvalidPadding")) == 0)
		{
		TEST(err == KErrInvalidPadding);
		}	

	//Skip the check of padded data if the padding is unsuccessful(no padding is done),
	//otherwise we'll get panic on erroneous operations on output descriptor.
	if(err != KErrNone)
		{
		CleanupStack::PopAndDestroy(2, padInData); // padInData, padOutData
		CleanupStack::PopAndDestroy(padding);
		return;
		}
	
	TInt totalLength = out.Length();
	TInt paddingLength = 0;
	//If BlockSize is 0, Divide by 0 is undefined
	if(aBlockSize != 0)
		{
      	paddingLength = aBlockSize - in.Length()%aBlockSize;
		}
	//If BlockSize is 0, Divide by 0 is undefined
	if(aBlockSize != 0)
		{
   		// Test that the total length is a multiple of blockSize
		TEST((totalLength % aBlockSize) == 0);
		}
      
	// Test that the padding bytes are equal in value to the paddingLength,
	// ie, if padding length is 5 the 5 last octets in the out array should be 0x05
	// This is according to RFC2246 (TLS1.0). The padding content in SSL3.0 is arbitrary.
	for (TInt i = paddingLength; i > 0 ; i--)
		{
	 	TEST(out[out.Length()-i] == paddingLength - 1);
      	}

	if(aBlockSize > 0)
   		{
   		// Test that the data has not been corrupted
   		TEST(in == out.Left(out.Length() - paddingLength));
   		}
          
	CleanupStack::PopAndDestroy(2, padInData); // padInData, padOutData
	CleanupStack::PopAndDestroy(padding);
	}

CTestUnpadSSLv3::CTestUnpadSSLv3()
	{
	SetTestStepName(KUnpadSSLv3);
	}

CTestUnpadSSLv3::~CTestUnpadSSLv3()
	{
	}

TVerdict CTestUnpadSSLv3::doTestStepL()
	{
	SetTestStepResult(EPass);
	__UHEAP_MARK;

	INFO_PRINTF1(_L("Test of unpadding with type SSLv3"));

	TInt blockSize;
	TInt textSize;
	if (!GetIntFromConfig(ConfigSection(), _L("BlockSize"), blockSize))
 		{
 		INFO_PRINTF1(_L("Could not find blocksize in tpadSSLv3.ini"));
      	return EFail;
 		}
 		
 	if (!GetStringFromConfig(ConfigSection(), _L("TestCaseName"), iTestCaseName))
 		{
 		INFO_PRINTF1(_L("Could not find TestCaseName in tpadSSLv3.ini"));
      	return EFail;
 		}	
 	
 	if(iTestCaseName.Compare(_L("CipherAES_CBC"))==0 || iTestCaseName.Compare(_L("CipherDES_CBC"))==0 || iTestCaseName.Compare(_L("CipherRC2_CBC"))==0)
 		{
 		TestSSLv3Unpadding(blockSize);
 		}
 	else
 		{
 		if (!GetIntFromConfig(ConfigSection(), _L("TextSize"), textSize))
   			{
      		INFO_PRINTF1(_L("Could not find TextSize in tpadSSLv3.ini"));
      		return EFail;
   			}
   			
   		if (!GetStringFromConfig(ConfigSection(), _L("ExpectedResult"), iExpectedResult))
 			{
 			INFO_PRINTF1(_L("Could not find TextSize in tpadSSLv3.ini"));
      		return EFail;
 			}
 		TestSSLv3CorruptUnpadding(blockSize, textSize);	
 		}

	__UHEAP_MARKEND;
	return TestStepResult();
	}

void CTestUnpadSSLv3::TestSSLv3Unpadding(TInt aBlockSize)
	{
	CPaddingSSLv3 *padding = CPaddingSSLv3::NewLC(aBlockSize);

	for (TInt i = 0 ; i <= aBlockSize; i++)
		{
		HBufC8 *padInData = HBufC8::NewLC(i+(aBlockSize - i%aBlockSize));
		HBufC8 *padOutData = HBufC8::NewLC(i);
		HBufC8 *padCompareData = HBufC8::NewLC(i);
		TPtr8 in(padInData->Des());
		TPtr8 out(padOutData->Des());
		TPtr8 comp(padCompareData->Des());
		TInt j;
      
		// build up a padded string here
		for (j = 0; j < i; j++)
			{
			TInt text('a'+j%25);
			in.Append(text);
			}
		comp.Append(in);
      
		TInt paddingBytes = aBlockSize - i%aBlockSize;
		in.SetLength(in.Length() + paddingBytes);

		// pad with arbitary data, to test unpadding of SSL 3.0 padded data
		in[in.Length()-1] = (TUint8) (paddingBytes - 1);
		for (j = 2; j <= paddingBytes; j++)
			{
			in[in.Length()-j] = (TUint8) ('a' + j%25);
			}
		TRAPD(err, padding->UnPadL(in, out));
		INFO_PRINTF3(_L("The error returned for input size %d is %d"), i, err);
		TEST(err == KErrNone);

		// test if the unpadding was correct.
		TEST(out == comp);
      
		CleanupStack::PopAndDestroy(3, padInData); // padInData, padOutData, padCompareData
		}
	CleanupStack::PopAndDestroy(padding);
	}

void CTestUnpadSSLv3::TestSSLv3CorruptUnpadding(TInt aBlockSize, TInt aTextSize)
	{
	CPaddingSSLv3 *padding = CPaddingSSLv3::NewLC(aBlockSize);
   
	TInt paddingBytes = 0;
	//If BlockSize is 0, Divide by 0 is undefined
	if(aBlockSize != 0)
   		{
   		paddingBytes = aBlockSize - aTextSize%aBlockSize;
   		}
	HBufC8 *padInData = HBufC8::NewLC(aTextSize+ paddingBytes);
	HBufC8 *padOutData = HBufC8::NewLC(aTextSize);
	HBufC8 *padCompareData = HBufC8::NewLC(aTextSize);
	TPtr8 in(padInData->Des());
	TPtr8 out(padOutData->Des());
	TPtr8 comp(padCompareData->Des());
	TInt j;
   
	if(in.Length() < aTextSize)
		{
		for (j = 0; j < in.Length(); j++)
   			{
	 		TInt text('a'+j%25);
	 		in.Append(text);
      		}
		}
	else
		{
		// build up a padded string here
		for (j = 0; j < aTextSize; j++)
   			{
	 		TInt text('a'+j%25);
	 		in.Append(text);
      		}
		}
	comp.Append(in);
   
	in.SetLength(in.Length() + paddingBytes);

	if(aBlockSize > 0)
  		{
   		// pad with arbitary data, to test unpadding of SSL 3.0 padded data
   		in[in.Length()-1] = (TUint8) (paddingBytes - 1);
   		for (j = 2; j <= paddingBytes; j++)
   			{
	 		in[in.Length()-j] = (TUint8) ('a' + j%25);
      		}
  		 }  
	TRAPD(err, padding->UnPadL(in, out));
   
    if(iExpectedResult.Compare(_L("CorruptBlockSize")) ==0)
 		{
 		TEST(err == KErrArgument);
 		}
	else if(iExpectedResult.Compare(_L("Valid")) ==0)
 		{
 		TEST(err == KErrNone);
 		}
	else if(iExpectedResult.Compare(_L("InvalidPadding")) == 0)
		{
		TEST(err == KErrInvalidPadding);
		}
	// test if the unpadding was correct.
	TEST(out == comp);
	CleanupStack::PopAndDestroy(3, padInData); // padInData, padOutData, padCompareData
	CleanupStack::PopAndDestroy(padding);
	}