VB6防破解之注册码陷阱圈套源码分享

Private Sub Jiazhuce()

'这是一个假注册陷阱

Dim aJia As String

Dim bJia As String

Dim cJia As String

Dim dJia As Double

Dim nxunhuan As Integer

aJia = Text1.Text

For nxunhuan = 1 To Len(Text1.Text)

aJia = aJia & Asc(Mid(aJia, nxunhuan, 1))

dJia = Val(aJia)

Next nxunhuan

If Val(dijia) = 57894321649498# Then

cJia = "注册码正确，恭喜你"

MsgBox cJia, , "感谢"

Else

bJia = "注册码错误，请重新输入"

MsgBox bJia, , "错误"

End If

End Sub

Private Sub Command1_Click()

Jiazhuce

'这就是个典型的假圈套,用字符串吸引破解者注意

'其实真正的注册过程在UNLOAD事件中

End Sub