Delphi 各种汇编位移

function ror(const Value: DWORD; ShiftValue: Byte): DWORD; overload;

begin

Result := (Value shl (8 * SizeOf(Value) – ShiftValue)) or

(Value Shr ShiftValue);

end;

function ror(const Value: WORD; ShiftValue: Byte): DWORD; overload;

begin

Result := (Value shl (8 * SizeOf(Value) – ShiftValue)) or

(Value Shr ShiftValue);

end;

function ror(const Value: Byte; ShiftValue: Byte): DWORD; overload;

begin

Result := (Value shl (8 * SizeOf(Value) – ShiftValue)) or

(Value Shr ShiftValue);

end;

function rol(const Value: DWORD; ShiftValue: Byte): DWORD; overload;

begin

Result := (Value shr (8 * SizeOf(Value) – ShiftValue)) or

(Value Shl ShiftValue);

end;

function rol(const Value: WORD; ShiftValue: Byte): DWORD; overload;

begin

Result := (Value shr (8 * SizeOf(Value) – ShiftValue)) or

(Value Shl ShiftValue);

end;

function rol(const Value: Byte; ShiftValue: Byte): DWORD; overload;

begin

Result := (Value shr (8 * SizeOf(Value) – ShiftValue)) or

(Value Shl ShiftValue);

end;

————————————————

原文链接：https://blog.csdn.net/yoie01/article/details/102686309