Path: utzoo!mnetor!uunet!husc6!mit-eddie!ll-xn!ames!pasteur!ucbvax!PEBBLES.BBN.COM!jr
From: jr@PEBBLES.BBN.COM (John Robinson)
Newsgroups: comp.emacs
Subject: Re: encrypting a buffer
Message-ID: <9432.575149779@pebbles>
Date: 23 Mar 88 19:49:39 GMT
References: <4034@potomac.ads.com>
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: jr@BBN.COM
Organization: The Internet
Lines: 16

You're close.  How about:

(defun encrypt-region (key)
"Encrypt the region after prompting for a key."
  (interactive "sDES Key: ")
  (call-process-region (region-beginning) (region-end) "des" t t nil
		       "-e" "-f" "-k" key))

(defun decrypt-region (key)
"Decrypt the region after prompting for a key."
  (interactive "sDES Key: ")
  (call-process-region (region-beginning) (region-end) "des" t t nil
		       "-d" "-f" "-k" key))

/jr
jr@bbn.com or jr@bbn.uucp