循环右移 ROR_EAX_4的问题

hongh1992

  

子程序名	返回值类型	公开	备 注
测试_ROR

变量名	类 型	静态	数组	备 注
结果	整数型

' 测试用例1：0xADAF0F87右移4位
结果 ＝ 循环右移 (十六到十 (“ADAF0F87”), 4)
调试输出 (“ADAF0F87 >> 4 =”, 取十六进制文本 (结果))  ' 正确应输出: 7ADAF0F8
' 测试用例2：边界测试
结果 ＝ 循环右移 (十六到十 (“12345678”), 8)
调试输出 (“12345678 >> 8 =”, 取十六进制文本 (结果))  ' 应输出: 78123456

子程序名	返回值类型	公开	备 注
ROR_EAX_4	整数型
参数名	类 型	参考	可空	数组	备 注
eax	整数型

变量名	类 型	静态	数组	备 注
高4位	整数型
低28位	整数型

高4位 ＝ 位与 (eax, 十六到十 (“F0000000”))  ' 取出最高4位
低28位 ＝ 位与 (eax, 十六到十 (“0FFFFFFF”))  ' 取出剩下的28位
高4位 ＝ 右移 (高4位, 28)  ' 将高4位移到最低4位
返回 (位或 (右移 (低28位, 4), 左移 (高4位, 28)))  ' 组合成循环右移后的结果

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 测试_ROR<br /> .局部变量 结果, 整数型<br /> <br /> ' 测试用例1：0xADAF0F87右移4位<br /> 结果 ＝ 循环右移 (十六到十 (“ADAF0F87”), 4)<br /> 调试输出 (“ADAF0F87 >> 4 =”, 取十六进制文本 (结果))  ' 正确应输出: 7ADAF0F8<br /> ' 测试用例2：边界测试<br /> 结果 ＝ 循环右移 (十六到十 (“12345678”), 8)<br /> 调试输出 (“12345678 >> 8 =”, 取十六进制文本 (结果))  ' 应输出: 78123456<br /> <br /> .版本 2<br /> <br /> .子程序 ROR_EAX_4, 整数型<br /> .参数 eax, 整数型<br /> .局部变量 高4位, 整数型<br /> .局部变量 低28位, 整数型<br /> <br /> 高4位 ＝ 位与 (eax, 十六到十 (“F0000000”))  ' 取出最高4位<br /> 低28位 ＝ 位与 (eax, 十六到十 (“0FFFFFFF”))  ' 取出剩下的28位<br /> 高4位 ＝ 右移 (高4位, 28)  ' 将高4位移到最低4位<br /> 返回 (位或 (右移 (低28位, 4), 左移 (高4位, 28)))  ' 组合成循环右移后的结果

为什么第一个 “ADAF0F87”右移的值输出=”FADAF0F8“ 这个是错误的  正确的是7ADAF0F8  OD显示也是这个值
但是第二“12345678”右移输出的是78123456 确实正确的。




补充内容 (2025-6-17 14:23):
用了 DeepSeek 给的好几个代码方案  结果都是FADAF0F8  而不是7ADAF0F8

神女软件定制

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
a	整数型
s	文本型

a ＝ 进制_十六到十 (“ADAF0F87”)
s ＝ 进制_十到二 (a)
' 循环右移8位
s ＝ 取文本右边 (s, 4) ＋ 取文本左边 (s, 取文本长度 (s) － 4)
a ＝ 进制_二到十 (s)
调试输出 (进制_十到十六 (a))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 a, 整数型<br /> .局部变量 s, 文本型<br /> <br /> a ＝ 进制_十六到十 (“ADAF0F87”)<br /> s ＝ 进制_十到二 (a)<br /> <br /> ' 循环右移8位<br /> s ＝ 取文本右边 (s, 4) ＋ 取文本左边 (s, 取文本长度 (s) － 4)<br /> <br /> a ＝ 进制_二到十 (s)<br /> 调试输出 (进制_十到十六 (a))

告诉你什么叫循环位移

