summaryrefslogtreecommitdiff
path: root/rsa.ivy
diff options
context:
space:
mode:
Diffstat (limited to 'rsa.ivy')
-rw-r--r--rsa.ivy20
1 files changed, 20 insertions, 0 deletions
diff --git a/rsa.ivy b/rsa.ivy
new file mode 100644
index 0000000..433c801
--- /dev/null
+++ b/rsa.ivy
@@ -0,0 +1,20 @@
+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
+ d, */p
+
+op C rsa Key = (C ** Key[1]) mod Key[2]
+
+P = 11 101
+pub = 3 public P
+priv = 3 private P
+
+msg = "test"
+pub
+priv
+
+ciphre = (code msg) rsa pub
+ciphre
+char ciphre rsa priv