/*
* Copyright (c) 1998-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 "tvectorutils.h"
#include "t_input.h"

//	RSA
_LIT8(KModStart, "<modulus>");
_LIT8(KModEnd, "</modulus>");
_LIT8(KPubExpStart, "<publicExponent>");
_LIT8(KPubExpEnd, "</publicExponent>");
_LIT8(KPrivExpStart, "<privateExponent>");
_LIT8(KPrivExpEnd, "</privateExponent>");
_LIT8(KPStart, "<P>");
_LIT8(KPEnd, "</P>");
_LIT8(KQStart, "<Q>");
_LIT8(KQEnd, "</Q>");
_LIT8(KdPStart, "<dP>");
_LIT8(KdPEnd, "</dP>");
_LIT8(KdQStart, "<dQ>");
_LIT8(KdQEnd, "</dQ>");
_LIT8(KqInvStart, "<qInv>");
_LIT8(KqInvEnd, "</qInv>");

_LIT8(KTrueVal, "ETrue");
_LIT8(KFalseVal, "EFalse");

RInteger VectorUtils::ParseIntegerL(const TDesC8& aDes)
    {
	HBufC8* buf = ParseBinaryL(aDes);
	CleanupStack::PushL(buf);
    RInteger result = RInteger::NewL(*buf);
    CleanupStack::PopAndDestroy(buf);

    return result;
    }

HBufC8* VectorUtils::ParseBinaryL(const TDesC8& aDes)
{
    __ASSERT_ALWAYS(aDes.Length() % 2 == 0, User::Panic(_L("ParseBinaryL"), KErrArgument));
	int length = aDes.Length() / 2;
	HBufC8* buf = HBufC8::NewL(length);
    TPtr8 ptr = buf->Des();
	ptr.SetLength(length);

    for (TInt i = 0 ; i < aDes.Length() ; i += 2)
        {
        TUint8 tmp;
        tmp=(TUint8)(aDes[i]-(aDes[i]>'9'?('A'-10):'0'));
        tmp*=16;
        tmp|=(TUint8)(aDes[i+1]-(aDes[i+1]>'9'?('A'-10):'0'));
		ptr[i / 2] = tmp;
        }

	return buf;
}

// Print an Integer into hex, only works for positive integers
TDesC* VectorUtils::PrintIntegerL(const TInteger& aInt)
{
	HBufC8* binary = aInt.BufferLC();
	TDesC* result = PrintBinaryL(*binary);
	CleanupStack::PopAndDestroy(binary);

	return result;
}

// Print a binary string into hex
TDesC* VectorUtils::PrintBinaryL(const TDesC8& aData)
{
	int length = aData.Length() * 2;
	HBufC* buf = HBufC::NewL(length);
	TPtr ptr = buf->Des();
	ptr.SetLength(length);

	for (int i = 0 ; i < aData.Length() ; ++i)
		{
		TUint8 val = aData[i];
		TUint8 n = (TUint8) ((val & 0xf0) >> 4);
		ptr[i * 2] = (TUint8) (n < 10 ? ('0' + n) : ('A' + n - 10));
		n = (TUint8) (val & 0x0f);
		ptr[i * 2 + 1] = (TUint8) (n < 10 ? ('0' + n) : ('A' + n - 10));
		}

	return buf;
}

TBool VectorUtils::ParseBoolL(const TDesC8& aDes)
    {
    TBool result = EFalse;

    if (aDes == KTrueVal)
        result = ETrue;
    else if (aDes != KFalseVal)
        User::Leave(KErrArgument);

    return result;
    }

CRSAPublicKey* VectorUtils::ReadRSAPublicKeyL(const TDesC8& aData)
    {
	TPtrC8 modIn = Input::ParseElement(aData, KModStart, KModEnd);
    RInteger mod = ParseIntegerL(modIn);
	CleanupStack::PushL(mod);

	TPtrC8 pubExpIn = Input::ParseElement(aData, KPubExpStart, KPubExpEnd);
	RInteger pubExp = ParseIntegerL(pubExpIn);
	CleanupStack::PushL(pubExp);

	CRSAPublicKey* result = CRSAPublicKey::NewL(mod, pubExp);	
	CleanupStack::Pop(2, &mod);
	
    return result;
    }

CRSAPrivateKeyStandard* VectorUtils::ReadRSAPrivateKeyL(const TDesC8& aData)
    {
	TPtrC8 modIn = Input::ParseElement(aData, KModStart, KModEnd);
    RInteger mod = ParseIntegerL(modIn);
	CleanupStack::PushL(mod);

	TPtrC8 privExpIn = Input::ParseElement(aData, KPrivExpStart, KPrivExpEnd);
	RInteger privExp = ParseIntegerL(privExpIn);
	CleanupStack::PushL(privExp);

	CRSAPrivateKeyStandard* result  = CRSAPrivateKeyStandard::NewL(mod, privExp);
	CleanupStack::Pop(2, &mod);
	
    return result;
    }

CRSAPrivateKeyCRT* VectorUtils::ReadRSAPrivateKeyCRTL(const TDesC8& aData)
    {
	TPtrC8 modIn = Input::ParseElement(aData, KModStart, KModEnd);
    RInteger mod = ParseIntegerL(modIn);
	CleanupStack::PushL(mod);

	TPtrC8 pIn = Input::ParseElement(aData, KPStart, KPEnd);
	RInteger P = ParseIntegerL(pIn);
	CleanupStack::PushL(P);

	TPtrC8 qIn = Input::ParseElement(aData, KQStart, KQEnd);
	RInteger Q = ParseIntegerL(qIn);
	CleanupStack::PushL(Q);
	
	TPtrC8 dpIn = Input::ParseElement(aData, KdPStart, KdPEnd);
	RInteger dP = ParseIntegerL(dpIn);
	CleanupStack::PushL(dP);
	
	TPtrC8 dqIn = Input::ParseElement(aData, KdQStart, KdQEnd);
	RInteger dQ = ParseIntegerL(dqIn);
	CleanupStack::PushL(dQ);

	TPtrC8 qInvIn = Input::ParseElement(aData, KqInvStart, KqInvEnd);
	RInteger qInv = ParseIntegerL(qInvIn);
	CleanupStack::PushL(qInv);
	
	CRSAPrivateKeyCRT* privKey  = CRSAPrivateKeyCRT::NewL(mod, P, Q, dP, dQ, qInv);
	CleanupStack::Pop(6, &mod);
	
    return (privKey);
    }

CDSAPublicKey* VectorUtils::ReadDSAPublicKeyL(const TDesC8& aData)
    {
	TPtrC8 pIn = Input::ParseElement(aData, _L8("<p>"));
    RInteger p = ParseIntegerL(pIn);
	CleanupStack::PushL(p);

	TPtrC8 qIn = Input::ParseElement(aData, _L8("<q>"));
    RInteger q = ParseIntegerL(qIn);
	CleanupStack::PushL(q);

	TPtrC8 gIn = Input::ParseElement(aData, _L8("<g>"));
    RInteger g = ParseIntegerL(gIn);
	CleanupStack::PushL(g);

	TPtrC8 yIn = Input::ParseElement(aData, _L8("<y>"));
    RInteger y = ParseIntegerL(yIn);
	CleanupStack::PushL(y);

	CDSAPublicKey* result = CDSAPublicKey::NewLC(p, q, g, y);		
	CleanupStack::Pop(5, &p);

    return result;
    }

CDSAPrivateKey* VectorUtils::ReadDSAPrivateKeyL(const TDesC8& aData)
    {
	TPtrC8 pIn = Input::ParseElement(aData, _L8("<p>"));
    RInteger p = ParseIntegerL(pIn);
	CleanupStack::PushL(p);

	TPtrC8 qIn = Input::ParseElement(aData, _L8("<q>"));
    RInteger q = ParseIntegerL(qIn);
	CleanupStack::PushL(q);

	TPtrC8 gIn = Input::ParseElement(aData, _L8("<g>"));
    RInteger g = ParseIntegerL(gIn);
	CleanupStack::PushL(g);

	TPtrC8 xIn = Input::ParseElement(aData, _L8("<x>"));
    RInteger x = ParseIntegerL(xIn);
	CleanupStack::PushL(x);

	CDSAPrivateKey* result = CDSAPrivateKey::NewLC(p, q, g, x);
	CleanupStack::Pop(result);

	CleanupStack::Pop(4, &p);

    return result;
    }

CDSASignature* VectorUtils::ReadDSASignatureL(const TDesC8& aData)
    {
	TPtrC8 rIn = Input::ParseElement(aData, _L8("<r>"));
    RInteger r = ParseIntegerL(rIn);
	CleanupStack::PushL(r);

	TPtrC8 sIn = Input::ParseElement(aData, _L8("<s>"));
    RInteger s = ParseIntegerL(sIn);
	CleanupStack::PushL(s);

	CDSASignature* result = CDSASignature::NewLC(r, s);	
	CleanupStack::Pop(3, &r);

    return result;
    }
