sub ENCRYPT_DECRYPT() {
	my $Str_Message=$_[0];
	my  $Len_Str_Message=length($Str_Message);

	my  $Str_Encrypted_Message="";
	for (my $Position = 0;$Position<$Len_Str_Message;$Position++){
		my  $Key_To_Use = (($Len_Str_Message+$Position)+1);
		$Key_To_Use =(255+$Key_To_Use) % 255;
		my  $Byte_To_Be_Encrypted = substr($Str_Message, $Position, 1);
		my  $Ascii_Num_Byte_To_Encrypt = ord($Byte_To_Be_Encrypted);
		print "$Ascii_Num_Byte_To_Encrypt\n";
		my  $Xored_Byte = $Ascii_Num_Byte_To_Encrypt ^ $Key_To_Use;
		my  $Encrypted_Byte = chr($Xored_Byte);
		$Str_Encrypted_Message .= $Encrypted_Byte;
	}
	return $Str_Encrypted_Message;
}

my $var=&ENCRYPT_DECRYPT($exp->exp_before());