DIRECTORY   DESFace USING[Key],IO USING[STREAM, StreamVariety],Rope USING[ROPE];  Encrypt: CEDAR DEFINITIONS =BEGIN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];END.   Ì  Encrypt.mesa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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Êí  ˜ Jšœ™Jšœ*™*Jšœ*™*Jšœ0™0J™4J™ J˜ JšÏk	˜	šœœ˜Jšœœœ˜ Jšœœœ˜—Jšœ˜J˜ šœ	œœ˜Jš˜J˜ JšÏn
œœœÏcœœœœœ
œœ˜ƒJ˜ JšžœœœŸœœœœ
œœ˜ŒJ˜ šœœ˜JšœŸ™ŸJ˜ —šœžœœœ˜?Jšœf™fJ™ šœžœœ(œ˜ZJšœf™fJ˜ —J˜ —Jš
žœœœœœ˜FJš
žœœœœœ˜F˜ Jš
žœœœœœ˜ZJ˜ š
žœœœœœ˜ZJ˜ —J˜ —Jšœ˜J˜ Jšœ:™:Jšœi™i™+J™o—™1J™—J™ —J™ — …—    ”  	M  