主题：[求助] 引用用户登录密码

红袍老师，下面是我的软件授权思路  不知道思路是否严谨 请您指点指点

用户登录，如果注册码正确，并与 config.txt 中的相同 正常打开系统。否则，打开获取验证码窗口，授权用户有 51b2e-34d90-6842d-f979d-4fa5b 激活码，Rand.NextString(25) 生成，如果激活码正确（最多5次重试机会，不正确强制退出系统），加载表 “激活码” 对应行 获取验证码，显示 激活按钮（验证码不正确时 按钮隐藏），点击激活按钮打开获取注册码窗口（机器码和注册码均显示为*），如果验证码正确（最多3次重试机会，不正确强制退出系统）生成注册码，并写入 项目文件 project 目录下的 config.txt 中（如果用户删除config.txt 打开项目后会自动创建该文件。），提示 激活成功。  确认后 删除 表 激活码（内部表） 中对应行（一个激活码只能使用一次）。如果没有激活码，可以试用15天。。

 如果把你的项目拷贝n份，是不是就能激活 n*激活码个数 台电脑了？

 任意拷贝config.txt是不是也能激活一台电脑？

 你的注册码，必须和某台电脑直接相关，比如conputeID，你的激活码，必须根据注册码算出来。

红袍老师，我上传例子，您给看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.zip

 你的激活码和验证码，可以重复使用的。只要别人把你最初的项目拷贝n份，就可以用任意的使用激活码注册了。

红袍老师，下面的这段代码逻辑是否严谨？谢谢！

AfterOpenProject

Dim s As String = FileSys.GetParentPath(ProjectPath) & "\config.txt"
If FileSys.FileExists(s) = False Then
   FileSys.WriteAllText(ProjectPath & "config.txt", "", false)
Else
    MessageBox.show("记录注册码文件丢失!","提示")
    Syscmd.Project.Exit(False)
End If
Dim RegOk As Boolean = GetConfigValue("注册状态",False)  '定义一个逻辑变量,来记录注册成功与否
Dim starday As Date = GetConfigValue("试用起始日",#1/1/1900#) '定义一个日期变量,来记录第一次打开系统的日期
Dim Ok As Boolean
Dim str As String = FileSys.ReadAllText(ProjectPath & "config.txt")
Dim Code As String = str
Dim sss As String
Try
    sss = DecryptText(Code,"efgabc","efgabc")
Catch ex As Exception
End Try
If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
    OK = True
Else
    If Date.Today > starday.AddDays(10)  AndAlso Ok = False Then
        Messagebox.Show("试用期已过,请及时注册软件!","提示")
    End If
    SaveConfigValue("注册状态",False)
    Forms("注册").Open()
    Code = FileSys.ReadAllText(ProjectPath & "config.txt")
    Try
        sss = DecryptText(Code,"efgabc","efgabc")
    Catch ex As Exception
    End Try
    If Code > "" AndAlso sss = ComputerId Then '如果注册码正确
        OK = True
        SaveConfigValue("注册状态",True)
    End If
End If