Question

用VB做了个程序,怎么给它加注册码阿?

用VB做了个程序,怎么给它加注册码阿? 让别人需要输入我设定的注册码才能使用。说详细点。

Answer 1

一般是这样操作的！读取硬盘序列号及CPU序列号进行右逆运算进行加密产生注册码，将加密串进行解密后再进行不可逆加密算法产生激活码传回进行激活！具体算法网上可找到，改些参数就可以了读取硬盘序列号 api 函数Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long可读取硬盘序列号以下是读取CPU序列号的代码Public Function GetwmiProcessorID() As String
Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObjectSet cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). InstancesOf("Win32_Processor")
For Each cpu In cpuSet
GetwmiProcessorID = cpu.processorid
NextEnd Function

Answer 2

其实，你 可以 想 别的思路！

如，要求对方 给 你 email

然后，你 回复 对方 一串 码

或者 到你指定 的 网站 注册，不需你 干预

你 程序 里 就有 一个 验证 方法

本人觉得 预置 的 方法 不可取

Answer 3

如果不想自己设计算法，最好使用一些比较难脱的加密壳，都有这样的功能~