summaryrefslogtreecommitdiff
path: root/rsa.ivy
blob: 433c801d84d8a6e374d6798b0b5b594cff4c0366 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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