EnigmulatoR
: R package that emulates the Enigma M3 cipher machine
used in WWII.
devtools::install_github("pjhop/EnigmulatoR")
Launch the EnigmulatoR shiny app:
library(EnigmulatoR)
EnigmulatoR()
The Enigma can also be used in the console, for example:
library(EnigmulatoR)
enigma <- Enigma(rotors = c("II", "I", "III"),
start_positions = c("D", "E", "F"),
ring_settings = c("F", "A", "R"),
reflector = "B",
plugboard = c(
A = "D",
C = "Y",
F = "Q",
G = "R",
I = "L",
W = "M",
Z = "U"
)
)
encrypt(enigma, "helloworld")
## [1] "IWRWGARGKX"
Some sources I used to understand how the machine works: - https://www.cryptomuseum.com/crypto/enigma/working.htm - https://en.wikipedia.org/wiki/Enigma_rotor_details - http://users.telenet.be/d.rijmenants/en/enigmatech.htm
Interesting book on Turing and others who cracked the code: "Turing - Jack Copeland" (https://global.oup.com/academic/product/turing-9780198719182?cc=nl&lang=en&)
The hexsticker was created using the hexSticker
package
(https://github.com/GuangchuangYu/hexSticker), image:
https://cdn.comparitech.com/wp-content/uploads/2017/02/enigma-crypto-machine.jpg
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.