Zitat:
Gehstock: StringReplace ist eine Funktion, keine Prozedur.
Ups ja übersehen
den CRC Algo hab ich gefunden
Delphi-Quellcode:
WORD crc_16_l_step(WORD crc, byte data)
{
return crc16_table[(crc ^ data) & 0xff] ^ ((crc >> 8) & 0xFF);
}
DWORD CComDlg::CalcCRC16(byte* buf_ptr, DWORD len, BOOL value)
{
WORD eax = CRC_16_SEED;
DWORD i=0;
if (value==true) i=1;
for (i = i; i < len; i++) eax = crc_16_l_step(eax, buf_ptr[i]);
eax = eax ^ CRC_16_SEED;
return eax;
}
kann mir das jemand übersetzen