[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Noise: Re: CJR for perl-RSA t-shirt

On Thu, 12 Oct 1995, Jiri Baum wrote:

> If you are reading a signed message, you simply strip off the

Not a good choice of words - remember, you should never expose your 
private, er, key...

(defun modexpt (x y n)  "computes (x^y) mod n"
  (cond ((= y 0) 1)   ((= y 1) (mod x n))
	((evenp y) (mod (expt (modexpt x (/ y 2) n) 2) n))
	(t (mod (* x (modexpt x (1- y) n)) n))))