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