--- rsaglue.c   1999/12/10 23:27:25     1.8
+++ rsaglue.c   2001/02/03 09:42:05
@@ -264,7 +268,15 @@
   mpz_clear(&aux);

   if (value[0] != 0 || value[1] != 2)
-    fatal("Bad result from rsa_private_decrypt");
+    {
+      static time_t last_kill_time = 0;
+      if (time(NULL) - last_kill_time > 60 && getppid() != 1)
+       {
+         last_kill_time = time(NULL);
+         kill(getppid(), SIGALRM);
+       }
+      fatal("Bad result from rsa_private_decrypt");
+    }

   for (i = 2; i < len && value[i]; i++)
     ;