sub Make_shiftedKey($){
	
	my $self = shift;

        my $shift = shift;

	if (($shift % 2) == 1){$self->{S_KEY} = (substr($self->{S_KEY},1,(length $self->{S_KEY})));}
	
	else {$self->{S_KEY} = (substr($self->{S_KEY},0,(length $self->{S_KEY}) - 1));}
	
	for (my $i=0; $i <= ($shift - 1) % length $self->{S_KEY}; $i++){             
        	
        	my $key = substr($self->{S_KEY},0,1);
        	
        	$self->{S_KEY} = (substr($self->{S_KEY},1,(length $self->{S_KEY}) - 1));
        	
        	$self->{S_KEY} .= $key;
        }
        
        return $self->{S_KEY};
}