正在阅读：利用硬盘序列号计算软件注册码利用硬盘序列号计算软件注册码

2004-03-03 10:03 出处：CSDN 作者：sth1002 责任编辑：linjixiong

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。

察看评论详细内容我要发表评论