主题：[求助]关于帮助的软加密代码问题--abc是否能改

1、加密的时候用 abc、abc ，解密的时候就用什么。必须匹配才行。

2、这句代码 DecryptText(Code,"abc","abc") 有可能你给的Code数据不正确，要捕捉一下错误，这样

Dim 解密后的字符串 As String

Try

    解密后的字符串 = DecryptText(Code,"abc","abc")

Catch ex As Exception

End Try

  DecryptText(Code,"abc","abc") 报错啊。

  解密单独写代码，看2楼

 变量名啊

Dim sssssss As String

Try

    sssssss = DecryptText(Code,"abc","abc")

Catch ex As Exception

End Try

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")

Dim sss As String
Try
    sss = DecryptText(Code,"abc","abc")
Catch ex As Exception
End Try

Dim Ok As Boolean
If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
    OK = True
Else
    If n > 1 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso sss = 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)

出错的例子发上来看看吧，检测了，不应该报错的。

解密不了

1、Code的字符串不正确；

2、密钥不正确。