hongh1992

  

子程序名	返回值类型	公开	备 注
ROR_EAX_4	整数型
参数名	类 型	参考	可空	数组	备 注
输入值	整数型

变量名	类 型	静态	数组	备 注
结果	整数型
低位	整数型

' 获取低4位
低位 ＝ 位与 (输入值, 15)  ' 15 = 0xF
' 将输入值逻辑右移4位
结果 ＝ 位与 (右移 (输入值, 4), 十六到十 (“0FFFFFFF”))  ' 清除符号位
' 将低4位移到高位
结果 ＝ 位或 (结果, 左移 (低位, 28))  ' 32-4=28
返回 (结果)

.版本 2<br /> <br /> .子程序 ROR_EAX_4, 整数型<br /> .参数 输入值, 整数型<br /> .局部变量 结果, 整数型<br /> .局部变量 低位, 整数型<br /> <br /> ' 获取低4位<br /> 低位 ＝ 位与 (输入值, 15)  ' 15 = 0xF<br /> ' 将输入值逻辑右移4位<br /> 结果 ＝ 位与 (右移 (输入值, 4), 十六到十 (“0FFFFFFF”))  ' 清除符号位<br /> ' 将低4位移到高位<br /> 结果 ＝ 位或 (结果, 左移 (低位, 28))  ' 32-4=28<br /> 返回 (结果)

【[color=rgba(0, 0, 0, 0.9)]整数类型可能是带符号的，导致移位时符号位被保留】  问题解决了



补充内容 (2025-6-17 15:12):
这个才是正确的

.版本 2

.子程序 循环右移, 整数型
.参数 数值, 整数型
.参数 位数, 整数型
.局部变量 结果, 整数型
.局部变量 低位, 整数型

' 获取低...

hongh1992

hongh1992 发表于 2025-6-17 15:02

  

子程序名	返回值类型	公开	备 注
ROR_EAX_4	整数型

[/quote]
[e=2].版本 2

子程序名	返回值类型	公开	备 注
循环右移	整数型
参数名	类 型	参考	可空	数组	备 注
数值	整数型
位数	整数型

变量名	类 型	静态	数组	备 注
结果	整数型
低位	整数型

' 获取低4位
低位 ＝ 位与 (数值, 255)  ' 255 = 0xFF
' 将输入值逻辑右移4位
结果 ＝ 位与 (右移 (数值, 位数), 十六到十 (“0FFFFFFF”))  ' 清除符号位
' 将低4位移到高位
结果 ＝ 位或 (结果, 左移 (低位, 32 － 位数))  ' 32-4=28
返回 (结果)

.版本 2<br /> <br /> .子程序 ROR_EAX_4, 整数型</blockquote></div><br /> [e=2].版本 2<br /> <br /> .子程序 循环右移, 整数型<br /> .参数 数值, 整数型<br /> .参数 位数, 整数型<br /> .局部变量 结果, 整数型<br /> .局部变量 低位, 整数型<br /> <br /> ' 获取低4位<br /> 低位 ＝ 位与 (数值, 255)  ' 255 = 0xFF<br /> ' 将输入值逻辑右移4位<br /> 结果 ＝ 位与 (右移 (数值, 位数), 十六到十 (“0FFFFFFF”))  ' 清除符号位<br /> ' 将低4位移到高位<br /> 结果 ＝ 位或 (结果, 左移 (低位, 32 － 位数))  ' 32-4=28<br /> 返回 (结果)

这个是修改后的

黑咖啡

直接用文本把后几位移到前面来不香吗
结果 ＝ 取文本右边 (数据, 移几位) ＋ 取文本左边 (数据, 剩几位)

hongh1992

黑咖啡 发表于 2025-6-17 15:26
直接用文本把后几位移到前面来不香吗
结果 ＝ 取文本右边 (数据, 移几位) ＋ 取文本左边 (数据, 剩几位)
{: ...

你的代码右移一位是正确的 但是我这个是右移四位  你的结果不对