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

保存在注册表中吧，网上可以搜索一下vb.net如何读写注册表，代码和foxtable通用

不过保存在那里都不是很安全。

有个问题一直很困惑，对字符串加密后经常会有一些乱七八糟的字符。怎样才能生成有有规律的注册信息呢？比如，只包含字母和数字，而且位数统一。就象老六给我们的加密狗激活码一样，其序列号和激活码都是很有序的。

非常希望能看到这样的例子。

很简单，取每个字符的ascii码，除以10，取余数

很受启发，以后改用这种方式。

还有C版在22楼的想法我觉得也很好。WriteAllText可以直接保存为一个属性为隐藏的文件吗？如果这样的话，就会更安全一些。

在百度搜索一下设置vb.net文件属性的方法，foxtable通用

不错的主意。

这样加密行吗？

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)

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

最好先对Computerid加密，然后将结果分成几部分，例如1、4、7、10位置的字符为一部分，2、5、8、11一部分、3、6、9、12一部分，分别用加密函数二次加密，生成几个部分的机器码和注册码，就像foxtable的机器码一样，每一部分的加密算法不一样，后面一部分后用前面一部分的结果作为密钥，越乱来、越没有规律越好。

否则容易被人猜出算法来。

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