在论坛里看了好多关于VB程序的爆破，好多都是在vbaStrCmp之类的地方下断，而且对于没有把判断代码进行隐藏处理的程序，一下就能找到关键跳，我今天想到用正则表达式来验证用户的输入，在vbaStrCmp、vbaStrComp等好几个地方下了断，都没拦下来，效果还不错，但是不知道像这种验证方法，用什么方法来找关键代码

这是VB代码，有兴趣的朋友可以试一下
Private Sub Command1_Click()
Dim RegEx As New RegExp
    RegEx.Global = True
    RegEx.IgnoreCase = True
    RegEx.MultiLine = True
    RegEx.Pattern = "^123456789$"
    If RegEx.Test(Text1.Text) Then MsgBox "OK" Else MsgBox "False"
End Sub

当输入123456789的时候正确

我想知道像这种验证方法，用什么方法来找关键代码，高手不要见笑，呵呵

附件： 工程1.rar

下午又看到一些VB反破解的小办法，其中异常的这种办法挺好的，我又改了下我这个小程序，把判断那块加到异常中了，
不知道我这样写对不对，我把代码和程序传上来，大家再指点下

对于把判断代码跳转到异常中去进行，不知道我的这种写法对不对

Private Sub Command1_Click()
Dim RegEx As New RegExp
On Error GoTo p
    RegEx.Global = True
    RegEx.IgnoreCase = True
    RegEx.MultiLine = True
    RegEx.Pattern = "^123456789$"
    RegEx = RegEx / 5
    Exit Sub
p:
    If RegEx.Test(Text1.Text) Then MsgBox "OK" Else MsgBox "False"
End Sub

附件：

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

上传的附件：

• 工程1.rar （2.76kb，13次下载）