VB.NET代码修改问题

暮念@

源码为以下内容：
Friend Shared Function ComputeStringHash(s As String) As UInteger
Dim num As UInteger = 2166136261UI
If s IsNot Nothing Then
For i As Integer = 0 To s.Length - 1
num = (CUInt(s(i)) Xor num) * 16777619UI
Next
End If
Return num
End Function

我修改成：
Friend Shared Function ComputeStringHash(s As String) As UInteger
Dim num As UInt64 = 2166136261UL
If s IsNot Nothing Then
For i As Integer = 0 To s.Length - 1
Dim unicodeValue As UInteger = CUInt(AscW(s(i)))
Dim wy As UInt64 = 16777619UL
num = (CULng(unicodeValue) Xor num) * wy
Next
End If
Return CUInt(num And UInteger.MaxValue)
End Function
提示错误“算术运算导致溢出”。。。求广大网络大神指正

千分之一

UInt64长度是0 到 18,446,744,073,709,551,615的整数，num = (CULng(unicodeValue) Xor num) * wy这段代码多次计算后必然后超出范围。VB可能是溢出后自动取模计算了，在vb.net可以加个判断大于Ulong.MaxValue，用结果num Mod 18446744073709551616取模就行了。需把num定义成更大的数据类型，可以考虑第三方库或者非整型decimal

暮念@

千分之一 发表于 2024-4-26 15:15
UInt64长度是0 到 18,446,744,073,709,551,615的整数，num = (CULng(unicodeValue) Xor num) * wy这段代码 ...

该怎么修改，还请大佬直接修改一下行不？

暮念@

暮念@ 发表于 2024-5-1 16:59
该怎么修改，还请大佬直接修改一下行不？

运行到这句就出错了

yzxfelix

这个是vb.net吗，一直想学。 貌似都在说c#