Return to crypt CVS log

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

Annotation of researchv9/cmd/emacs/macros/crypt, revision 1.1

1.1     ! root        1: READ_ENCRYPTED Read Encrypted File
        !             2: 
        !             3: Warren A. Montgomery 10/20/80 (EMACS 4.0)
        !             4: 
        !             5: This macro library contains macros for reading and writing
        !             6: files encrypted with crypt (1) from emacs.  The macros prompt for
        !             7: key name and behave like ^X^R, ^X^W, and ^X^S
        !             8: 
        !             9: READ_ENCRYPTED
        !            10: 
        !            11: Read an encrypted file into the buffer
        !            12: Kill Stack contains  calling parameters of Key and File Name
        !            13: 
        !            14: <usilent
        !            15: 
                    silence unix
        !            16: B2%%<.exec
        !            17: &crypt - <   Form Commannd Line  in File
        !            18: &            Kill Stack Now Contains
        !            19:               crypt (key) < (file)
        !            20:               File Name
        !            21:               then buffer name
        !            22: �     Run "crypt <key> <file"
        !            23:    change file name
        !            24: 0>      change buffer name
        !            25: <usilent
        !            26: 
�� Remove linefeed introduced by crypt
        !            27: 
        !            28: WRITE_ENCRYPTED
        !            29: 
        !            30: Write an encrypted file from the buffer
        !            31: 
        !            32: Kill Stack Contains parameters of key and file name
        !            33: 
        !            34: <usilent
        !            35: 
                    silence echoes
        !            36: &crypt - > �&Form Command Line
        !            37: 
        !            38:                       Kill Stack Now contains
        !            39:                       crypt (key) > (File)
        !            40:                       File Name
        !            41:                       usilent
        !            42: �            Run crypt <key> >file from buffer
        !            43: �  Change File Name and mark buffer
        !            44: <usilent
        !            45: 

        !            46: RRead_Encrypted      Read an encrypted file into the buffer
        !            47: 
        !            48: Prompts for key and file name
        !            49: 
        !            50: |�           Conditionals Here implement
        !            51:                       If ((File entered) && (key entered)) do_it
        !            52: �<Read File? 
        !            53:        |��<Key? 
        !            54:                �READ_ENCRYPTED
        !            55: ����
        !            56: WWrite_Encrypted     Write to a file from the buffer
        !            57: 
        !            58: Prompts for key and file name
        !            59: 
        !            60: |�           Conditionals Here implement
        !            61:                       If ((File entered) && (key entered)) do_it
        !            62: �<Write File? 
        !            63:        |��<Key? 
        !            64:                �WRITE_ENCRYPTED
        !            65: ����
        !            66: SSAVE_ENCRYPTED  Save the buffer to a encrypted file
        !            67: 
        !            68: Save an encrypted file from the buffer
        !            69: 
        !            70: |�           If (Key Entered)
        !            71: �<Key? 
        !            72:        F%�WRITE_ENCRYPTED
        !            73: ��

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