| Blade_Is_One |
20-12-2012 15:59:51 |
Convertir este código fuente the CSharp a Delphi
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;
}
}
|
