/*
* Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).
* All rights reserved.
* This component and the accompanying materials are made available
* under the terms of "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 FILES
#include <e32std.h>
#include <f32file.h>
#include <flogger.h>
#include <x509cert.h>
#include <symmetric.h>
#include <asymmetric.h>

#ifdef RD_MULTIPLE_DRIVE
#include <driveinfo.h>
#endif

#include "DrmKeyStorage.h"


// EXTERNAL DATA STRUCTURES

// EXTERNAL FUNCTION PROTOTYPES

// CONSTANTS

// MACROS

// LOCAL CONSTANTS AND MACROS

// Test logging macros

#ifdef RD_MULTIPLE_DRIVE
_LIT(KFullLogDir, "%c:\\logs\\drm\\");
#else
_LIT(KFullLogDir, "c:\\logs\\drm\\");
#endif

_LIT(KLogDir, "drm");
_LIT(KLogName, "DrmEncryptorBb5KeyStorage.log");

#define TEST_STEP(string) \
    GBb5Log.WriteFormat(_L("Next Test: %S"), &string);

#define CHECK(condition) \
    if (!condition) GBb5Log.WriteFormat(_L("FAIL: line %d"), __LINE__);

// MODULE DATA STRUCTURES

RFs GBb5Fs;
RFileLogger GBb5Log;

// STATIC TEST CONTENT AND RIGHTS OBJECTS

// LOCAL FUNCTION PROTOTYPES

// ==================== LOCAL FUNCTIONS ====================

HBufC8* I2OSPL(
    RInteger& aInt)
    {
    HBufC8* r = aInt.BufferLC();
    CleanupStack::Pop(r);
    return r;
    }

RInteger OS2IPL(
    const TDesC8& aOctetStream)
    {
    RInteger r;
    TInt i;

    r = RInteger::NewL(0);
    for (i = 0; i < aOctetStream.Length(); i++)
        {
        r *= 256;
        r += aOctetStream[i];
        }
    return r;
    }

HBufC8* RsaEncryptL(
    CRSAPublicKey* aKey,
    const TDesC8& aInput)
    {
    RInteger result;
    RInteger input;
    HBufC8* output;

    input = OS2IPL(aInput);
    CleanupClosePushL(input);
    result = TInteger::ModularExponentiateL(input, aKey->E(), aKey->N());
    CleanupClosePushL(result);
    output = I2OSPL(result);
    CleanupStack::PopAndDestroy(2); // result, input
    return output;
    }

LOCAL_C TUint MDrmKeyStorage_GetCertificateChainL()
    {
    MDrmKeyStorage* storage = NULL;
    RPointerArray<HBufC8> chain;
    TInt i;
    TUint result = NULL;

    GBb5Log.WriteFormat(_L("MDrmKeyStorage_GetCertificateChainL -> DrmKeyStorageNewL"));
    TRAPD(err,storage = DrmKeyStorageNewL());
    if (err != KErrNone)
        {
            result = err;
        }

    GBb5Log.WriteFormat(_L("MDrmKeyStorage_GetCertificateChainL -> SelectDefaultRootL"));
    storage->SelectDefaultRootL();

    GBb5Log.WriteFormat(_L("MDrmKeyStorage_GetCertificateChainL -> GetCertificateChainL"));
    storage->GetCertificateChainL(chain);

    for (i = 0; i < chain.Count(); i++)
        {
        GBb5Log.WriteFormat(_L("Certificate %d:"), i);
        GBb5Log.HexDump(_S(""), _S(""), chain[i]->Ptr(), chain[i]->Length());
        }
    chain.ResetAndDestroy();
    chain.Close();
    delete storage;
    return result;
    }

LOCAL_C TUint MDrmKeyStorage_DecryptL()
    {
    MDrmKeyStorage* storage = NULL;
    RPointerArray<HBufC8> chain;
    CRSAPublicKey* key = NULL;
    CX509Certificate* cert = NULL;
    TX509KeyFactory factory;
    TBuf8<128> data;
    HBufC8* encData;
    HBufC8* decData;
    TUint result = KErrNone;


    GBb5Log.WriteFormat(_L("MDrmKeyStorage_Decrypt"));
    storage = DrmKeyStorageNewL();
    storage->SelectDefaultRootL();
    storage->GetCertificateChainL(chain);
    cert = CX509Certificate::NewL(*chain[0]);
    chain.ResetAndDestroy();
    chain.Close();
    key = factory.RSAPublicKeyL(cert->PublicKey().KeyData());
    data.SetLength(128);
    data.Fill(1);
    GBb5Log.WriteFormat(_L("data:"));
    GBb5Log.HexDump(_S(""), _S(""), &data[0], sizeof(data));

    encData = RsaEncryptL(key, data);
    GBb5Log.WriteFormat(_L("encrypted data:"));
    GBb5Log.HexDump(_S(""), _S(""), encData->Ptr(), encData->Length());

    decData = storage->RsaDecryptL(*encData);
    GBb5Log.WriteFormat(_L("decrypted data :"));
    GBb5Log.HexDump(_S(""), _S(""), decData->Ptr(), decData->Length());

    delete cert;
    delete key;
    delete storage;
    return result;
    }

// ==================== TEST FUNCTIONS =====================



TUint Bb5KeyStorage()
    {
    TUint result = 0;
    TInt catchy = 0;
    result = GBb5Fs.Connect();
    if( result != KErrNone )
        {
        return result;
        }

#ifndef RD_MULTIPLE_DRIVE

    GBb5Fs.MkDirAll(KFullLogDir);

#else //RD_MULTIPLE_DRIVE

    TInt driveNumber( -1 );
    TChar driveLetter;
    DriveInfo::GetDefaultDrive( DriveInfo::EDefaultSystem, driveNumber );
    GBb5Fs.DriveToChar( driveNumber, driveLetter );

    TFileName fullLogDir;
    fullLogDir.Format( KFullLogDir, (TUint)driveLetter );

    GBb5Fs.MkDirAll(fullLogDir);

#endif

    result = GBb5Log.Connect();
    if( result != KErrNone )
        {
        GBb5Fs.Close();
        return result;
        }
    GBb5Log.CreateLog(KLogDir, KLogName, EFileLoggingModeOverwrite);
    GBb5Log.Write(_L("Start %D"));

    TRAPD(err,result = MDrmKeyStorage_GetCertificateChainL());
    CHECK(err == KErrNone);
    if (err ==KErrNone)
        {
        TRAP(catchy, result = MDrmKeyStorage_DecryptL());
        if( catchy )
            {
            result = catchy;
            }
        }
    CHECK(err == KErrNone);
    GBb5Log.CloseLog();
    GBb5Fs.Close();
    return result;
    }