diff options
| author | dakkar <dakkar@thenautilus.net> | 2011-08-29 18:15:22 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2011-08-29 18:23:00 +0100 |
| commit | 6a0022d67d4baea240897c7e3b24d2b864f06c60 (patch) | |
| tree | 08cbb8b6630904e254f820de0c3c89546bba7369 /lib/Enigmatic/Role/Rotate.pm | |
| parent | crypto train, with some stepping (diff) | |
| download | Enigmatic-6a0022d67d4baea240897c7e3b24d2b864f06c60.tar.gz Enigmatic-6a0022d67d4baea240897c7e3b24d2b864f06c60.tar.bz2 Enigmatic-6a0022d67d4baea240897c7e3b24d2b864f06c60.zip | |
more stepping tests
Diffstat (limited to 'lib/Enigmatic/Role/Rotate.pm')
| -rw-r--r-- | lib/Enigmatic/Role/Rotate.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Enigmatic/Role/Rotate.pm b/lib/Enigmatic/Role/Rotate.pm new file mode 100644 index 0000000..89fb761 --- /dev/null +++ b/lib/Enigmatic/Role/Rotate.pm @@ -0,0 +1,9 @@ +package Enigmatic::Role::Rotate; +use DAKKAR::p 'role'; + +sub _rotate_by { + my ($letter,$position) = @_; + + return chr(ord('A')+ + (ord($letter)-ord('A')+26+$position)%26); +} |