[ComAlex]

Господа ,помогите перевести следущее, написанное на C

Код:

i=data[0];
		i=(i<<8)+data[1];
		i=(i<<8)+data[2];
		i=(i<<8)+data[3];
		if(i==0)return;
		if(dsize<(i+4))return;
		i=decrypt_with_vector(ethkey,ethvector,(LPBYTE)data+4,(LPBYTE)datai,i,0);

[lmikle]

ну, i << 8 это i shl 8
При этом i видимо типа long (Integer) - 4 байта.
data - что-то типа array of byte
Не знаю, что такое decrypt_with_vector - с этим сам разбирайся, а остальное выглядит как-то так:

Код:

var
  I : Integer;
begin
  I := data[0];
  I := (I shl 8) + data[1];
  I := (I shl 8) + data[2];
  I := (I shl 8) + data[3];
  If (I = 0) Or (I+4 < dsize) then exit;

  // что такое decrypt_with_vector???
  I := decrypt_with_vector(...);

[ComAlex]

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

Как корректно перевести:
...
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 ???

[Bargest]

Код:

unsigned char*)(&(lr[1])))

Подмассив массива lr, начиная с 1 элемента (сами массивы начинаются с нулевого), приведенный к unsigned char*. Поскольку сам lr - массив long, то это будут просто байты 1 и 2 элементов, записанные как один массив. Long - 4 байта, значит это будет просто массив из 8 байт.

table++ - переход к следующему элементу массива table.

З.Ы. Совершенно непонятно, зачем делать массив lr из 3 элементов и потом игнорировать один из них (нулевой).