Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > C/C++ > C/C++
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #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--;
	}
}
Админ: Пользуемся тегами при оформлении кода!

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

Последний раз редактировалось Admin, 18.06.2017 в 17:40.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:12.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter