[Blade_Is_One]

Hola a todos, hace mucho que no volvia a estos foros ,
ahora que estoy en un nuevo proyecto necesito de su ayuda , alguien que me pueda ayudar a traspasar este fuente que esta en C# a delphi (uso delphi7) se los agradeceria mucho...

Código PHP:

public static class VoiceCode
{
    public static string Compute(string GTIN, string lot, DateTime? packDate)
    {
        ushort crc = Crc16.ComputeChecksum(Encoding.ASCII.GetBytes(string.Format("{0}{1}{2}", GTIN, lot, packDate.HasValue ? packDate.Value.ToString("yyMMdd") :
        string.Empty))); return string.Format("{0:0000}", crc % 10000);
    }
}


public static class Crc16 { #region static members
    private const ushort polynomial = 0xA001; private static ushort[] table = new ushort[256]; static Crc16()
    {
        ushort value; ushort temp;
        for (ushort i = 0; i < table.Length; ++i) {
            value = 0;
            temp = i; for (byte j = 0; j < 8; ++j) {
            if (0 != ((value ^ temp) & 0x0001)) {
                value = (ushort)((value >> 1) ^ polynomial);
            }     else {
                          value >>= 1; } temp >>= 1;
                       }
            table[i] = value;
        }
    } #endregion

    public static ushort ComputeChecksum(byte[] bytes) { ushort crc = 0;
         for (int i = 0; i < bytes.Length; ++i) {
             byte index = (byte)(crc ^ bytes[i]);
             crc = (ushort)((crc >> 8) ^ table[index]);
         } return crc;
    }
}