blob: 87ce9b1f4a581aac0237070b86fd1f65a949b435 (
plain)
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
|
\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,
}
%%·····································································%
%% 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
|