--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/crypto/weakcrypto/test/tbigint/tmontgomeryfb.cpp	Wed Jul 08 11:25:26 2009 +0100
@@ -0,0 +1,148 @@
+/*
+* Copyright (c) 2002-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 "tmontgomeryfb.h"
+#include "t_input.h"
+#include "t_output.h"
+#include "tutils.h"
+#include <bigint.h>
+#include <random.h>
+#include "../../source/bigint/mont.h"
+
+CTestAction* CMontgomeryFB::NewL(RFs& aFs, CConsoleBase& aConsole, 
+	Output& aOut, const TTestActionSpec& aTestActionSpec)
+	{
+	CTestAction* self = CMontgomeryFB::NewLC(aFs, aConsole,
+		aOut, aTestActionSpec);
+	CleanupStack::Pop();
+	return self;
+	}
+
+CTestAction* CMontgomeryFB::NewLC(RFs& aFs, CConsoleBase& aConsole, 
+	Output& aOut, const TTestActionSpec& aTestActionSpec)
+	{
+	CMontgomeryFB* self = new(ELeave) CMontgomeryFB(aFs, aConsole, aOut);
+	CleanupStack::PushL(self);
+	self->ConstructL(aTestActionSpec);
+	return self;
+	}
+
+CMontgomeryFB::~CMontgomeryFB()
+	{
+	delete iBody;
+	}
+
+CMontgomeryFB::CMontgomeryFB(RFs& aFs, CConsoleBase& aConsole, Output& aOut)
+	: CTestAction(aConsole, aOut), iFs(aFs)
+	{
+	}
+
+void CMontgomeryFB::ConstructL(const TTestActionSpec& aTestActionSpec)
+	{
+	CTestAction::ConstructL(aTestActionSpec);
+
+	iBody = HBufC8::NewL(aTestActionSpec.iActionBody.Length());
+	iBody->Des().Copy(aTestActionSpec.iActionBody);
+
+	HBufC8* length = Input::ParseElementHexL(*iBody, _L8("<bits>"));
+	CleanupStack::PushL(length);
+	RInteger clength = RInteger::NewL(*length);
+	CleanupStack::PopAndDestroy(length);
+	CleanupStack::PushL(clength);
+	TUint bits = clength.ConvertToLongL();
+	CleanupStack::PopAndDestroy();//clength
+	// the final /7 gives the number of times we have to increment by 7 to get
+	// to that number of bytes and hence bits.
+	iIterations = ((bits+7)/8)/7 + 1;
+	}
+
+void CMontgomeryFB::DoPerformPrerequisite(TRequestStatus& aStatus)
+	{
+	TRequestStatus* status = &aStatus;
+	User::RequestComplete(status, KErrNone);
+	iActionState = CTestAction::EAction;
+	}
+
+void CMontgomeryFB::DoPerformPostrequisite(TRequestStatus& aStatus)
+	{
+	TRequestStatus* status = &aStatus;
+	iFinished = ETrue;
+	User::RequestComplete(status, KErrNone);
+	}
+
+void CMontgomeryFB::DoReportAction(void)
+	{
+	}
+
+void CMontgomeryFB::DoCheckResult(TInt)
+	{
+	}
+
+void CMontgomeryFB::PerformAction(TRequestStatus& aStatus)
+	{
+	TRAPD(res, PerformActionL());
+	__ASSERT_ALWAYS(!res, User::Panic(_L("CMontgomeryFB::PerformAction"), res));
+	TRequestStatus* status = &aStatus;
+	User::RequestComplete(status, KErrNone);
+	iActionState = CTestAction::EPostrequisite;
+	}
+
+void CMontgomeryFB::PerformActionL()
+	{
+	__UHEAP_MARK;
+	
+	iResult = ETrue;
+
+	//Generate iIterations*7 byte random sequences we are using 7 as it's a
+	//generator mod 8.  Thus we'll cycle through every value (0-7) every 8
+	//iterations.  This gives us a better feeling that certain byte lengths
+	//(and thus bit lengths as the byte is chosen randomly) don't have errors.
+	for(TUint i=1; i<=iIterations; i++)
+		{ 
+		//generate a prime of roughly i*7*8 bits
+		RInteger prime = RInteger::NewPrimeL(i*7*8);
+		CleanupStack::PushL(prime);
+		CMontgomeryStructure* mont = CMontgomeryStructure::NewLC(prime);
+		
+		//generate a random number of x | 2 < x < prime
+		RInteger base = RInteger::NewRandomL(TInteger::Two(), prime);
+		CleanupStack::PushL(base);
+		
+		//This is using Fermat's Little Theorem
+		//  (base ^ prime) % prime == base or
+		//  (base ^ prime-1) % prime == 1
+		const TInteger& y = mont->ExponentiateL(base, prime);
+		if( y != base )
+			{
+			iResult = EFalse;
+			iConsole.Printf(_L("X"));
+			iOut.writeString(_L("Failure exponentiating:"));
+			iOut.writeNewLine();
+			Utils::DumpInteger(iOut, _L("base: "), base);
+			Utils::DumpInteger(iOut, _L("prime: "), prime);
+			Utils::DumpInteger(iOut, _L("output: "), (const RInteger&)y);
+			Utils::DumpInteger(iOut, _L("expected: "), base);
+			}
+
+		CleanupStack::PopAndDestroy(3, &prime);//base,mont,prime
+
+		iConsole.Printf(_L("."));
+		}
+
+	__UHEAP_MARKEND;
+	}