思路是:
在金昌等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站设计制作、做网站 网站设计制作按需制作网站,公司网站建设,企业网站建设,品牌网站制作,营销型网站,成都外贸网站制作,金昌网站建设费用合理。
读取电脑硬件的信息,用随机数加工这些信息后在注册表中做个记录,用这个记录生成注册码送回给你,你按特定的方法生成序列号,你的小程序收到序列号后还原成数据,数据比较注册表中的记录,如果正确就加入第二部分注册的信息完成注册.你的程序每次打开时,先比对硬件信息-第一注册信息-第二注册信息,看这三者是否统一,不统一的就是使用期软件.
也可以省了第一注册信息,直接发硬件信息给你生成序列号,其他的相同.
Private Function 硬盘序列号() As String
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 0\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))
Catch
Try
Dim myInfo As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("HARDWARE\DEVICEMAP\Scsi\Scsi Port 1\Scsi Bus 1\Target Id 0\Logical Unit Id 0")
硬盘序列号 = Trim(myInfo.GetValue("SerialNumber"))
Catch
硬盘序列号 = ""
End Try
End Try
End Function
只在我的电脑上试过，你试下
注册码很好做啊 利用现在成熟的加密解密技术 很不容易破解的 但现在的.net时代 问题的关键不在这里 而是在如何加密自己的软件不让反编译 看看现在的.net软件 就算使用了乱码器 都好容易被反编译出来 只要被反编译 就会删掉你程序的注册功能部分 然后再重新编译 就可以无需注册正常使用了 根本就不用去破解你那深奥的注册码！
最简单的一个是，在启动窗体中，加入一行代码：if inputbox("请输入注册码","注册",123") “123456” then end'这个是说，如果输入的不是123456，就退出程序，正确后就向下执行。如果要注册码与用户名相结合，则要先用用户名作为种子，进行加密操作，生成一个注册码，成一一对应关系就行了。如用户名为abc，代码如下：dim a as string,b as string,i as integer,k as integera=inputbox("请输入用户名","注册用户")for i = 1 to len(a)b=b str(asc(mid(a,i,1)))next ib=6 bif b-int(len(b)/2)*2 = 1 then b = b 4text1 = "用户名是：" aa=""for i = 1 to len(b) step 2if mid(b,i,2)32 then a=a str(mid(b,i,2)+32) else if mid(b,i,2) 126 then a=a str(mid(b,i,2)-32) else a=a str(mid(b,i,2)) end ifend if next itext1 = text1 " 注册码是： " a这样就可以了
