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

2020/08/15 19:35 · VB.NET · 19阅读 · 0评论
阿里云·云小站,新老用户同享,1核2G云服务器低至89元/年,229元/3年;2核4G3M3年639元
摘要:

visualbasic(vb.net)中实现机器绑定验证的应用场景:开发应用程序,有的时候,我们确实有些私心,某些应用不是随随便便谁都能用的,这样很有可能烂大街,所以对用户进行一种验证是有必要的。今天我就分享下大部分人常用的机器码验证!

visualbasic(vb.net)中实现机器绑定验证的应用场景

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

visualbasic(vb.net)中实现机器绑定验证的解决方案

        不难理解,设备也会有自己的身份证,就像网络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

visualbasic(vb.net)中实现机器绑定验证的结论

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

您可能感兴趣的文章

本文地址:https://www.huazai186.com/post/198.html
文章标签: ,   ,   ,   ,  
版权声明:本文为原创文章,版权归 羽化飞翔 所有,欢迎分享本文,转载请保留出处!

文件下载

上一篇:
下一篇:
腾讯云618云聚惠活动火热进行中,1核2G-288元/3年,2核4G3M-1288元/3年,2核8G5M-1688元/3年,4核8G5M-1999元/3年

 发表评论


表情