[原创]VB注册机独辟蹊径-----注册机也可以这样写

近段时间接了个项目，是关于一个称重传感器的上位机系统，需要一机一码针对不同的客户机分别注册，第一次注册完后，下次打开后不必注册。

刚开始想用正规的注册机办法去完成，搜罗了半天，发现现在大部分的硬盘注册机 其实并不是读取硬盘的物理序列号来进行加密的，而是采用读取磁盘分区卷标号来作为加密的基值。先按照读取磁盘卷标号开发了注册机程序，在自己的三台电脑上测试都没问题，也就是说没出现过读取卷标号重复的情况。结果第二天发给客户测试，客户反应用了几台电脑的注册码全部一样，瞬间石化。

后来自己分析过，可能是由于现在的操作系统都是用的Ghost方式，如果采用相同的Ghost相同可能造成磁盘分区都一样的情况出现。算了后来还是不用这种方式了，苦于时间紧急没有时间去移植读取磁盘物理序号来加密的程序。百般无奈之下想到了一个很低级的办法，但是别人也不好破解，下面进入正题介绍如何用自己的方式写出比较可靠地注册机，暂且给这种方式取名叫做“BR”法。

第一部分，程序效果展示。

第一次运行会弹出注册界面，提供机器码，要求输入注册码注册。为了调试方便，增加了一个注册码提示功能。效果如下图：

1、输入注册码错误的情况：

2、输入正确的注册码的情况：

第二部分，实现原理：随机数产生+注册表

基本原理是：软件第一次运行的时候，将注册码变量写入系统注册表，赋值为0；同时系统产生一个N位的随机数，经过自己设计的某种算法（加密）得出一个机器码并且显示在注册机界面。如果输入的注册码正确的情况下，将正确的注册码写入注册表，覆盖初次运行赋值的0；那么下次再运行软件的时候，首先会去读取系统注册表的值如果不等于0，则说明已经被正确的注册码覆盖，就可以跳过注册这一步；相反如果输入的注册码错误，就不会去写注册表，那么注册表变量的值一直是0.

贴出程序供大家参考：

1、注册界面代码：

 Private Sub Command2_Click()
 End
 End Sub

 '窗体加载程序，生成随机数，计算注册码，保存随机数并写入系统注册表

 Private Sub Form_Load()

 Dim m As Integer, n As Integer, r As Integer, x As Integer, y As Integer

 m =
 n =
 Randomize '随机数初始化声明

 '再用Rnd函数产生随机数
 '如果产生一个N到M之间的随机数（n>m，包含n，m）表达式可为；
 r = Int(Rnd * (n - m + ) + m)

 comnum = r        '将随机数存储到模块全局变量，防止变化

 Text3.Text = r '注册码提示，用于测试

 x = r -  *  '由机器码计算注册码的简单算法

 Text1.Text = x '显示机器码

 Dim num_reg

 '如果注册表存在，则读取；不存在的话，创建注册表项

 num_reg = GetSetting("Internet Explorer", "Startup", "regedit", ) '条目取名为了混淆概念

 If num_reg >  Then '如果num_reg>0 说明该项目已经被修改为注册码，即：已经注册过，所以直接跳到主窗体
 Unload Me
 Form_main.Show

 End If

 End Sub

 Private Sub Command1_Click()

 y = Text2.Text       '获取输入的注册码信息

 'Text4.Text = comnum   '将模块中存储的随机数赋值给text4,测试用

 If y = comnum Then '如果输入的注册码与产生的随机数完全一致，则进入主程序；否则弹出对话框

 SaveSetting "Internet Explorer", "Startup", "regedit", comnum   '当写入的注册码正确时，将正确的注册码保存到注册表当中，下次启动时先检测注册表项目
                                                                 '根据注册表值决定是否需要弹出注册窗体
 Unload Me
 Form_main.Show

 Else
 MsgBox "注册码错误", , "信息提示"
 End If

 End Sub

2、主程序窗口：简单的增加一个Label  显示一句话：恭喜，属于你自己的注册机运行成功了！

第三部分，注册码生成工具。

注册码生成工具比较简单了，直接完成自己设计的算法的逆向就可以了。