Return to crypt CVS log

Up to [Research Unix] / researchv9 / cmd / emacs / macros

researchv9-SUN3(old)

READ_ENCRYPTED Read Encrypted File

Warren A. Montgomery 10/20/80 (EMACS 4.0)

This macro library contains macros for reading and writing
files encrypted with crypt (1) from emacs.  The macros prompt for
key name and behave like ^X^R, ^X^W, and ^X^S

READ_ENCRYPTED

Read an encrypted file into the buffer
Kill Stack contains  calling parameters of Key and File Name

<usilent

			silence unix
B2%%<.exec

crypt - < 	Form Commannd Line  in File

		Kill Stack Now Contains
		crypt (key) < (file)
		File Name
		then buffer name
�	Run "crypt <key> <file"
	change file name
0>	change buffer name
<usilent

��	Remove linefeed introduced by crypt

WRITE_ENCRYPTED

Write an encrypted file from the buffer

Kill Stack Contains parameters of key and file name

<usilent

			silence echoes

crypt - > �
Form Command Line

			Kill Stack Now contains
			crypt (key) > (File)
			File Name
			usilent
�		Run crypt <key> >file from buffer
�	Change File Name and mark buffer
<usilent


RRead_Encrypted	Read an encrypted file into the buffer

Prompts for key and file name

|�		Conditionals Here implement
			If ((File entered) && (key entered)) do_it
�<Read File? 
	|��<Key? 
		�READ_ENCRYPTED
����
WWrite_Encrypted	Write to a file from the buffer

Prompts for key and file name

|�		Conditionals Here implement
			If ((File entered) && (key entered)) do_it
�<Write File? 
	|��<Key? 
		�WRITE_ENCRYPTED
����
SSAVE_ENCRYPTED  Save the buffer to a encrypted file

Save an encrypted file from the buffer

|�		If (Key Entered)
�<Key? 
	F%�WRITE_ENCRYPTED
��

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.