Показать сообщение отдельно
  #1  
Старый 18.07.2012, 15:07
Аватар для movnet
movnet movnet вне форума
Начинающий
 
Регистрация: 24.07.2008
Сообщения: 127
Версия Delphi: Delphi 7
Репутация: 23
Восклицание Помогите пожалуйста перевести код с С на Delphi

Код:
void Decode_Code_DynamicData(unsigned char Divider, unsigned char LCounter, unsigned char HCounter, unsigned char SNumber,int Length, unsigned char* Data)
{
  int k;
  int i;
  int j = LCounter+SNumber+5;
  j=j%0x10000;
  for (i=10;i<Length;i++)
    {
     k = j / Divider;
     k=k%256;
     Data[i]^=Polynom[k];
     j+=(HCounter+SNumber+5);
	 j=j%0x10000;
    }
}
Ответить с цитированием