public static void ScalarMultBase(byte[] k, int kOff, byte[] r, int rOff)
{
uint[] x = X448Field.Create();
uint[] y = X448Field.Create();
Ed448.ScalarMultBaseXY(k, kOff, x, y);
X448Field.Inv(x, x);
X448Field.Mul(x, y, x);
X448Field.Sqr(x, x);
X448Field.Normalize(x);
X448Field.Encode(x, r, rOff);
}
private static void PointDouble(uint[] x, uint[] z)
{
uint[] A = X448Field.Create();
uint[] B = X448Field.Create();
//X448Field.Apm(x, z, A, B);
X448Field.Add(x, z, A);
X448Field.Sub(x, z, B);
X448Field.Sqr(A, A);
X448Field.Sqr(B, B);
X448Field.Mul(A, B, x);
X448Field.Sub(A, B, A);
X448Field.Mul(A, C_A24, z);
X448Field.Add(z, B, z);
X448Field.Mul(z, A, z);
}
public static void ScalarMult(byte[] k, int kOff, byte[] u, int uOff, byte[] r, int rOff)
{
uint[] n = new uint[14]; DecodeScalar(k, kOff, n);
uint[] x1 = X448Field.Create(); X448Field.Decode(u, uOff, x1);
uint[] x2 = X448Field.Create(); X448Field.Copy(x1, 0, x2, 0);
uint[] z2 = X448Field.Create(); z2[0] = 1;
uint[] x3 = X448Field.Create(); x3[0] = 1;
uint[] z3 = X448Field.Create();
uint[] t1 = X448Field.Create();
uint[] t2 = X448Field.Create();
Debug.Assert(n[13] >> 31 == 1U);
int bit = 447, swap = 1;
do
{
//X448Field.Apm(x3, z3, t1, x3);
X448Field.Add(x3, z3, t1);
X448Field.Sub(x3, z3, x3);
//X448Field.Apm(x2, z2, z3, x2);
X448Field.Add(x2, z2, z3);
X448Field.Sub(x2, z2, x2);
X448Field.Mul(t1, x2, t1);
X448Field.Mul(x3, z3, x3);
X448Field.Sqr(z3, z3);
X448Field.Sqr(x2, x2);
X448Field.Sub(z3, x2, t2);
X448Field.Mul(t2, C_A24, z2);
X448Field.Add(z2, x2, z2);
X448Field.Mul(z2, t2, z2);
X448Field.Mul(x2, z3, x2);
//X448Field.Apm(t1, x3, x3, z3);
X448Field.Sub(t1, x3, z3);
X448Field.Add(t1, x3, x3);
X448Field.Sqr(x3, x3);
X448Field.Sqr(z3, z3);
X448Field.Mul(z3, x1, z3);
--bit;
int word = bit >> 5, shift = bit & 0x1F;
int kt = (int)(n[word] >> shift) & 1;
swap ^= kt;
X448Field.CSwap(swap, x2, x3);
X448Field.CSwap(swap, z2, z3);
swap = kt;
}while (bit >= 2);
Debug.Assert(swap == 0);
for (int i = 0; i < 2; ++i)
{
PointDouble(x2, z2);
}
X448Field.Inv(z2, z2);
X448Field.Mul(x2, z2, x2);
X448Field.Normalize(x2);
X448Field.Encode(x2, r, rOff);
}
public static void Precompute()
{
if (precompBase != null)
{
return;
}
precompBase = new uint[X448Field.Size * 446];
uint[] xs = precompBase;
uint[] zs = new uint[X448Field.Size * 445];
uint[] x = X448Field.Create(); x[0] = 5;
uint[] z = X448Field.Create(); z[0] = 1;
uint[] n = X448Field.Create();
uint[] d = X448Field.Create();
//X448Field.Apm(x, z, n, d);
X448Field.Add(x, z, n);
X448Field.Sub(x, z, d);
uint[] c = X448Field.Create(); X448Field.Copy(d, 0, c, 0);
int off = 0;
for (;;)
{
X448Field.Copy(n, 0, xs, off);
if (off == (X448Field.Size * 445))
{
break;
}
PointDouble(x, z);
//X448Field.Apm(x, z, n, d);
X448Field.Add(x, z, n);
X448Field.Sub(x, z, d);
X448Field.Mul(n, c, n);
X448Field.Mul(c, d, c);
X448Field.Copy(d, 0, zs, off);
off += X448Field.Size;
}
uint[] u = X448Field.Create();
X448Field.Inv(c, u);
for (;;)
{
X448Field.Copy(xs, off, x, 0);
X448Field.Mul(x, u, x);
//X448Field.Normalize(x);
X448Field.Copy(x, 0, precompBase, off);
if (off == 0)
{
break;
}
off -= X448Field.Size;
X448Field.Copy(zs, off, z, 0);
X448Field.Mul(u, z, u);
}
}
public static void ScalarMultBase(byte[] k, int kOff, byte[] r, int rOff)
{
Precompute();
uint[] n = new uint[14]; DecodeScalar(k, kOff, n);
uint[] x0 = X448Field.Create();
uint[] x1 = X448Field.Create(); X448Field.Copy(S_x, 0, x1, 0);
uint[] z1 = X448Field.Create(); z1[0] = 1;
uint[] x2 = X448Field.Create(); X448Field.Copy(PsubS_x, 0, x2, 0);
uint[] z2 = X448Field.Create(); z2[0] = 1;
uint[] A = X448Field.Create();
uint[] B = z1;
uint[] C = x0;
uint[] D = x1;
uint[] E = B;
Debug.Assert(n[13] >> 31 == 1U);
int off = 0, bit = 2, swap = 1;
do
{
X448Field.Copy(precompBase, off, x0, 0);
off += X448Field.Size;
int word = bit >> 5, shift = bit & 0x1F;
int kt = (int)(n[word] >> shift) & 1;
swap ^= kt;
X448Field.CSwap(swap, x1, x2);
X448Field.CSwap(swap, z1, z2);
swap = kt;
//X448Field.Apm(x1, z1, A, B);
X448Field.Add(x1, z1, A);
X448Field.Sub(x1, z1, B);
X448Field.Mul(x0, B, C);
X448Field.Carry(A);
//X448Field.Apm(A, C, D, E);
X448Field.Add(A, C, D);
X448Field.Sub(A, C, E);
X448Field.Sqr(D, D);
X448Field.Sqr(E, E);
X448Field.Mul(z2, D, x1);
X448Field.Mul(x2, E, z1);
}while (++bit < 448);
Debug.Assert(swap == 1);
for (int i = 0; i < 2; ++i)
{
PointDouble(x1, z1);
}
X448Field.Inv(z1, z1);
X448Field.Mul(x1, z1, x1);
X448Field.Normalize(x1);
X448Field.Encode(x1, r, rOff);
}
