sub modifyKeys(){
	
	my $self = shift;
	my S_KEY = "";
	my $i;
    
    for (my $x = 0; x < length $self->{R_KEY}; $x++) {
    
        $i = ord(substr($self->{R_KEY}, $x, 1)) - 32
        
        S_KEY = S_KEY + chr(($i ^ $self->{RSORT}[$i] ^ $self->{ATT}) + 32)
    } 

	
	return S_KEY;

}