перенос с паскаля на си

[Ядовитый]

Есть функция на паскале:
function code(data: string): string;
var
i: Word;
LastByte: Byte;
begin
//...
// надо собрать старшие биты
LastByte:= LastByte or (($80 and ord(data[i])) shr ByteCnt);
//...
end;

её необходимо перевести на си:
...
unsigned int byte_cnt = 0; /* 2 байта */
unsigned char last_byte = 0, unsigned char data_buf;
...
/* в data_buf в цикле вносим элемент строки под номером i, равном в общем случае byte_cnt*/
last_byte |= ( (data_buf & 0x80) >> byte_cnt );

Но тут что-то неправильно, не работает, если сможете помочь, буду премного благодарен...

[Wirone]

Напиши только код функции и её желательно подробненькое описание, тогда возможно помогу(-жем)...

[Ядовитый]

Вопрос закрыт