利用硬盘序列号计算软件注册码。
在模块中加入下列声明: 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 End Sub
Private Sub CmdRegID_Click() '根据原ID算出注册ID If IsNumeric(Text1.Text) Then Regid = CLng(Text1.Text) / 4 * 3 + 987654321 Else 'error End If Text2.Text = Regid End Sub
Private Sub CmndCheckID_Click() '验证注册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) Dim Tid As Long Tid = volNumber / 2 + 123456789 If Regid = Tid / 4 * 3 + 987654321 Then MsgBox "正确!" Else MsgBox "错误!" End If End Sub
为便于演示,我在窗体上用了两个文本框三个按钮,请根据情况灵活使用,可以在用户端算出原ID,发给你,你算出注册ID再发给用户,验证当然是在用户端啦。ID算法很简单,只作示范。此注册ID只能在这一台机器上使用,对于非高手用户来说是足够啦。 注:如用户格式化C:盘后需重新获得ID。 
|