my $password = "foobar+";
my $salt = 11;
my $newpass = "";

sub encrypt {
	my $password = shift;
	my @letters = split '', $password;
	foreach my $letter (@letters) {
		my $value = ord($letter) + $salt;
		while ($value > 255) {
			$value -= 255;
		}
		$newpass .= chr($value);
	}
}

sub decrypt {
	my $password = shift;
	my @letters = split '', $password;
	foreach my $letter (@letters) {
		my $value = ord($letter) - $salt;
		        while ($value < 0) {
         		       $value += 255; 
	        }
        $newpass .= chr($value);
	}
}