visualbasic(vb.net)中如何实现机器绑定验证——硬盘绑定

第1部分：应用场景

开发应用程序，有的时候，我们确实有些私心，某些应用不是随随便便谁都能用的，这样很有可能烂大街，所以对用户进行一种验证是有必要的。今天我就分享下大部分人常用的机器码验证！

第2部分：解决方案

不难理解，设备也会有自己的身份证，就像网络ip，也是一个身份证，所以我们要进行机器码验证，就是要构造这个身份证，以后也是用这个身份证来识别。今天我们就讲在visualbasic(vb.net)中获取硬盘序列号来构造一个身份证，下面是我给各位分享的源代码：

   Public Function GetMachineCode() As String
        Try
            Dim MyHardDiskID1 As String = "" rem 第一块硬盘序列号
            Dim MySearcher As New Management.ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
            For Each MyObject As Management.ManagementObject In MySearcher.Get()
                MyHardDiskID1 = MyObject("SerialNumber").ToString().Trim()
                Exit For  rem 因可能还有第二块硬盘
            Next
            Dim MyHardDiskID2 As String = "" rem 第一块硬盘序列号
            MySearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
            Dim Uint32 As UInt32
            For Each CmicWmiObj As Management.ManagementObject In MySearcher.Get
                Uint32 = CmicWmiObj("signature")
                Exit For
            Next
            MyHardDiskID2 = Uint32.ToString '
            Return (MyHardDiskID1 * 2 + MyHardDiskID2 * 11 + 64).ToString
        Catch ex As Exception
            Throw ex
        End Try
    End Function

第3部分：结论

返回的结果可以进行随意组合，还可以配合上我之前的文章《visual basic(vb.net)中如何对字符串进行TripleDESCryptoServiceProvider加密应用场景》所介绍的加密方法，给这个“机器码”加密，就更加完美了