Форум: "Потрепаться";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Вниз

Кто знает C(си), помогите плз. перевести   Найти похожие ветки 

← →
TRyaSS ©   (2004-11-09 15:47) [0]

такой фрагмент кода

unsigned Hash(char Byte, char nbit, unsigned CRC)
{
for (int i = 0; i < nbit; i++, Byte <<= 1)
 {
   if (  ( Byte ^ (CRC>>8) ) & 0x80  )
     {
   CRC <<= 1;  CRC ^= 0x8F57;
     }
   else  CRC <<= 1;
 }
return CRC;
}

Заранее благодарен.

---

← →
Reindeer Moss Eater ©   (2004-11-09 16:18) [1]

c2pas.exe

Останется немного подправить заголовок цикла.

---

← →
wicked ©   (2004-11-09 16:21) [2]

дословно вроде так:
function Hash(_byte, nbit: byte; crc: cardinal): cardinal;
var i: integer;
begin
   for i := 0 to nbit - 1 do begin
       if ((_byte xor (crc shr 8)) and $80) <> 0 then
           crc := (crc shl 1) and $8F57;
       else
           crc := crc shl 1;
       _byte := _byte shl 1;
   end;
   Result := crc;
end;

---

← →
wicked ©   (2004-11-09 16:29) [3]

упс....
вместо
> crc := (crc shl 1) and $8F57;

читать
> crc := (crc shl 1) xor $8F57;

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2004.11.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.053 c