From 2b28ab91084f37a5e9014737d0df694587fe60cf Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 29 Aug 2011 19:16:26 +0100
Subject: fixed rotor ring settings

and removed debug prints
---
 lib/Enigmatic/CryptTrain.pm | 30 +++++++++++-------------------
 1 file changed, 11 insertions(+), 19 deletions(-)

(limited to 'lib/Enigmatic/CryptTrain.pm')

diff --git a/lib/Enigmatic/CryptTrain.pm b/lib/Enigmatic/CryptTrain.pm
index 4d4b6c6..97332f4 100644
--- a/lib/Enigmatic/CryptTrain.pm
+++ b/lib/Enigmatic/CryptTrain.pm
@@ -56,13 +56,9 @@ around BUILDARGS => sub {
 
     if ($args->{positions}) {
 
-        warn "pos: @{$args->{positions}}\n";
-
         for my $pos (@{$args->{positions}}) {
             $pos = to_RotorPos($pos);
         }
-
-        warn "pos: @{$args->{positions}}\n";
     }
 
     return $args;
@@ -83,32 +79,28 @@ sub map {
 
     my $max_idx = $self->rotor_count -1;
 
-    my $log='';
-
     $self->step_positions();
 
     for my $idx (0..$max_idx) {
-        my $rotor = $self->rotor_at($idx);$log.="($idx:";
-        my $position = $self->position_at($idx);$log.="$position)";
+        my $rotor = $self->rotor_at($idx);
+        my $position = $self->position_at($idx);
 
-        $letter = _rotate_by($letter,$position);$log.=$letter;
-        $letter = $rotor->map($letter);$log.=$letter;
-        $letter = _rotate_by($letter,-$position);$log.=$letter;
+        $letter = _rotate_by($letter,$position);
+        $letter = $rotor->map($letter);
+        $letter = _rotate_by($letter,-$position);
     }
 
-    $letter = $self->reflector->map($letter);$log.="r${letter}r";
+    $letter = $self->reflector->map($letter);
 
     for my $idx (reverse 0..$max_idx) {
-        my $rotor = $self->rotor_at($idx);$log.="($idx:";
-        my $position = $self->position_at($idx);$log.="$position)";
+        my $rotor = $self->rotor_at($idx);
+        my $position = $self->position_at($idx);
 
-        $letter = _rotate_by($letter,$position);$log.=$letter;
-        $letter = $rotor->inverse_map($letter);$log.=$letter;
-        $letter = _rotate_by($letter,-$position);$log.=$letter;
+        $letter = _rotate_by($letter,$position);
+        $letter = $rotor->inverse_map($letter);
+        $letter = _rotate_by($letter,-$position);
     }
 
-    warn "$log\n";
-
     return $letter;
 }
 
-- 
cgit v1.2.3