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

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

不错的主意。

这样加密行吗？

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的机器码一样，每一部分的加密算法不一样，后面一部分后用前面一部分的结果作为密钥，越乱来、越没有规律越好。

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