/* -*-apcalc-*-
*
- * $Id: ec2.cal,v 1.2 2004/03/21 22:52:06 mdw Exp $
+ * $Id: ec2.cal,v 1.3 2004/04/01 12:50:27 mdw Exp $
*
* Testbed for elliptic curve arithmetic over binary fields
*
/*----- Revision history --------------------------------------------------*
*
* $Log: ec2.cal,v $
+ * Revision 1.3 2004/04/01 12:50:27 mdw
+ * Remove debugging code.
+ *
* Revision 1.2 2004/03/21 22:52:06 mdw
* Merge and close elliptic curve branch.
*
local e, alpha;
local obj ec2_pt d;
- print "> ecadd: ", a, b;
if (a == 0)
d = b;
else if (b == 0)
d.e = e;
}
- print "< ecadd: ", d;
return (d);
}
{
local e, alpha;
local obj ec2_pt d;
- print "> ecdbl: ", a;
if (istype(a, 1))
return (0);
e = a.e;
d.x = (e.a + alpha^2 + alpha) % e.p;
d.y = ((a.x + d.x) * alpha + d.x + a.y) % e.p;
d.e = e;
- print "< ecdbl: ", d;
return (d);
}