Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > циклический сдвиг битов, обратить алгоритм

Автор: litecoiner 27.2.2014, 01:28

Приветствую. Есть следующая функция.

Код


Procedure Rotate(rezbuff:pchar; var offset:dword; value:Dword; len:byte);
//rezbuff - *(буфер) для записи, offset - офсет для записи текущих данных, далее данные, len - их длина
var
s: byte;
begin
  if len=0 then exit;
  inc(rezbuff, offset shr 3);
  s := offset and $7;
  inc(offset, len);
  if s=0 then pdword(rezbuff)^ := value else begin
    pdword(rezbuff)^:=(pdword(rezbuff)^ and ($FFFFFFFF shr (32-s))) or (value shl s);
    pdword(@rezbuff[4])^:=value shr(32-s);
  end;
end;

Пример вызова

Код


    a1 := 1;
    a2 := 0;
    a3 := 63;
    a4 := 3;
    a5 := 7;
    a6 := 1;
    Rotate(data, offset, a1, 5); 
    Rotate(data, offset, a2, 5); 
    Rotate(data, offset, a3, 6);
    Rotate(data, offset, a4, 2);
    Rotate(data, offset, a5, 3);
    Rotate(data, offset, a6, 1);

Результат

дамп буфера в памяти
0015C19A 01 FC 3F 00 00

Какие именно биты сдвигаются в данных, подающихся на вход функции, и как может выглядеть функция, обратная данной?
То есть, как мне преобразовать 01 FC 3F 00 00 обратно в 1063371 ?