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

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
[download]

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