циклический сдвиг битов, помогите обратить алгоритм

[litecoiner]

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

Procedure Rotate(rezbuffchar; var offsetword; 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 ?

[Человек_Борща]

Что вы думаете об использовании shl, shr просто-так, или я не так понял задачу...?

var
 x:WORD;
begin
 x := x shr 8; //Сдвиг x на 8 бит влево
 x := x shl 8; //Сдвиг x на 8 бит вправо
end;

[litecoiner]

Сообщение от Человек_Борща

Что вы думаете об использовании shl, shr просто-так, или я не так понял задачу...?

var
 x:WORD;
begin
 x := x shr 8; //Сдвиг x на 8 бит влево
 x := x shl 8; //Сдвиг x на 8 бит вправо
end;

я не могу увидеть всю картину, что делает "моя" функция Procedure Rotate (вероятно, конвертит байты со входа в биты)

и как по результату ее работу возвратить входные параметры, например
из 0x01 0xFC 0x3F 0x00 0x00 -> 1063371