[ComAlex]

Уважаемые программисты, помогите корректно перевести четыре маленьких 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--;
	}
}

Админ: Пользуемся тегами при оформлении кода!

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