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

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

错误就是上述那张图，我还没到解密那一步，现在是把上述的代码里的四个“abc”,都改“efg”，然后按项目属性的确定就出现上面的错误信息图

第一张图是之前解密的解密后的字符串，第二张图是在已经打开已注册的FOXDB里的命令里执行出错的出误

哎，不明白，直接把你的代码放上去也不OK，有直接现成的代码给我直接贴上去解密吗，我加密前都是用帮助里的代码弄过一次，现在想把代码里abc改，就出现上述的图片错误了

我试用其他项目，可以把里面的abc给改了，但已按大红袍刚发的解密代码复制到原已注册密表的命令窗口里执行后，然后重新再把注册代码放在项目属性里（同时abc改成其他,如：bcd），照样还出现之前的不正确数据的错误

2、这句代码 DecryptText(Code,"abc","abc") 有可能你给的Code数据不正确，要捕捉一下错误，这样   Dim ss As String = “解密后的字符串”   Try     ss = DecryptText(Code,"abc","abc") Catch ex As Exception   End Try 这个的字符串是指注册机解后的字符串，(Code,"abc","abc")里abc也是一样没改过，但放解密代码进行执行没反应，总之最后还是在原来的电脑上和已注册的项目软件没法再正确改，(Code,"abc","abc")里的abc

试了一个上午，都对应着

狐爸，你是指这个吗，回头学习《编程基础》 定义变量的同时指定其初始值？