tankf33der/monocypher-ed25519-1M
1
0
Fork 0
Code Activity

.

Browse source
This commit is contained in:
Mike 2024-01-31 19:47:23 +02:00
parent 517028871b
commit 148d537db9
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
expmod.l
View file

@ -40,11 +40,13 @@ R 37095705934669439343138083508754565189542113879843219016388785533085940283556
(de expmod-NEW (B E M)
(if (=0 E)
1
# (let R (% (* (expmod-NEW B (/ E 2) M) 2) M)
(let R (**Mod (expmod-NEW B (/ E 2) M) 2 M)
(when (bit? 1 E) (setq R (% (* R B) M)))
(let R
(%
(** (expmod-NEW B (/ E 2) M) 2)
M )
(when (bit? 1 E)
(setq R (% (* R B) M)) )
R ) ) )
(println 'expmod-NEW)
(bench
(do 10000