软件授权的一个简易实现方案

辛辛苦苦开发出来的软件，都希望能够有所保护，除去用软件狗外，授权码是一个比较有效而又比较容易实现的保护机制。以下提供一个简易的实现方案。

第一步：我们要实现一个与程序系统所在机器绑定的唯一机制。在.net环境下，获取mac地址是一个比较靠谱的办法，相对而言获取cpu id或硬盘id都不能保证获得唯一的ID。（当然用户要篡改mac，就没辙了）。然后通过获得的mac地址，进行简单算法换算，获得一个LicenseClientKey。

第二步：我们设计一个算法，根据LicenseClientKey，计算得到一个LicenseKey并将它发布给最终用户。

第三步：最终用户获得LicenseKey后，将LicenseKey安装到系统中。

最后，就是系统程序检测LicenseKey是否正确。通过前面第一步、第二步的方法获得LicenseClientKey，并计算得出LicenseKey，然后比较是否与系统安装的LicenseKey匹配。

代码的实现很简单，这里就只给出获取mac地址及算法换算，并计算LicenseClientKey的代码片段。

需要引用以下几个namespace

Imports System.Net

Imports System.Net.NetworkInformation

Imports System.Security.Cryptography

获取LicenseClientKey

        Dim strClientKeyCode As String = ""
        Try
            For Each nic As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
                If nic.OperationalStatus = OperationalStatus.Up Then
                    If strClientKeyCode = "" Then
                        strClientKeyCode = nic.GetPhysicalAddress().ToString()
                    End If
                End If
            Next
        Catch ex As Exception
            strClientKeyCode = ""
        End Try

        If strClientKeyCode = "" Then
            Response.Write("Can't get LicenseClientKey")
        Else
            Dim encoder As New UTF8Encoding
            Dim hashedBytes As Byte()
            Dim hasher As New SHA256Managed
            Dim sBuilder As New StringBuilder
            hashedBytes = hasher.ComputeHash(encoder.GetBytes("YourKey" + strClientKeyCode))
            For i As Integer = 0 To hashedBytes.Length - 1
                sBuilder.Append(hashedBytes(i).ToString("x2"))
            Next i
            Response.Write(sBuilder.ToString)
        End If