Показать сообщение отдельно
  #1  
Старый 18.06.2017, 15:53
ComAlex ComAlex вне форума
Прохожий
 
Регистрация: 18.06.2017
Сообщения: 22
Версия Delphi: Delphi XE, C++
Репутация: 10
По умолчанию Перевод C-функций на Delphi

Уважаемые программисты, помогите корректно перевести четыре маленьких C-функции под Delphi:
Код:
1. unsigned char bittest(const unsigned char * pdata,unsigned long bitnumber)
{
	bitnumber--;
	return (pdata[bitnumber>>3]>>(7-(bitnumber&7)))&1;
}

2. void bitset(unsigned char *pbuf, unsigned long bitnumber)
{
	bitnumber--;
	pbuf[bitnumber>>3]|=(0x80>>(bitnumber&7));
}

3.  void permut(unsigned char * out,const unsigned char * in, const unsigned char * table)
{
	unsigned long i;
	for(i=1;*table;i++)
	{
		if(bittest(in,*table))
			bitset(out,i);
		table++;
	}
}


4.  void xoring(unsigned char * dest, unsigned char * source, unsigned long size)
{
	while(size)
	{
		dest[0]^=source[0];
		dest++;
		source++;
		size--;
	}
}
Админ: Пользуемся тегами при оформлении кода!

или некоторые из них!
Очень нужны для работы, а у меня не получается ...
Ответить с цитированием