1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
\parindent0pt
%%····································································%
\input {enigma}
%%····································································%
%% The first machine will be used for encryption of our plain text.
\defineenigma {encryption}
\setupenigma {encryption} {
other_chars = yes,
day_key = B V III II 12 03 01 GI JV KZ WM PU QY AD CN ET FL,
rotor_setting = ben,
spacing = yes,
verbose = 1,
}
%%····································································%
%% This second machine below will be used to decrypt the string.
\defineenigma{decryption}
\setupenigma{decryption}{
other_chars = yes,
day_key = B V III II 12 03 01 GI JV KZ WM PU QY AD CN ET FL,
rotor_setting = ben,
}
%%····································································%
%% main
%%····································································%
%% Ciphertext in the PDF. Rely on the addressee to decrypt the document
%% externally.
%%····································································%
%% encryption of plain text
%%····································································%
\startencryption
Never underestimate the amount of money, time, and effort someone
will expend to thwart a security system.
\stopencryption
%%····································································%
%% decryption of ciphertext
%%····································································%
%% Input string generated with:
%% mtxrun --script t-enigma \
%% --setup="day_key=B V III II 12 03 01 GI JV KZ WM PU QY AD CN ET FL,\
%% rotor_setting=ben,\
%% other_chars=yes"\
%% --text="Never underestimate the amount of money,\
%% time, and effort someone will expend to\
%% thwart a security system."
\startdecryption
aqsnwyxgqarpuzrdktscbslaqmdhyonywxkwhcdgphvuqsspfjwhlszahygjbzmfpcpbniahvfcuradntepxsfchnn
\stopdecryption
%%·····································································%
\bye
|
