VB算法，转易语言会的帮忙看一下

chichi027

Private Function MsChk(ByVal id As Long, ByVal eMoney As Long) As Long
    Dim dwKeyTable
    dwKeyTable = Array(29565076, 3118018, 9581781)
    Debug.Print eMoney
    MsgBox eMoney Mod 3
        Debug.Print dwKeyTable(eMoney Mod 3)
    MsChk = eMoney Xor (id + dwKeyTable(eMoney Mod 3))
End Function

chichi027

谢谢大家，我按加减算法，结果，累计加出来 加密方式，目前能用

396384183

感谢大佬分享

Patek

  

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

变量名	类 型	静态	数组	备 注
dwKeyTable			0

dwKeyTable ＝ { 29565076, 3118018, 9581781 }
返回 (位异或 (eMoney, id ＋ dwKeyTable [eMoney ％ 3 ＋ 1]))

.版本 2<br /> <br /> .子程序 MsChk, 整数型<br /> .参数 id<br /> .参数 eMoney<br /> .局部变量 dwKeyTable, , , "0"<br /> <br /> dwKeyTable ＝ { 29565076, 3118018, 9581781 }<br /> 返回 (位异或 (eMoney, id ＋ dwKeyTable [eMoney ％ 3 ＋ 1]))

柠檬汽水

亲爱的楼主，你的帖子内容似乎是个问题，请移步到提问区，以便坛友帮你解答

yzhzhp1

MsChk(
    5555,66666
)

执行结果: 29504045


对吗？

星星之夜

亲爱的楼主，你的帖子内容似乎是个问题，请移步到提问区，以便坛友帮你解答