int 64 益出 万年难题

nj20346

一个c++的代码，转易语言的，转到一半的时候突然发现是个int64 到了20位就益出为负数了，看看有没有大神可以修复的， 测试.e (8.06 KB, 下载次数: 7)

2025-4-19 07:23 上传

点击文件名下载附件

这是C++代码

zainex

易语言本身就不支持无符号类型，所以涉及无符号类型的各种运算均无法通过其自身完美解决，你只能另辟蹊径，要么调用dll，要么就使用置入代码。
下面是我给你写的，用的也是置入代码：

  

子程序名	返回值类型	公开	备 注
HashString_ASM	长整数型
参数名	类 型	参考	可空	数组	备 注
输入字符串	文本型
类型	整数型

置入代码 ({ 49, 201, 186, 1, 0, 16, 0, 190, 171, 170, 42, 0, 129, 236, 20, 20, 0, 0, 141, 185, 0, 5, 0, 0, 137, 203, 107, 194, 125, 131, 192, 3, 153, 247, 254, 107, 194, 125, 131, 192, 3, 153, 247, 254, 15, 183, 194, 137, 132, 157, 240, 235, 255, 255, 129, 195, 0, 1, 0, 0, 57, 251, 117, 218, 65, 129, 249, 0, 1, 0, 0, 117, 201, 139, 69, 12, 185, 238, 238, 238, 238, 49, 219, 190, 237, 127, 237, 127, 49, 255, 193, 224, 8, 137, 133, 232, 235, 255, 255, 139, 69, 8, 139, 0, 128, 56, 0, 137, 133, 236, 235, 255, 255, 15, 132, 141, 0, 0, 0, 139, 133, 236, 235, 255, 255, 141, 80, 1, 139, 69, 8, 137, 16, 139, 133, 236, 235, 255, 255, 15, 190, 0, 137, 133, 236, 235, 255, 255, 131, 232, 97, 131, 248, 25, 119, 7, 131, 173, 236, 235, 255, 255, 32, 137, 240, 137, 250, 1, 200, 17, 218, 137, 133, 224, 235, 255, 255, 139, 133, 232, 235, 255, 255, 3, 133, 236, 235, 255, 255, 137, 149, 228, 235, 255, 255, 139, 189, 228, 235, 255, 255, 137, 194, 139, 133, 224, 235, 255, 255, 51, 132, 149, 240, 235, 255, 255, 137, 218, 137, 198, 137, 200, 15, 164, 194, 5, 193, 224, 5, 131, 192, 3, 131, 210, 0, 1, 200, 139, 141, 236, 235, 255, 255, 17, 218, 49, 219, 1, 193, 17, 211, 1, 241, 17, 251, 233, 95, 255, 255, 255, 137, 240, 137, 250, 201, 194, 8, 0 })
' xor ecx, ecx
' mov edx, 1048577
' mov esi, 2796203
' sub esp, 5140
' L2:
' lea edi, [ecx+1280]
' mov ebx, ecx
' L3:
' imul eax, edx, 125
' add eax, 3
' cdq
' idiv esi
' imul eax, edx, 125
' add eax, 3
' cdq
' idiv esi
' movzx eax, dx
' mov DWORD PTR [ebp-5136+ebx*4], eax
' add ebx, 256
' cmp ebx, edi
' jne L3
' inc ecx
' cmp ecx, 256
' jne L2
' mov eax, DWORD PTR [ebp+12]
' mov ecx, -286331154
' xor ebx, ebx
' mov esi, 2146271213
' xor edi, edi
' sal eax, 8
' mov DWORD PTR [ebp-5144], eax
' L4:
' mov eax, DWORD PTR [ebp+8]
' mov eax, DWORD PTR [eax]
' cmp BYTE PTR [eax], 0
' mov DWORD PTR [ebp-5140], eax
' je L11
' mov eax, DWORD PTR [ebp-5140]
' lea edx, [eax+1]
' mov eax, DWORD PTR [ebp+8]
' mov DWORD PTR [eax], edx
' mov eax, DWORD PTR [ebp-5140]
' movsx eax, BYTE PTR [eax]
' mov DWORD PTR [ebp-5140], eax
' sub eax, 97
' cmp eax, 25
' ja L5
' sub DWORD PTR [ebp-5140], 32
' L5:
' mov eax, esi
' mov edx, edi
' add eax, ecx
' adc edx, ebx
' mov DWORD PTR [ebp-5152], eax
' mov eax, DWORD PTR [ebp-5144]
' add eax, DWORD PTR [ebp-5140]
' mov DWORD PTR [ebp-5148], edx
' mov edi, DWORD PTR [ebp-5148]
' mov edx, eax
' mov eax, DWORD PTR [ebp-5152]
' xor eax, DWORD PTR [ebp-5136+edx*4]
' mov edx, ebx
' mov esi, eax
' mov eax, ecx
' shld edx, eax, 5
' sal eax, 5
' add eax, 3
' adc edx, 0
' add eax, ecx
' mov ecx, DWORD PTR [ebp-5140]
' adc edx, ebx
' xor ebx, ebx
' add ecx, eax
' adc ebx, edx
' add ecx, esi
' adc ebx, edi
' jmp L4
' L11:
' mov eax, esi
' mov edx, edi
' leave
' ret 8
返回 (0)

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

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

