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

原创 羽化飞翔  2020-08-15 19:35  阅读 448 次
摘要:

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
关注我们:请关注一下我们的微信公众号:扫描二维码羽化飞翔的公众号,公众号:yhfx8686
版权声明:本文为原创文章,版权归 羽化飞翔 所有,欢迎分享本文,转载请保留出处!此外,本网站旨在向广大网友提供任何资源的开发、使用、安装教程,所提供的下载服务仅供学习交流探讨,请广大网友学习完成后,24小时内删除相关资源。如果涉及到侵犯版权事宜,请联系删除资源下载信息,谢谢各位的理解与支持!
打赏二维码

发表评论

您必须 登录 才能发表留言!