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

Подскажите еще:

Как корректно перевести:
...
unsigned long lr[3];
signed long i;
lr[1]=0;
lr[2]=0;
permut(((unsigned char*)(&(lr[1]))),input,ip);
...
где
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++;
}
}

1. Больше всего интересует преобразование (((unsigned char*)(&(lr[1]))).
Как первый параметр функции permut так превратился ....
2. И непонятно table++

КАК это всё написать (перевести) на DELPHI ???
Ответить с цитированием