Function fxBigInt_mont_exp_LR

modules/crypt/arith/xsBigIntEx.c:513–537

}

txBigInt *fxBigInt_mont_exp_LR(txMachine *the, txBigInt *r, txBigInt *b, txBigInt *e, txBigInt *m)
{
	int i;
	txBigInt *t;
	txU4 u;
	pool_t pool;

	if (r == NULL)
		r = fxBigInt_alloc(the, m->size);
	pool_init(&pool);
	u = mont_init(m);
	t = pool_get(the, m->size, &pool);
	mont_exp_init(the, t, m, &pool);
	if (fxBigInt_ucomp(b, m) > 0)
		b = fxBigInt_mod(the, pool_get(the, m->size, &pool), b, m);
	b = mont_in(the, pool_get(the, m->size, &pool), b, m);
	for (i = fxBigInt_bitsize(e); --i >= 0;) {
		mont_square(the, t, t, m, u, &pool);
		if (fxBigInt_isset(e, i))
			mont_mul(the, t, t, b, m, u, &pool);
	}
	mont_out(the, r, t, m, u);
	pool_dispose(the, &pool);
	return r;
}

txBigInt *fxBigInt_mont_exp_SW(txMachine *the, txBigInt *r, txBigInt *b, txBigInt *e, txBigInt *m, int param)
{