利用硬盘序列号计算软件注册码

最新推荐文章于 2024-12-06 22:23:27 发布

原创

最新推荐文章于 2024-12-06 22:23:27 发布 · 1.8k 阅读

文章标签：

#string #function #算法 #c #磁盘

本文介绍了一种利用硬盘序列号计算软件注册码的方法。通过调用`GetVolumeInformation`函数获取C盘序列号，然后进行特定的数学运算生成原ID和注册ID。这种方法确保了注册ID的独特性，仅适用于生成该ID的特定机器。当用户格式化C盘后，需重新获取ID以进行注册验证。

在模块中加入下列声明：
Public 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
'得到某一磁盘分区的信息，如C：

窗体代码如下：
Option Explicit
Private Regid, Localid As Long

Private Sub CmdLocalID_Click()
'根据C盘序列号得到原ID
Dim Driver, VolName, Fsys As String
Dim volNumber, MCM, FSF As Long
Driver = "c:/"
Dim res As Long
res = GetVolumeInformation(Driver, VolName, 127, volNumber, MCM, FSF, Fsys, 127)
'volNumber是C盘序列号
Localid = volNumber / 2 + 123456789
Text1.Text = Localid
En