From df7b4aca92b3cdbb324a833e1faaa59f532efb77 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Niels=20M=C3=B6ller?= <nisse@lysator.liu.se>
Date: Sat, 6 Sep 2014 17:20:10 +0200
Subject: [PATCH] Output points also for the Ed25519 curve.

---
 misc/ecc-ref.gp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/misc/ecc-ref.gp b/misc/ecc-ref.gp
index 7ef73259..d963e990 100644
--- a/misc/ecc-ref.gp
+++ b/misc/ecc-ref.gp
@@ -118,4 +118,14 @@ if (S != ellpow(curve25519, B, a), error("curve25519 dh error"));
 print("curve25519");
 out(a, A, b, B, S);
 
+/* Convert point on curve25519 to a point on the twisted edwards curve */
+beta = -sqrt(Mod(-486664, p25519));
+ed25519(p) = [p[1] * beta / p[2], (p[1] - 1) / (p[1] + 1)];
+
+Ae = ed25519(A);
+Be = ed25519(B);
+Se = ed25519(S);
+print("ed25519");
+out(a, Ae, b, Be, Se);
+
 quit
-- 
GitLab