Enigma机器实现中的问题

Question

我很难在VBA中实现Enigma机器。我的问题是执行转子和他们的行动。

更准确地说，我将在下面展示我为转子的移动编写我的Enigma机器代码的方式：

例子：

• 转子:一、二、三
• 初值A A A
• 环形转子(安装转子)：11-1

我所做的：

初始化：

• 转子Ⅲ型BDF ....GAK....QO

成为

• AK.QOBDF.G

同样的转子I和II。我的基础是转子AAA的初始值。

在代码末尾的每一步，我向右移动1使转子III AK.G变成GAK .

因此，总结一下我的代码：

• 转子的初始化(基于初始值)
• 穿过转子/反光镜和反向
• 按我的字母向右移动1转子。

我的错误在哪里？你能给我举个全过程的例子吗？

Answer 1

不知道你有没有想清楚。没有插头板的工艺流程更像；

1. 按键盘上的键。
2. 右转子移动一步。2a)如果右旋翼槽在游动时，旋转中间转子2b)如果中间转子凹槽在拖曳时，旋转左转子2c)信号从键盘移动到转子右侧。
3. 信号从转子右移到转子中间。
4. 信号从转子中间移动到转子左边。
5. 信号从转子左移到反射器。
6. 信号从反射器向左移动。
7. 信号从转子左移到转子中间。
8. 信号从转子中间向右移动。
9. 信号从转子右移到灯板。

转子的运动发生在按键的按压下，在流动的开始。然后信号通过转子，然后又回来。

转子输入侧=ABCDEFG.Z转子输出侧=JGFTXSW.i

当按下一个键(比方说A)时，右转子从A移动到B。信号A在B处进入转子，在G处退出。

希望这能有所帮助。