DIRECTORY
Buttons,
Containers,
Commander,
Encrypt,
FS,
IO,
Menus,
MessageWindow,
PutGet,
Rope,
TEditDocument,
TiogaExtraOps,
TiogaOps,
ViewerClasses,
ViewerOps,
ViewerTools;

EncryptTool: CEDAR PROGRAM
IMPORTS
Buttons, Commander, Containers, Encrypt, FS, IO, Menus, MessageWindow, PutGet, Rope, TiogaExtraOps, TiogaOps, ViewerOps, ViewerTools =
BEGIN

EncryptHandle: TYPE = REF EncryptToolRec;
EncryptToolRec: TYPE = RECORD [
outer: Containers.Container _ NIL,
key: Rope.ROPE _ NIL,
keyViewer: ViewerClasses.Viewer _ NIL,
files: ViewerClasses.Viewer _ NIL
];
EncryptedText: TYPE = Rope.ROPE;

SelectKey: Buttons.ButtonProc =
BEGIN
handle: EncryptHandle = NARROW[clientData];
ViewerTools.SetContents[handle.keyViewer, handle.key];
ViewerTools.SetSelection[handle.keyViewer];
handle.keyViewer.newVersion _ TRUE; -- forces stars to return on button op
END;

SelectFiles: Buttons.ButtonProc =
BEGIN
handle: EncryptHandle = NARROW[clientData];
ViewerTools.SetSelection[handle.files];
END;

GetKey: PROC [handle: EncryptHandle] RETURNS [Rope.ROPE] =
BEGIN
IF handle.keyViewer.newVersion THEN
BEGIN
handle.key _ ViewerTools.GetContents[handle.keyViewer];
ViewerTools.SetContents[handle.keyViewer, "*****"];
handle.keyViewer.newVersion _ FALSE;
END;
RETURN[handle.key];
END;

EncryptFiles: Buttons.ButtonProc =
BEGIN
handle: EncryptHandle = NARROW[clientData];
key: Rope.ROPE = GetKey[handle];
inputs: IO.STREAM = IO.RIS[ViewerTools.GetContents[handle.files]];
sourceFile: Rope.ROPE;
sourceFile _ inputs.GetTokenRope[IO.IDProc
! IO.EndOfStream => {sourceFile _ NIL; CONTINUE}].token;
IF Rope.Length[key]=0 THEN BEGIN
MessageWindow.Append["Please enter an encryption key", TRUE];
MessageWindow.Blink[];
END
ELSE
WHILE sourceFile#NIL DO
destFile: Rope.ROPE = Rope.Concat[sourceFile, ".des"];
Encrypt.EncryptFile[plain: sourceFile, cipher: destFile, key: key !
FS.Error =>
BEGIN
MessageWindow.Append[IO.PutFR["Trouble encrypting file ""%g"" because %g. Aborting encryption.", IO.rope[sourceFile], IO.rope[error.explanation]], TRUE];
MessageWindow.Blink[];
EXIT;
END;
];
sourceFile _ inputs.GetTokenRope[IO.IDProc
! IO.EndOfStream => {sourceFile _ NIL; CONTINUE}].token;
ENDLOOP;
END;

DecryptFiles: Buttons.ButtonProc =
BEGIN
handle: EncryptHandle = NARROW[clientData];
key: Rope.ROPE = GetKey[handle];
outputs: IO.STREAM = IO.RIS[ViewerTools.GetContents[handle.files]];
destFile: Rope.ROPE;
destFile _ outputs.GetTokenRope[IO.IDProc
! IO.EndOfStream => {destFile _ NIL; CONTINUE}].token;
IF Rope.Length[key]=0 THEN BEGIN
MessageWindow.Append["Please enter an encryption key", TRUE];
MessageWindow.Blink[];
END
ELSE
WHILE destFile#NIL DO
sourceFile: Rope.ROPE = Rope.Concat[destFile, ".des"];
Encrypt.DecryptFile[plain: destFile, cipher: sourceFile, key: key !
FS.Error =>
BEGIN
MessageWindow.Append[IO.PutFR["Trouble encrypting file ""%g"" because %g. Aborting encryption.", IO.rope[sourceFile], IO.rope[error.explanation]], TRUE];
MessageWindow.Blink[];
EXIT;
END;
Encrypt.BadEncryption =>
BEGIN
MessageWindow.Append[IO.PutFR["File ""%g"" isn't properly encrypted or you gave me the wrong key.", IO.rope[destFile]], TRUE];
MessageWindow.Blink[];
EXIT;
END;
];
destFile _ outputs.GetTokenRope[IO.IDProc
! IO.EndOfStream => {destFile _ NIL; CONTINUE}].token;
ENDLOOP;
END;


