-
-
[旧帖] [求助]对VB比较了解的请进 0.00雪花
-
发表于: 2008-11-29 09:41 2409
-
帮我解释一下这段什么意思 最好把算法描述一下
==========================
If RegNum = RC.ID Then
RegName = Trim(RC.Name)
Dim ID As Double
Dim SN As String
ID = Abs(RegNum)
Snum = ID \ 19
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 15
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 12
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 10
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 9
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 8
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 6
SN = SN + Chr(Snum Mod 69 + 33)
崔志明= ID \ 5
崔志明N + Chr(Snum Mod 69 + 33
CuiZhimingnum
CuiZhiming SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 2
SN = SN + Chr(Snum Mod 69 + 33)
If SN = Trim(RC.SN) Then
RegOrNo = True
Else
RegOrNo = False
End If
Else
RegOrNo = False
End If
==============================
本人只会C++ 希望大家帮个忙
==========================
If RegNum = RC.ID Then
RegName = Trim(RC.Name)
Dim ID As Double
Dim SN As String
ID = Abs(RegNum)
Snum = ID \ 19
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 15
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 12
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 10
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 9
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 8
SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 6
SN = SN + Chr(Snum Mod 69 + 33)
崔志明= ID \ 5
崔志明N + Chr(Snum Mod 69 + 33
CuiZhimingnum
CuiZhiming SN = SN + Chr(Snum Mod 69 + 33)
Snum = Snum \ 2
SN = SN + Chr(Snum Mod 69 + 33)
If SN = Trim(RC.SN) Then
RegOrNo = True
Else
RegOrNo = False
End If
Else
RegOrNo = False
End If
==============================
本人只会C++ 希望大家帮个忙
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!
赞赏
他的文章
- [求助]求调试S60 3rd软件 4292
- [求助]对VB比较了解的请进 2410
- [原创]用反汇编揭穿《X卧底第二代》的谎言 11241
看原图
赞赏
雪币:
留言: