共享软件作者制作的管理软件注册的动态链接库
作为共享软件作者，注册码被非法公布是件令你十分头疼的事情。小弟制作了这么一个类库。希望能有所帮助。它每次在RegestCheck被执行一遍的时候生成动态的用户名及密码，并保存入注册表。但软件已经注册的话则不改变原来的注册信息。所以，盗用注册码对它是没用的。
它有三个方法，四个属性。RegestCheck用来检查您的共享软件是否注册，Regest用来注册您的共享软件。GetNamePassword是为Name，Password属性赋一个合法的值。Regested 属性是保存共享软件是否注册过的信息的。RegestedKey是您的软件在注册表LOCAL_MACHINE主键中注册的键名。至于RegestName，RegestPassword就是保存合法的用户名及密码的了。
例子程序如下：
Option Explicit
Private Sub Form_Load()
Dim Temp As ClassRegest ‘请先在”引用”中引用这个类（动态链接库）
Set Temp = New ClassRegest
Temp.RegestKey = "Software\RegestTest" ‘设置你的软件在注册表中注册的键名
Temp.Regestcheck ‘判断是否注册, 判断结果保存在Regested属性中
‘必须先赋值RegestKey及执行一遍RegestCheck,其它的属性及方法才能被正确执行
MsgBox "Regeted is " & Temp.Regested
Temp.GetNamePassword ’通过一定的算法为RegestName,RegestPassword赋于一个合法的值
MsgBox "name is: " & Temp.RegestName
MsgBox "password is: " & Temp.RegestPassword
Temp.Regest ‘如果共享软件没有注册,则注册这个软件
Set Temp=Nothing
End Sub
现在把这个DLL动态链接库的源代码提供如下：
(VB6.0测试通过)
Option Explicit
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002 注释：注册表函数的几个参数
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_SET_VALUE As Long = &H2
Private Const REG_SZ As Long = 1
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private m_Regested As Boolean 注释：是否注册属性
Private m_RegestKey As String 注释：注册表中的子键名
Private m_Name As String 注释：用户名属性
Private m_Password As String 注释：密码属性
Private nCount As Integer 注释：用来临时计数
Private lReturn As Long 注释：接收返回值
Private Const sTarget As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,.;:" 注释：用来生成随机文本
Private FSO As FileSystemObject 注释：用来产生随机文件的文件系统对象
Private FSOFile As File
Private FSOString As TextStream
Private Sub Class_Initialize([1] [2] [3] [4] [5] [6] 下一页
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 