chiark / gitweb /
Rename ethereal -> wireshark.
[tripe] / keymgmt.c
index 7163ddda5cd09720af6e4c15365ba0e81898972f..edd31b2a443b7bc52e59637190390550e479a2de 100644 (file)
--- a/keymgmt.c
+++ b/keymgmt.c
@@ -34,7 +34,9 @@
 
 group *gg;
 mp *kpriv;
+ge *kpub;
 algswitch algs;
+size_t indexsz;
 
 /*----- Static variables --------------------------------------------------*/
 
@@ -398,6 +400,12 @@ tymatch:;
   if (kpriv)
     mp_drop(kpriv);
 
+  if (kpub)
+    G_DESTROY(g, kpub);
+  kpub = G_CREATE(g);
+  G_EXP(g, kpub, g->g, x);
+  indexsz = mp_octets(g->r);
+
   /* --- Dump out the group --- */
 
   IF_TRACING(T_KEYMGMT, {