主题：帮助中“设计自己的注册系统”和实例中“注册系统设计演示”有问题（已解决）

1楼的提示应该是加解密密钥不一致造成的。

不过我没测试出有什么问题。

其实这样的注册方式，和加密方式太简单了，可以说几乎没有什么约束力。

真正应用到自己的系统，你的多想想其它办法。

呵呵，这个恐怕不是三言两语能说清楚的。

不过可以肯定示例文件中的注册信息保存，使用次数限制都存在问题。

比如用户重新下载一次这个文件就可以再使用n多次了，所以个人认为整个系统的注册信息不要仅仅保存在项目中。

不错的主意。

这样加密行吗？

Dim Val As String = MD5Encrypt(ComputerId).Replace("==","")
'读取用户系列号,用Md5加密
Dim Val1,Val2 As String
'对系列号进行规则再加密
For i As integer = 1 to Val.Length -2
    Val1 = Val1 & Asc(Val.SubString(i,1)) Mod 10
Next
Output.Show("生成用户系列号:" & Val1)

'计算注册码
For i As integer = 0 to Val1.Length -1
    Val2 = Val2 & Asc(Val1.SubString(i,1)) Mod 10
Next

Output.Show("生成用户注册码:" & val2)

验证注册码是否正确用同样方法。

人家说你狡猾狡猾的，看来一点都不假