求用VB读取主板的ID，或网卡MAC，或硬盘。

2006-09-11 12:54:20 613 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.NET软件授权实战：构建安全可靠的“一机一码”加密系统软件授权是保护开发者知识产权、实现商业变现的核心技术。其基本原理是通过加密算法将软件使用权限与特定设备或用户绑定，防止未授权复制与分发。在技术实现上，通常采用硬件指纹识别、非对称加密和本地/网络验证相结合的方式，确保授权的唯一性与安全性。对于VB.NET等桌面应用，这一技术尤为重要，它能有效防止软件被随意传播，保障开发者的劳动成果。在实际工程中，授权系统需要兼顾安全性与用户体验，例如通过获取主板序列号、硬盘物理序列号等稳定硬件信息生成复合指纹，并利用RSA等算法进行签名验证。本文以VB.NET开发环境为例，阅读详情

我也想让程序和硬件绑定，哈哈，高手教教我吧。

...全文

VB.NET软件授权模块开发：从哈希加密到Mutex防多开的完整实现哈希加密是软件授权与数据完整性校验的核心技术，通过将任意长度数据映射为固定长度摘要，确保信息不可篡改。其原理基于单向散列函数，如MD5、SHA系列算法，在VB.NET中可通过System.Security.Cryptography命名空间实现。这项技术的工程价值在于为软件保护提供轻量级解决方案，既能防止授权码伪造，又能验证数据来源。典型应用场景包括软件激活码生成、试用期控制、模块化功能解锁等。本文以VB.NET加密函数模块为例，详细解析如何设计支持多算法的可配置授权系统，并巧妙集成Mutex机制实现进程级防阅读详情

idealabc

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

happy_sea 2006-09-11

打赏
举报

获取磁盘序列号：
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerial_Numberber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Const GETDI_SERIAL = 1

Function GetDriveSerial(strDrive As String)
Dim Serial_Number As Long
Dim Drive_Label As String
Dim Fat_Type As String
Dim Return_Value As Long
Drive_Label = Space(256)
Fat_Type = Space(256)
Return_Value = GetVolumeInformation(strDrive, Drive_Label, Len(Drive_Label), Serial_Number, 0, 0, Fat_Type, Len(Fat_Type))
GetDriveSerial = CStr(Serial_Number)
End Function

用法：msgbox GetDriveSerial("C:\")

获取网卡MAC地址：
Public Const NCBASTAT As Long = &H33
Public Const NCBNAMSZ As Long = 16
Public Const HEAP_ZERO_MEMORY As Long = &H8
Public Const HEAP_GENERATE_EXCEPTIONS As Long = &H4
Public Const NCBRESET As Long = &H32

Public Type NET_CONTROL_BLOCK 'NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte
ncb_sto As Byte
ncb_post As Long
ncb_lana_num As Byte
ncb_cmd_cplt As Byte
ncb_reserve(9) As Byte ' Reserved, must be 0
ncb_event As Long
End Type

Public Type ADAPTER_STATUS
adapter_address(5) As Byte
rev_major As Byte
reserved0 As Byte
adapter_type As Byte
rev_minor As Byte
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer
recv_buff_unavail As Integer
t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type

Public Type NAME_BUFFER
name As String * NCBNAMSZ
name_num As Integer
name_flags As Integer
End Type

Public Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type

Public Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

Public Declare Function GetProcessHeap Lib "kernel32" () As Long

Public Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long

Public Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long

Public Function GetMACAddress() As String

Dim tmp As String
Dim pASTAT As Long
Dim NCB As NET_CONTROL_BLOCK
Dim AST As ASTAT

NCB.ncb_command = NCBRESET
Call Netbios(NCB)

NCB.ncb_callname = "* "
NCB.ncb_command = NCBASTAT

NCB.ncb_lana_num = 0
NCB.ncb_length = Len(AST)

pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS _
Or HEAP_ZERO_MEMORY, NCB.ncb_length)

If pASTAT = 0 Then
Debug.Print "memory allocation failed!"
Exit Function
End If

NCB.ncb_buffer = pASTAT
Call Netbios(NCB)

CopyMemory AST, NCB.ncb_buffer, Len(AST)

tmp = Format$(Hex(AST.adapt.adapter_address(0)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(1)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(2)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(3)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(4)), "00") & " " & _
Format$(Hex(AST.adapt.adapter_address(5)), "00")

HeapFree GetProcessHeap(), 0, pASTAT

GetMACAddress = tmp

End Function

用法：msgbox GetMACAddress()

christion3 2006-09-11

打赏
举报

http://www.mndsoft.com/blog/article.asp?id=671

求用VB读取主板的ID，或网卡MAC，或硬盘。

相关推荐