长整数结果 ＝ HashString_ASM (“monstereffex4\006\00604.tex”, 1)
整数结果 ＝ 长整数结果  ' 到整数 (HashString_ASM (“monstereffex4\006\00604.tex”, 1))
调试输出 (长整数结果, 整数结果)
返回 (0)  ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 HashString_ASM, 长整数型<br /> .参数 输入字符串, 文本型<br /> .参数 类型, 整数型<br /> <br /> 置入代码 ({ 49, 201, 186, 1, 0, 16, 0, 190, 171, 170, 42, 0, 129, 236, 20, 20, 0, 0, 141, 185, 0, 5, 0, 0, 137, 203, 107, 194, 125, 131, 192, 3, 153, 247, 254, 107, 194, 125, 131, 192, 3, 153, 247, 254, 15, 183, 194, 137, 132, 157, 240, 235, 255, 255, 129, 195, 0, 1, 0, 0, 57, 251, 117, 218, 65, 129, 249, 0, 1, 0, 0, 117, 201, 139, 69, 12, 185, 238, 238, 238, 238, 49, 219, 190, 237, 127, 237, 127, 49, 255, 193, 224, 8, 137, 133, 232, 235, 255, 255, 139, 69, 8, 139, 0, 128, 56, 0, 137, 133, 236, 235, 255, 255, 15, 132, 141, 0, 0, 0, 139, 133, 236, 235, 255, 255, 141, 80, 1, 139, 69, 8, 137, 16, 139, 133, 236, 235, 255, 255, 15, 190, 0, 137, 133, 236, 235, 255, 255, 131, 232, 97, 131, 248, 25, 119, 7, 131, 173, 236, 235, 255, 255, 32, 137, 240, 137, 250, 1, 200, 17, 218, 137, 133, 224, 235, 255, 255, 139, 133, 232, 235, 255, 255, 3, 133, 236, 235, 255, 255, 137, 149, 228, 235, 255, 255, 139, 189, 228, 235, 255, 255, 137, 194, 139, 133, 224, 235, 255, 255, 51, 132, 149, 240, 235, 255, 255, 137, 218, 137, 198, 137, 200, 15, 164, 194, 5, 193, 224, 5, 131, 192, 3, 131, 210, 0, 1, 200, 139, 141, 236, 235, 255, 255, 17, 218, 49, 219, 1, 193, 17, 211, 1, 241, 17, 251, 233, 95, 255, 255, 255, 137, 240, 137, 250, 201, 194, 8, 0 })<br /> ' xor ecx, ecx<br /> ' mov edx, 1048577<br /> ' mov esi, 2796203<br /> ' sub esp, 5140<br /> ' L2:<br /> ' lea edi, [ecx+1280]<br /> ' mov ebx, ecx<br /> ' L3:<br /> ' imul eax, edx, 125<br /> ' add eax, 3<br /> ' cdq<br /> ' idiv esi<br /> ' imul eax, edx, 125<br /> ' add eax, 3<br /> ' cdq<br /> ' idiv esi<br /> ' movzx eax, dx<br /> ' mov DWORD PTR [ebp-5136+ebx*4], eax<br /> ' add ebx, 256<br /> ' cmp ebx, edi<br /> ' jne L3<br /> ' inc ecx<br /> ' cmp ecx, 256<br /> ' jne L2<br /> ' mov eax, DWORD PTR [ebp+12]<br /> ' mov ecx, -286331154<br /> ' xor ebx, ebx<br /> ' mov esi, 2146271213<br /> ' xor edi, edi<br /> ' sal eax, 8<br /> ' mov DWORD PTR [ebp-5144], eax<br /> ' L4:<br /> ' mov eax, DWORD PTR [ebp+8]<br /> ' mov eax, DWORD PTR [eax]<br /> ' cmp BYTE PTR [eax], 0<br /> ' mov DWORD PTR [ebp-5140], eax<br /> ' je L11<br /> ' mov eax, DWORD PTR [ebp-5140]<br /> ' lea edx, [eax+1]<br /> ' mov eax, DWORD PTR [ebp+8]<br /> ' mov DWORD PTR [eax], edx<br /> ' mov eax, DWORD PTR [ebp-5140]<br /> ' movsx eax, BYTE PTR [eax]<br /> ' mov DWORD PTR [ebp-5140], eax<br /> ' sub eax, 97<br /> ' cmp eax, 25<br /> ' ja L5<br /> ' sub DWORD PTR [ebp-5140], 32<br /> ' L5:<br /> ' mov eax, esi<br /> ' mov edx, edi<br /> ' add eax, ecx<br /> ' adc edx, ebx<br /> ' mov DWORD PTR [ebp-5152], eax<br /> ' mov eax, DWORD PTR [ebp-5144]<br /> ' add eax, DWORD PTR [ebp-5140]<br /> ' mov DWORD PTR [ebp-5148], edx<br /> ' mov edi, DWORD PTR [ebp-5148]<br /> ' mov edx, eax<br /> ' mov eax, DWORD PTR [ebp-5152]<br /> ' xor eax, DWORD PTR [ebp-5136+edx*4]<br /> ' mov edx, ebx<br /> ' mov esi, eax<br /> ' mov eax, ecx<br /> ' shld edx, eax, 5<br /> ' sal eax, 5<br /> ' add eax, 3<br /> ' adc edx, 0<br /> ' add eax, ecx<br /> ' mov ecx, DWORD PTR [ebp-5140]<br /> ' adc edx, ebx<br /> ' xor ebx, ebx<br /> ' add ecx, eax<br /> ' adc ebx, edx<br /> ' add ecx, esi<br /> ' adc ebx, edi<br /> ' jmp L4<br /> ' L11:<br /> ' mov eax, esi<br /> ' mov edx, edi<br /> ' leave<br /> ' ret 8<br /> <br /> 返回 (0)<br /> <br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 长整数结果, 长整数型<br /> .局部变量 整数结果, 整数型<br /> <br /> 长整数结果 ＝ HashString_ASM (“monstereffex4\006\00604.tex”, 1)<br /> 整数结果 ＝ 长整数结果  ' 到整数 (HashString_ASM (“monstereffex4\006\00604.tex”, 1))<br /> 调试输出 (长整数结果, 整数结果)<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值

