Dim n As Integer
= GetConfigValue("Count",1)
Dim Code As String
= GetConfigValue("Register" &
ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso
DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
Else
If n > 1 Then
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
End If
End If
If n > 2 AndAlso Ok = False
Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
想请问 上述的(Code,"abc","abc")的abc 能改吗,如果不能更,那这个软加密就没什么用了,我试过改但出现以下问题并无效
此主题相关图片如下:qq图片20150603100706.png