求加大VB密码破解难度（注册机），修改哪些

考试加油站

以下是VB写的一个小程序，请人写的，我不太会，捆绑电脑的注册码，结果没到一个星期被人给破解了，也不知道什么原因，好像他都能自己编写出破解版注册机了，想看看如何增大难度，让别人无法破解。
以下原码

Private Sub Command1_Click()
   
    Dim KeyStr As String
    Dim a As String
   
    App.TaskVisible = True
   
   
    If Text3.Text = "" Then
        MsgBox "课程名非法！", vbCritical, "错误提示"
        Exit Sub
    End If
   
   
    If Text1.Text = "" Then
        MsgBox "机器码非法！", vbCritical, "错误提示"
        Exit Sub
    End If
   
   
    Dim Zh As Long
   
    For i = 1 To Len(Text3.Text)
        
        Zh = Zh + Abs(AscW(Mid(Text3.Text, i, 1)))
        
        
    Next i
   
    Dim KeyNum As Integer
    '得到关键码
    KeyNum = Zh Mod 108
   
   
     '与机器码异或
   
   
   
    Dim jqStr1() As String
    jqStr1 = Split(Text1.Text, "-")
   
    If UBound(jqStr1) <> 3 Then
        MsgBox "获取机器码失败！激活失败！", vbCritical, "错误提示"
        Exit Sub
    End If
    KeyStr = ""
   
    For i = 0 To 3
        
        For j = 1 To Len(jqStr1(i))
            
            KeyStr = KeyStr & CStr(Asc(Mid(jqStr1(i), j, 1)) Xor KeyNum)
        Next
        
        
        
    Next i
    Debug.Print KeyStr
   
    Text2.Text = KeyStr
   
   

End Sub
Private Sub Command2_Click()
    End
End Sub

AVEL

封装所有代码到DLL。 可以提高破解难度。

liucqa

明码破解也就几分钟

考试加油站

liucqa 发表于 2015-5-27 17:40
明码破解也就几分钟

什么意思，几分钟就破解了？这是VB写的软件，不是VBA，如何能让别人很难破解？

Moneky

发的代码看不出绑定现象

考试加油站

Moneky 发表于 2015-5-28 20:56
发的代码看不出绑定现象

这是注册机的代码

liucqa

加大难度的话，就要使用非对称加密算法，具体百度

slover2008

1：使用MD5_32或者类似方式加密，可以重叠该加密次数。
2：注册信息保存在注册表或者ini文件里面，不要在Excel本身。
3：dll或者Exe加壳。
4：设置暗桩，所有注册不要弹出任何注册成功或者失败的提示信息，注册失败直接退出程序，并启动暗桩，注册成功再消除暗桩设置。
5：注册码内部验证过程不要直接跳到验证循区，验证成功不要直接跳到成功界面，中间要加各种乱七八糟的无用过程，扰乱调用，扰乱破解。比如十次二分迭代，就有1024种可能，如果设置在第855位置为正确验证区，破解者需要找非常多次，找到也不能确信就是要找的。十次不行就32次。呵呵。
6：启用网络验证机制，验证成功从网络补全未安装的dll，该dll内部还有自验证或二次验证。

好吧，一山还有一山高，不能确保不被继续破解，不过难度应该是升级了，而且吗，这些都要你自己能实现先。

slover2008

对了，如果想让代码保护Excel内部的数据，这就是做梦了，Excel外部接口非常多，有很多方法和工具可以破解或者绕过验证或者加密直接读取数据。