EncryptSelection: Buttons.ButtonProc =
BEGIN OPEN TiogaOps;

DoEncrypt: PROC [root: TiogaOps.Ref] =
BEGIN
[start: start, end: end, viewer: viewer] _ GetSelection[];
ProcessSelection[root, start.node, end.node, EncryptBranch, key, viewer];
END;

EncryptBranch: PROC [node: TiogaOps.Ref, key: Rope.ROPE] =
BEGIN
IF GetProp[node, $EncryptedChars]=NIL THEN
TRUSTED BEGIN
doNext: BOOL;
cipher: Rope.ROPE;
TiogaOps.SetSelection[viewer, [node, 0], [node, 0], point, TRUE, TRUE];
doNext _ Rope.Size[TiogaOps.GetRope[TiogaOps.GetCaret[].node]] # 0;
TiogaOps.Break[]; -- insert a fake root node in front of the branch
node _ TiogaOps.GetCaret[].node;
IF doNext THEN node _ TiogaOps.Next[node];
TiogaOps.SelectBranches[viewer, node, node, node, TRUE, TRUE]; -- select the branch
TiogaOps.Nest[]; -- nest it under the extra node
node _ TiogaOps.Parent[TiogaOps.GetCaret[].node]; -- get the extra node again
cipher _ Encrypt.EncryptRope[plain: PutGet.ToRope[LOOPHOLE[node]].output, key: key];
TiogaOps.SelectBranches[viewer, node, node, node, TRUE, TRUE];
TiogaOps.SetLooks["is", caret];
TiogaOps.InsertRope["...encrypted..."];
PutProp[n: TiogaOps.GetCaret[].node, name: $EncryptedChars, value: cipher];
END
ELSE
BEGIN OPEN MessageWindow;
Append["Node already encrypted", TRUE];
Blink[];
END;
END;

start, end: Location;
viewer: ViewerClasses.Viewer;
handle: EncryptHandle = NARROW[clientData];
key: Rope.ROPE = GetKey[handle];
IF Rope.Length[key]=0 THEN BEGIN
MessageWindow.Append["Please enter an encryption key", TRUE];
MessageWindow.Blink[];
END
ELSE DoTiogaOpsCallWithLocks[DoEncrypt
! TiogaOps.NoSelection => BEGIN
MessageWindow.Append["Please make a text selection", TRUE];
MessageWindow.Blink[];
CONTINUE;
END;
];
END;

DecryptSelection: Buttons.ButtonProc =
BEGIN OPEN TiogaOps;

Decrypt: PROC [root: TiogaOps.Ref] =
BEGIN
[start: start, end: end, viewer: viewer] _ GetSelection[];
ProcessSelection[root, start.node, end.node, DecryptBranch, key, viewer];
END;

DecryptBranch: PROC [node: TiogaOps.Ref, key: Rope.ROPE] =
BEGIN
chars: REF = GetProp[node, $EncryptedChars];
IF chars#NIL THEN
TRUSTED BEGIN
new: TiogaOps.Ref;
encryptedText: EncryptedText = NARROW[chars];
plain: Rope.ROPE = Encrypt.DecryptRope[cipher: encryptedText, key: key];
TiogaExtraOps.RemProp[node, $EncryptedChars];
TiogaOps.SelectNodes[viewer, node, node, node];
new _ LOOPHOLE[PutGet.FromRope[plain]];
TiogaOps.SaveSpanForPaste[[new, 0], TiogaOps.LastLocWithin[new], node];
TiogaOps.Paste[];
new _ TiogaOps.GetSelection[].start.node;
TiogaOps.SelectBranches[viewer, TiogaOps.FirstChild[new], TiogaOps.FirstChild[new], node, TRUE, TRUE];
TiogaOps.UnNest[];
TiogaOps.SelectNodes[viewer, new, new, node]; -- select the fake root node
TiogaOps.Delete[]; -- get rid of it
TiogaOps.SelectNodes[viewer, node, node, node]; -- select the "encrypted" node
TiogaOps.Delete[]; -- get rid of it
END
ELSE
BEGIN OPEN MessageWindow;
Append["Node already unencrypted", TRUE];
Blink[];
END;
END;

start, end: Location;
viewer: ViewerClasses.Viewer;
handle: EncryptHandle = NARROW[clientData];
key: Rope.ROPE = GetKey[handle];
IF Rope.Length[key]=0 THEN BEGIN
MessageWindow.Append["Please enter an encryption key", TRUE];
MessageWindow.Blink[];
RETURN;
END
ELSE DoTiogaOpsCallWithLocks[Decrypt
! TiogaOps.NoSelection => BEGIN
MessageWindow.Append["Please make a text selection", TRUE];
MessageWindow.Blink[];
CONTINUE;
END;
Encrypt.BadEncryption => BEGIN
MessageWindow.Append["It seems you gave me an incorrect key.", TRUE];
MessageWindow.Blink[];
CONTINUE;
END;
];
END;

DoTiogaOpsCallWithLocks: PROC [proc: PROC [root: TiogaOps.Ref], root: TiogaOps.Ref _ NIL] =
BEGIN
IF TiogaOps.SelectionRoot[]=NIL THEN ERROR TiogaOps.NoSelection;
TiogaOps.CallWithLocks[proc: proc, root: root];
END;

Level: PROC [node: TiogaOps.Ref] RETURNS [level: INTEGER] = BEGIN
level _ 0;
UNTIL (node _ TiogaOps.Parent[node])=NIL DO level _ level+1; ENDLOOP;
END;

ProcessSelection: PROC [
root: TiogaOps.Ref, start, end: TiogaOps.Ref,
proc: PROC [node: TiogaOps.Ref, key: Rope.ROPE], key: Rope.ROPE,
viewer: ViewerClasses.Viewer] =
BEGIN
node, next, selectAfter, selectUntil: TiogaOps.Ref;
readOnly: BOOL _ FALSE;
tdd: TEditDocument.TEditDocumentData _ NARROW[viewer.data];
startLevel, endLevel: INTEGER;
startLevel _ Level[start];
endLevel _ Level[end];
IF endLevel<startLevel THEN BEGIN
MessageWindow.Append["Please select a branch", TRUE];
MessageWindow.Blink[];
RETURN;
END;
THROUGH [startLevel..endLevel) DO
end _ TiogaOps.Parent[end];
ENDLOOP;
IF TiogaOps.Parent[start]#TiogaOps.Parent[end] THEN BEGIN
MessageWindow.Append["Please select a branch", TRUE];
MessageWindow.Blink[];
RETURN;
END;
IF tdd.readOnly THEN BEGIN
readOnly _ TRUE;
ViewerTools.EnableUserEdits[viewer];
END;
node _ start;
selectAfter _ TiogaOps.StepBackward[start];
selectUntil _ TiogaOps.Next[end];
DO
next _ TiogaOps.Next[node];
proc[node, key];
IF node=end THEN EXIT;
node _ next;
ENDLOOP;
IF readOnly THEN BEGIN
ViewerTools.InhibitUserEdits[viewer];
viewer.newVersion _ FALSE;
ViewerOps.PaintViewer[viewer, caption];
END;
start _ TiogaOps.StepForward[selectAfter];
end _ start;
UNTIL TiogaOps.Next[end]=selectUntil DO end _ TiogaOps.Next[end]; ENDLOOP;
TiogaOps.SelectBranches[viewer, start, end, node]; -- restore original selection
END;

