1995-10-12 - Re: Noise: Re: CJR for perl-RSA t-shirt

Header Data

From: Simon Spero <ses@tipper.oit.unc.edu>
To: jirib@cs.monash.edu.au
Message Hash: 76b8db16299637caaf0190f98a464805a29239badf40ed8c611e65b0e8aa6abe
Message ID: <Pine.SOL.3.91.951011223447.25554A-100000@chivalry>
Reply To: <199510120509.PAA14542@sweeney.cs.monash.edu.au>
UTC Datetime: 1995-10-12 05:41:47 UTC
Raw Date: Wed, 11 Oct 95 22:41:47 PDT

Raw message

From: Simon Spero <ses@tipper.oit.unc.edu>
Date: Wed, 11 Oct 95 22:41:47 PDT
To: jirib@cs.monash.edu.au
Subject: Re: Noise: Re: CJR for perl-RSA t-shirt
In-Reply-To: <199510120509.PAA14542@sweeney.cs.monash.edu.au>
Message-ID: <Pine.SOL.3.91.951011223447.25554A-100000@chivalry>
MIME-Version: 1.0
Content-Type: text/plain


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...

Simon
---
(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))))






Thread