diff options
Diffstat (limited to 'lib/Enigmatic/RotorBox.pm')
-rw-r--r-- | lib/Enigmatic/RotorBox.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/Enigmatic/RotorBox.pm b/lib/Enigmatic/RotorBox.pm index 08a6b22..57f0a47 100644 --- a/lib/Enigmatic/RotorBox.pm +++ b/lib/Enigmatic/RotorBox.pm @@ -17,16 +17,16 @@ has rotorset => ( sub _build_rotorset { my %rotors = ( - I => 'EKMFLGDQVZNTOWYHXUSPAIBRCJ', - II => 'AJDKSIRUXBLHWTMCQGZNPYFVOE', - III => 'BDFHJLCPRTXVZNYEIWGAKMUSQO', - IV => 'ESOVPZJAYQUIRHXLNFTGKDCMWB', - V => 'VZBRGITYUPSDNHLXAWMJQOFECK', - VI => 'JPGVOUMFYQBENHZRDKASXLICTW', - VII => 'NZJHGRCXMYSWBOUFAIVLPEKQDT', - VIII => 'FKQHTLXOCBJSPDZRAMEWNIUYGV', - Beta => 'LEYJVCNIXWPBQMDRTAKZGFUHOS', - Gamma => 'FSOKANUERHMBTIYCWLQPZXVGJD', + I => { wiring => 'EKMFLGDQVZNTOWYHXUSPAIBRCJ', notches => ['Q'] }, + II => { wiring => 'AJDKSIRUXBLHWTMCQGZNPYFVOE', notches => ['E'] }, + III => { wiring => 'BDFHJLCPRTXVZNYEIWGAKMUSQO', notches => ['V'] }, + IV => { wiring => 'ESOVPZJAYQUIRHXLNFTGKDCMWB', notches => ['J'] }, + V => { wiring => 'VZBRGITYUPSDNHLXAWMJQOFECK', notches => ['Z'] }, + VI => { wiring => 'JPGVOUMFYQBENHZRDKASXLICTW', notches => ['M','Z'] }, + VII => { wiring => 'NZJHGRCXMYSWBOUFAIVLPEKQDT', notches => ['M','Z'] }, + VIII => { wiring => 'FKQHTLXOCBJSPDZRAMEWNIUYGV', notches => ['M','Z'] }, + Beta => { wiring => 'LEYJVCNIXWPBQMDRTAKZGFUHOS', notches => [] }, + Gamma => { wiring => 'FSOKANUERHMBTIYCWLQPZXVGJD', notches => [''] }, ); $_ = Enigmatic::Rotor->new($_) for values %rotors; |