Vb.net 綁機碼問題

s131900

相信寫程式的大大也有遇過這個問題....
小弟原本的想法是讀取硬碟的序號、CUP的序號...

然後再去混合字串

但這個方法好像無法用於每台電腦上

求其他大大幫幫我......

Jeepluo

以下是取硬體的序號，至於怎麼混合加密就看你自已了

1. '取得CPU序號
   
2. Public Declare Sub GetSystemInfo Lib "kernel32" (ByRef lpSystemInfo As SYSTEM_INFO)
   
3. Public Structure SYSTEM_INFO
   
4.     Dim dwOemID As Integer
   
5.     Dim wProcessorArchitecture As Integer
   
6.     Dim wReserved As Integer
   
7.     Dim dwPageSize As Integer
   
8.     Dim lpMinimumApplicationAddress As Integer
   
9.     Dim lpMaximumApplicationAddress As Integer
   
10.     Dim dwActiveProcessorMask As Integer
    
11.     Dim dwNumberOrfProcessors As Integer
    
12.     Dim dwProcessorType As Integer
    
13.     Dim dwAllocationGranularity As Short
    
14.     Dim wProcessLevel As Short
    
15.     Dim wProcessorRevision As Short
    
16. End Structure
    
17. Public Function GetCPUCode() As String
    
18.     Dim CPUInfo As SYSTEM_INFO
    
19.     GetSystemInfo(CPUInfo)
    
20.     Return CPUInfo.dwProcessorType
    
21. End Function
    
22. '取得硬碟序號
    
23. Private Function GetHardDriveCode(ByVal DrvIdx As Byte) As String
    
24.     Dim WMI As Object = GetObject("winmgmts:")
    
25.     Dim strCls As String = "Win32_PhysicalMedia"
    
26.     Dim strKey As String = strCls & ".Tag=""\\\\.\\PHYSICALDRIVE" & DrvIdx & """"
    
27.     Return WMI.InstancesOf(strCls)(strKey).SerialNumber.ToString.Trim
    
28.     System.Runtime.InteropServices.Marshal.ReleaseComObject(WMI)
    
29. End Function
    
30. '取得主機板序號
    
31. Private Function GetMotherBoardCode() As String
    
32.     Dim WMI As Object = GetObject("winmgmts:")
    
33.     Dim strCls As String = "Win32_BaseBoard"
    
34.     Dim strKey As String = strCls & ".Tag=""Base Board"""
    
35.     Return WMI.InstancesOf(strCls)(strKey).SerialNumber.ToString.Trim
    
36.     System.Runtime.InteropServices.Marshal.ReleaseComObject(WMI)
    
37. End Function

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

基本上現在很少用綁機碼的方式了...
因為用虛擬機就可破解掉
之前我也寫過這種型態的程式
有的連主機板都取不到序號...

去研究密碼學吧