标签：
近段时间接了个项目，是关于一个称重传感器的上位机系统，需要一机一码针对不同的客户机分别注册，第一次注册完后，下次打开后不必注册。
刚开始想用正规的注册机办法去完成，搜罗了半天，发现现在大部分的硬盘注册机 其实并不是读取硬盘的物理序列号来进行加密的，而是采用读取磁盘分区卷标号来作为加密的基值。先按照读取磁盘卷标号开发了注册机程序，在自己的三台电脑上测试都没问题，也就是说没出现过读取卷标号重复的情况。结果第二天发给客户测试，客户反应用了几台电脑的注册码全部一样，瞬间石化。
后来自己分析过，可能是由于现在的操作系统都是用的Ghost方式，如果采用相同的Ghost相同可能造成磁盘分区都一样的情况出现。算了后来还是不用这种方式了，苦于时间紧急没有时间去移植读取磁盘物理序号来加密的程序。百般无奈之下想到了一个很低级的办法，但是别人也不好破解，下面进入正题介绍如何用自己的方式写出比较可靠地注册机，暂且给这种方式取名叫做“BR”法。
第一部分，程序效果展示。
第一次运行会弹出注册界面，提供机器码，要求输入注册码注册。为了调试方便，增加了一个注册码提示功能。效果如下图：
1、输入注册码错误的情况：
2、输入正确的注册码的情况：
第二部分，实现原理：随机数产生+注册表
基本原理是：软件第一次运行的时候，将注册码变量写入系统注册表，赋值为0；同时系统产生一个N位的随机数，经过自己设计的某种算法（加密）得出一个机器码并且显示在注册机界面。如果输入的注册码正确的情况下，将正确的注册码写入注册表，覆盖初次运行赋值的0；那么下次再运行软件的时候，首先会去读取系统注册表的值如果不等于0，则说明已经被正确的注册码覆盖，就可以跳过注册这一步；相反如果输入的注册码错误，就不会去写注册表，那么注册表变量的值一直是0.
贴出程序供大家参考：
1、注册界面代码：
1 Private Sub Command2_Click() 2 End 3 End Sub 4 5 ‘窗体加载程序，生成随机数，计算注册码，保存随机数并写入系统注册表 6 7 Private Sub Form_Load() 8 9 Dim m As Integer, n As Integer, r As Integer, x As Integer, y As Integer 10 11 m = 2016 12 n = 20160 13 Randomize ‘随机数初始化声明 14 15 ‘再用Rnd函数产生随机数 16 ‘如果产生一个N到M之间的随机数（n>m，包含n，m）表达式可为； 17 r = Int(Rnd * (n - m + 1) + m) 18 19 comnum = r ‘将随机数存储到模块全局变量，防止变化 20 21 22 Text3.Text = r ‘注册码提示，用于测试 23 24 x = r - 9 * 181 ‘由机器码计算注册码的简单算法 25 26 Text1.Text = x ‘显示机器码 27 28 Dim num_reg 29 30 ‘如果注册表存在，则读取；不存在的话，创建注册表项 31 32 num_reg = GetSetting("Internet Explorer", "Startup", "regedit", 0) ‘条目取名为了混淆概念 33 34 If num_reg > 0 Then ‘如果num_reg>0 说明该项目已经被修改为注册码，即：已经注册过，所以直接跳到主窗体 35 Unload Me 36 Form_main.Show 37 38 End If 39 40 End Sub 41 42 Private Sub Command1_Click() 43 44 y = Text2.Text ‘获取输入的注册码信息 45 46 ‘Text4.Text = comnum ‘将模块中存储的随机数赋值给text4,测试用 47 48 If y = comnum Then ‘如果输入的注册码与产生的随机数完全一致，则进入主程序；否则弹出对话框 49 50 SaveSetting "Internet Explorer", "Startup", "regedit", comnum ‘当写入的注册码正确时，将正确的注册码保存到注册表当中，下次启动时先检测注册表项目 51 ‘根据注册表值决定是否需要弹出注册窗体 52 Unload Me 53 Form_main.Show 54 55 Else 56 MsgBox "注册码错误", , "信息提示" 57 End If 58 59 End Sub
2、主程序窗口：简单的增加一个Label 显示一句话：恭喜，属于你自己的注册机运行成功了！
第三部分，注册码生成工具。
注册码生成工具比较简单了，直接完成自己设计的算法的逆向就可以了。
标签：
原文地址：http://www.cnblogs.com/huanzxj/p/5904315.html
