
18.07.2012, 15:07
|
 |
Начинающий
|
|
Регистрация: 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;
}
}
|