Ayuda sobre codigo en Perl

[xknown]

Aquí lo hice como prueba de concepto, pruébalo, haber si lo logré o no :p

Código:

using System;

public class Bar
{
	public static void Main(string[] args)
	{
		string password = Console.ReadLine();
		Console.WriteLine(encrypt(password.Trim()));
	}
	public static string encrypt(string password)
	{
		string result="";
		foreach (char c in password.ToCharArray())
			result += encode(c);
		return result;
	}
	public static string encode(char mychar)
	{
		int result = (int) mychar;
		result = (~result) & 255;			
		result = (result & 15)<<4 | (result & 240)>>4;			
		return string.Format("{0:x}", result);
	}
}

Saludos
PS. Esa codificación es muy simple, creo deberías usar algo más seguro