summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-09-09 15:05:38 +0200
committerDimitri Sokolyuk <demon@dim13.org>2015-09-09 15:05:38 +0200
commitec3eb52cc638dc44e7a1d766b60f84baf556f77f (patch)
tree729816fe221ad4afc1a04bf049fd09006b344bd0
parentb4a326d05d2aca748f3e36ff00b513ce3c2578f7 (diff)
Minor speedup
-rw-r--r--rsa.ivy3
1 files changed, 2 insertions, 1 deletions
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]