UC知道请问这段VB代码是何意?急!
来源：百度知道 编辑：UC知道 时间：2024/05/28 16:29:48
大家能在这代码中帮我找出注册码吗?谢谢.附机器码:L3F4J41V6F8H9SC2
Function KeyGen(kNamev As Variant, kPass As String, kType As Integer) As String
On Error Resume Next 'still here just as a precaution
Dim cTable(512) As Integer 'character map
Dim nKeys(16) As Integer 'xor keys used for pArray(x) xor nkeys(x)
Dim s0(512) As Integer 'swap-box data used to map character table
Dim nArray(16) As Integer 'name array data
Dim pArray(16) As Integer 'password array data
Dim n As Integer 'for next loop counter
Dim nPtr As Integer 'name pointer (used for counting)
Dim cPtr As Integer 'character pointer (used for counting)
Dim cFlip As Boolean 'character flip (used to flip between numeric and alpha)
Dim sIni As Integer 'holds s-box values
Dim temp As Integer 'holds s-box values
Dim rtn As Integer 'holds ge
Function KeyGen(kNamev As Variant, kPass As String, kType As Integer) As String
On Error Resume Next 'still here just as a precaution
Dim cTable(512) As Integer 'character map
Dim nKeys(16) As Integer 'xor keys used for pArray(x) xor nkeys(x)
Dim s0(512) As Integer 'swap-box data used to map character table
Dim nArray(16) As Integer 'name array data
Dim pArray(16) As Integer 'password array data
Dim n As Integer 'for next loop counter
Dim nPtr As Integer 'name pointer (used for counting)
Dim cPtr As Integer 'character pointer (used for counting)
Dim cFlip As Boolean 'character flip (used to flip between numeric and alpha)
Dim sIni As Integer 'holds s-box values
Dim temp As Integer 'holds s-box values
Dim rtn As Integer 'holds ge
楼主写的不完整，不过大概可以看出是注册机生成注册码的算法。
KeyGen 看名字就知道是注册机，
(kNamev As Variant, kPass As String, kType As Integer)
As String
传入机器码，返回注册码吧。
不能。。。你给出的东西不全，作为程序，这只是变量、常量定义部分，完全没有涉及算法、运行逻辑等