NewEncryptTool: Commander.CommandProc =
BEGIN
encryptTool: EncryptHandle = NEW[EncryptToolRec];
encryptMenu: Menus.Menu = Menus.CreateMenu[];
keyPrompt, filePrompt: Buttons.Button;
Menus.AppendMenuEntry[
menu: encryptMenu,
entry: Menus.CreateEntry[
name: "EncryptSelection",	-- name of the command
proc: EncryptSelection,		-- proc associated with command
clientData: encryptTool
]
];
Menus.AppendMenuEntry[
menu: encryptMenu,
entry: Menus.CreateEntry[
name: "DecryptSelection",	-- name of the command
proc: DecryptSelection,		-- proc associated with command
clientData: encryptTool
]
];
Menus.AppendMenuEntry[
menu: encryptMenu,
entry: Menus.CreateEntry[
name: "EncryptFiles",		-- name of the command
proc: EncryptFiles,			-- proc associated with command
clientData: encryptTool
]
];
Menus.AppendMenuEntry[
menu: encryptMenu,
entry: Menus.CreateEntry[
name: "DecryptFiles",		-- name of the command
proc: DecryptFiles,			-- proc associated with command
clientData: encryptTool
]
];
encryptTool.outer _ Containers.Create[[-- construct the outer container
name: "Encryption Tool",	-- name displayed in the caption
iconic: TRUE,				-- so tool will be iconic (small) when first created
column: right,				-- initially in the right column
menu: encryptMenu,		-- displaying our menu command
scrollable: FALSE,			-- inhibit user from scrolling contents
openHeight: 73,
data: encryptTool ]];
keyPrompt _ Buttons.Create[
info: [
name: "Encryption key:",
wy: 0,
wh: 15,
parent: encryptTool.outer,
border: FALSE],
proc: SelectKey,
clientData: encryptTool];
encryptTool.keyViewer _ ViewerTools.MakeNewTextViewer[[
parent: encryptTool.outer,
wx: keyPrompt.wx+keyPrompt.ww+10,
wy: 1,	-- to align with button baseline
ww: 10,
wh: 15,
data: "",
scrollable: FALSE,
border: FALSE]];
filePrompt _ Buttons.Create[
info: [
name: "File names:",
wy: 16,
wh: 15,
parent: encryptTool.outer,
border: FALSE],
proc: SelectFiles,
clientData: encryptTool];
encryptTool.files _ ViewerTools.MakeNewTextViewer[[
parent: encryptTool.outer,
wx: filePrompt.wx+filePrompt.ww+10,
wy: 17,	-- to align with button baseline
ww: 10,
wh: 30,
data: "",
scrollable: TRUE,
border: FALSE]];

Containers.ChildXBound[encryptTool.outer, encryptTool.keyViewer];
Containers.ChildXBound[encryptTool.outer, encryptTool.files];
Containers.ChildYBound[encryptTool.outer, encryptTool.files];
END;

Commander.Register[key: "EncryptTool", proc: NewEncryptTool, doc: "A user interface for U. S. Federal Data Encryption Standard encryption/decryption."];

END.


 

