DIRECTORY DESFace USING[Key], IO USING[STREAM, StreamVariety], Rope USING[ROPE]; Encrypt: CEDAR DEFINITIONS = { StreamOpen: PROC[ variety: IO.StreamVariety -- input, output -- , cipher: IO.STREAM, key: Rope.ROPE ] RETURNS [ plain: IO.STREAM ]; StreamOpenWithKey: PROC[ variety: IO.StreamVariety -- input, output -- , cipher: IO.STREAM, key: DESFace.Key ] RETURNS [ plain: IO.STREAM ]; BadEncryption: ERROR; EncryptFile, DecryptFile: PROC [key, plain, cipher: Rope.ROPE]; EncryptFileWithKey, DecryptFileWithKey: PROC [key: DESFace.Key, plain, cipher: Rope.ROPE]; EncryptRope: PROC [plain, key: Rope.ROPE] RETURNS [cipher: Rope.ROPE]; DecryptRope: PROC [cipher, key: Rope.ROPE] RETURNS [plain: Rope.ROPE]; EncryptRopeWithKey: PROC [plain: Rope.ROPE, key: DESFace.Key] RETURNS [cipher: Rope.ROPE]; DecryptRopeWithKey: PROC [cipher: Rope.ROPE, key: DESFace.Key] RETURNS [plain: Rope.ROPE]; }. 0Encrypt.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. last edited July 31, 1982 1:10 pm Sturgis last edited May 23, 1983 5:44 pm Mitchell last edited February 2, 1984 12:31 pm McCreight Last Edited by: Greene, June 27, 1984 3:40:38 pm PDT Swinehart, July 5, 1985 2:13:24 pm PDT Trying to decrypt something that wasn't encrypted by Encrypt, or has been altered since. Generated during StreamOpen[variety: input, ...], or plain.GetChar[]. The plain file is copied, encrypted/decrypted by key, to/from the cipher file. Can generate FS.Error. The plain file is copied, encrypted/decrypted by key, to/from the cipher file. Can generate FS.Error. Remark: 14-Mar-82 12:02:38: started EncryptedIOStream.Mesa Remark: July 31, 1982 1:10 pm: convert to Cedar 3.2 (Rope.Ref => Rope.ROPE, IOStream.Handle => IO.STREAM) Edited on May 23, 1983 5:43 pm, by Mitchell changed name to EncryptedIO as part of basing on DES encryption and providing more general set of IO procedures Edited on February 2, 1984 12:42 pm, by McCreight changed name to Encrypt Êò˜šœ ™ Icodešœ Ïmœ1™