From ec3eb52cc638dc44e7a1d766b60f84baf556f77f Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Wed, 9 Sep 2015 15:05:38 +0200 Subject: Minor speedup --- rsa.ivy | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/rsa.ivy b/rsa.ivy index 433c801..511236e 100644 --- a/rsa.ivy +++ b/rsa.ivy @@ -2,7 +2,8 @@ op E public p = E, */p op E private p = phi = */p-1 - d = 1 take (1 == (E * iota phi) mod phi) sel iota phi + n = iota phi + d = 1 take (1 == (E * n) mod phi) sel n d, */p op C rsa Key = (C ** Key[1]) mod Key[2] -- cgit v1.2.3