主题：[求助]关于帮助的软加密代码问题--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

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

 

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

 

Dim 解密后的字符串 As String

 

Try

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

Catch ex As Exception

 

End Try

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

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

 

  解密单独写代码，看2楼

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

 变量名啊

 

Dim sssssss As String

 

Try

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

Catch ex As Exception

 

End Try

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

 

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)

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

每个项目,加密和解密的钥匙 都要对应的.