嫂子

都说是万年难题了  咱们解决不了

wlp

又不影响上面这个算法的计算

nj20346

wlp 发表于 2025-4-19 08:10
又不影响上面这个算法的计算

影响，这样结果完全是错的

nj20346

嫂子 发表于 2025-4-19 08:07
都说是万年难题了  咱们解决不了

我完全出于好奇心，目前在用C编译的dll调用的

SYzenghao

还不如直接扣汇编代码，直接完成

wlp

nj20346 发表于 2025-4-19 08:30
影响，这样结果完全是错的

结果应该是对的，只用到了加减，位异或，左移，如果是右移，结果就不对

nj20346

SYzenghao 发表于 2025-4-19 09:20
还不如直接扣汇编代码，直接完成

没学，不会

nj20346

wlp 发表于 2025-4-19 09:22
结果应该是对的，只用到了加减，位异或，左移，如果是右移，结果就不对 ...

* 77 | “seed2:138439896331”
* 79 | “seed2:4713111365160”
* 78 | “seed2:160390381207298”
* 83 | “seed2:5458130667211700”
* 84 | “seed2:185741690772577792”
* 69 | “seed2:6320840865022251008”
* 82 | “seed2:-9223372036854775808”
* 69 | “seed2:-9223372036854775808”
* 70 | “seed2:-9223372036854775808”