Revision to the method that defines the modified key ...

[Steeeeeve]

This node falls below the community's threshold of quality. You may see it by logging in.

[MeowChow]

At present the world is working on it, largely because of the most disturbing way it has been implemented.

Right on! Up with disturbing implementations! That'll teach those NSA goons...

sub modifyKeys(){
    # snip #
    For $x = 1 To length($self->{R_KEY})
        $i = ord(substr($self->{R_KEY}, $x, 1)) - 32
        S_KEY = S_KEY + ord(($i ^ $self->{RSORT}[$i] ^ $self->{ATT}) +
+ 32)
    Next x

Where can I get your version of perl?

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print