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

EncryptTool: CEDAR PROGRAM
IMPORTS
Buttons, Commander, Containers, Encrypt, FS, IO, Menus, MessageWindow, PutGet, Rope, TiogaExtraOps, TiogaOps, VFonts, 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.


 

tEncryptTool.mesa; User interface for DES encryption

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
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.
Κ™˜Jš
œ3™3J™Jš
œ*™*Jš
œ)™)Jš
œ)™)Jš
œ.™.J˜š
Οk	˜	J˜J˜Jš
œ
˜
Jš
œ˜Jšœ
˜Jšœ
˜J˜J˜J˜J˜J˜J˜J˜	J˜J˜J˜
J˜J˜šœ
œ
˜š
˜Jšœ)œœ_˜Ž
—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'