ΨEncryptTool.mesa; User interface for DES encryption
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Edited by McCreight, June 2, 1983 10:44 am
Edited by: Mitchell, May 23, 1983 5:44 pm
Edited by: McGregor, June 2, 1983 3:42 pm
Edited by: McCreight, February 9, 1984 9:18 am
Swinehart, July 5, 1985 2:19:39 pm PDT
point selection at start of branch to be encrypted
select the whole thing pending delete
Circumvents bug in Cedar 5.0, to be fixed in 5.1.
Κ¨˜š
œ3™3Icodešœ
Οm
œ1™<Jš
œ*™*Jš
œ)™)Jš
œ)™)Jš
œ.™.K™&—J˜š
Οk	˜	J˜J˜Jš
œ
˜
Jš
œ˜Jšžœ
˜Jšžœ
˜J˜J˜J˜J˜J˜J˜J˜	J˜J˜
J˜J˜—šœ
žœ
ž˜š
ž˜Jšœ)žœžœW˜†
—Jš
ž˜J˜Jšœžœžœ˜)šœžœžœ˜Jšœžœ
˜"Jšœ
žœžœ
˜Jšœ"žœ
˜&Jšœž˜!J˜—Jšœžœžœ
˜ J˜š
œ˜Jš
ž˜Jšœžœ
˜+J˜6J˜+JšœžœΟc&˜JJšžœ
˜J˜—š
œ!˜!Jš
ž˜Jšœžœ
˜+Jš
œ'˜'Jšžœ
˜J˜—šΟnœžœžœžœ˜:Jš
ž˜šžœž˜#Jš
ž˜Jš
œ7˜7J˜3Jšœžœ
˜$Jšžœ
˜—Jšžœ
˜Jšžœ
˜—J˜š
œ"˜"Jš
ž˜Jšœžœ
˜+Jšœ
žœ˜ Jš	œžœ
žœžœ
žœ(˜BJšœžœ
˜šœ!žœ˜*Jšœžœžœžœ	˜8—šžœžœ
ž˜ Jšœ7žœ˜=J˜Jš
ž˜—š
ž˜šžœžœ
ž˜Jšœžœ#˜6˜Cšžœ	˜Jš
ž˜Jš	œžœJžœžœžœ˜™
J˜Jšžœ
˜Jšžœ
˜J˜——šœ!žœ˜*Jšœžœžœžœ	˜8—Jšžœ
˜——Jšžœ
˜J˜—š
œ"˜"Jš
ž˜Jšœžœ
˜+Jšœ
žœ˜ Jš	œ	žœ
žœžœ
žœ(˜CJšœžœ
˜šœ žœ˜)Jšœžœžœžœ	˜6—šžœžœ
ž˜ Jšœ7žœ˜=J˜Jš
ž˜—š
ž˜šžœ
žœ
ž˜Jšœžœ!˜6˜Cšžœ	˜Jš
ž˜Jš	œžœJžœžœžœ˜™
J˜Jšžœ
˜Jšžœ
˜—˜Jš
ž˜JšœžœMžœžœ˜~J˜Jšžœ
˜Jšžœ
˜—J˜—šœ žœ˜)Jšœžœžœžœ	˜6—Jšžœ
˜——Jšžœ
˜J˜—J˜š
œ&˜&Jšžœ
žœ
˜J˜š 	œžœ˜&Jš
ž˜Jš
œ:˜:Jš
œI˜IJšžœ
˜J˜—š 
œžœ žœ˜:Jš
ž˜šžœ žœ
ž˜*Jšžœ
ž˜
Jšœžœ
˜
Jšœ
žœ
˜šœ;žœžœ˜GJš
œ2™2—Jš
œC˜CJšœŸ1˜CJš
œ ˜ Jšžœžœ˜*Jšœ2žœžœŸ˜SJšœŸ˜0Jšœ2Ÿ˜MJšœ2žœ˜Tšœ2žœžœ˜>Jš
œ%™%—Jš
œ˜JšœΠisœ˜'J˜KJš
ž˜—š
ž˜Jšžœ
žœ˜Jšœ!žœ˜'J˜Jšžœ
˜—Jšžœ
˜J˜—J˜Jš
œ˜Jšœžœ
˜+Jšœ
žœ˜ šžœžœ
ž˜ Jšœ7žœ˜=J˜Jš
ž˜—šžœ"˜&šœž˜Jšœ5žœ˜;J˜Jšžœ
˜	Jšžœ
˜—Jš
œ˜—Jšžœ
˜J˜—š
œ&˜&Jšžœ
žœ
˜J˜š œžœ˜$Jš
ž˜Jš
œ:˜:Jš
œI˜IJšžœ
˜J˜—š 
œžœ žœ˜:Jš
ž˜Jšœžœ"˜,šžœžœ
ž˜Jšžœ
ž˜
J˜Jšœžœ˜-Jšœžœ8˜HJ˜-Jš
œ/˜/Jšœžœ˜'Jš
œG˜GJš
œ˜J˜)JšœZžœžœ˜fJš
œ˜Jšœ.Ÿ˜JJšœŸ˜#Jšœ0Ÿ˜NJšœŸ˜#Jš
ž˜—š
ž˜Jšžœ
žœ˜Jšœ#žœ˜)J˜Jšžœ
˜—Jšžœ
˜J˜—J˜Jš
œ˜Jšœžœ
˜+Jšœ
žœ˜ šžœžœ
ž˜ Jšœ7žœ˜=J˜Jšžœ
˜Jš
ž˜—šžœ ˜$šœž˜Jšœ5žœ˜;J˜Jšžœ
˜	Jšžœ
˜—šœž˜Jšœ?žœ˜EJ˜Jšžœ
˜	Jšžœ
˜—Jš
œ˜—Jšžœ
˜J˜—š œžœžœ,žœ˜[Jš
ž˜šžœžœ
žœ
žœ˜@Jš
œ1™1—Jš
œ/˜/Jšžœ
˜J˜—š	 œžœžœ	žœž˜AJš
œ
˜
Jšžœ žœ
žœžœ
˜EJšžœ
˜—J˜š œžœ˜š
œ-˜-Jšœžœ žœ
žœ
˜@Jš
œ˜—Jš
ž˜Jš
œ3˜3Jšœ
žœžœ
˜Jšœ'žœ˜;Jšœžœ
˜Jš
œ˜Jš
œ˜šžœžœ
ž˜!Jšœ/žœ˜5J˜Jšžœ
˜Jšžœ
˜—šžœž˜!Jš
œ˜Jšžœ
˜—šžœ-žœ
ž˜9Jšœ/žœ˜5J˜Jšžœ
˜Jšžœ
˜—šžœžœ
ž˜Jšœžœ
˜Jš
œ$˜$Jšžœ
˜—Jš
œ
˜
Jš
œ+˜+Jš
œ!˜!š
ž˜Jš
œ˜Jš
œ˜Jšžœ
žœ
žœ
˜Jš
œ˜Jšžœ
˜—šžœ
žœ
ž˜Jš
œ%˜%Jšœžœ
˜Jš
œ'˜'Jšžœ
˜—Jš
œ*˜*Jš
œ˜Jšžœ žœžœ
˜JJšœ3Ÿ˜PJšžœ
˜J˜—š
œ'˜'Jš
ž˜Jšœžœ˜1J˜-J˜&˜J˜˜JšœŸ˜0JšœŸ˜8J˜J˜
—J˜—˜J˜˜JšœŸ˜0JšœŸ˜8J˜J˜
—J˜—˜J˜˜JšœŸ˜-JšœŸ˜5J˜J˜
—J˜—˜J˜˜JšœŸ˜-JšœŸ˜5J˜J˜
—J˜—šœ'Ÿ ˜GJšœŸ ˜9JšœžœŸ4˜EJšœŸ ˜2JšœŸ˜2JšœžœŸ'˜<J˜J˜—˜˜J˜J˜J˜J˜Jšœžœ˜—J˜J˜—˜7J˜J˜!JšœŸ ˜'J˜J˜J˜	Jšœžœ
˜Jšœžœ˜—˜˜J˜J˜J˜J˜Jšœžœ˜—J˜J˜—˜3J˜J˜#JšœŸ ˜(J˜J˜J˜	Jšœžœ
˜Jšœžœ˜—J˜J˜AJ˜=J˜=Jšžœ
˜J˜—J˜˜
J˜Jšžœ
˜—J˜J˜J˜
—…—+
9Š