使用VB.net语言，运用BIOS序列号对软件加密的方法

以下是使用VB.NET语言，运用BIOS序列号对软件进行加密的示例代码：

Imports System.Management
Imports System.Security.Cryptography

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '获取BIOS序列号
        Dim biosSerial As String = GetBiosSerialNumber()
        MessageBox.Show("BIOS序列号为: " & biosSerial)

        '生成加密密钥
        Dim licenseKey As String = "my_license_key"
        Dim encryptionKey As String = GenerateEncryptionKey(biosSerial, licenseKey)
        MessageBox.Show("加密密钥为: " & encryptionKey)

        '加密数据
        Dim dataToEncrypt As String = "Hello World!"
        Dim encryptedData As String = EncryptData(dataToEncrypt, encryptionKey)
        MessageBox.Show("加密后的数据为: " & encryptedData)

        '解密数据
        Dim decryptedData As String = DecryptData(encryptedData, encryptionKey)
        MessageBox.Show("解密后的数据为: " & decryptedData)
    End Sub

    '获取BIOS序列号
    Private Function GetBiosSerialNumber() As String
        Dim query As New SelectQuery("Win32_BIOS")
        Dim searcher As New ManagementObjectSearcher(query)
        Dim bios As ManagementObject = searcher.Get().OfType(Of ManagementObject)().FirstOrDefault()
        If bios IsNot Nothing Then
            Return bios("SerialNumber").ToString()
        Else
            Return ""
        End If
    End Function

    '生成加密密钥
    Private Function GenerateEncryptionKey(biosSerial As String, licenseKey As String) As String
        Dim combinedKey As String = biosSerial & "-" & licenseKey
        Dim sha256 As New SHA256CryptoServiceProvider()
        Dim hashBytes As Byte() = sha256.ComputeHash(Encoding.UTF8.GetBytes(combinedKey))
        Dim encryptionKey As String = Convert.ToBase64String(hashBytes)
        Return encryptionKey
    End Function

    '加密数据
    Private Function EncryptData(dataToEncrypt As String, encryptionKey As String) As String
        Dim aes As New AesCryptoServiceProvider()
        aes.Key = Encoding.UTF8.GetBytes(encryptionKey)
        aes.IV = New Byte() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
        Dim encryptor As ICryptoTransform = aes.CreateEncryptor()
        Dim dataBytes As Byte() = Encoding.UTF8.GetBytes(dataToEncrypt)
        Dim encryptedBytes As Byte() = encryptor.TransformFinalBlock(dataBytes, 0, dataBytes.Length)
        Dim encryptedData As String = Convert.ToBase64String(encryptedBytes)
        Return encryptedData
    End Function

    '解密数据
    Private Function DecryptData(encryptedData As String, encryptionKey As String) As String
        Dim aes As New AesCryptoServiceProvider()
        aes.Key = Encoding.UTF8.GetBytes(encryptionKey)
        aes.IV = New Byte() {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
        Dim decryptor As ICryptoTransform = aes.CreateDecryptor()
        Dim encryptedBytes As Byte() = Convert.FromBase64String(encryptedData)
        Dim dataBytes As Byte() = decryptor.TransformFinalBlock(encryptedBytes, 0, encryptedBytes.Length)
        Dim decryptedData As String = Encoding.UTF8.GetString(dataBytes)
        Return decryptedData
    End Function

End Class

这个示例代码包含了获取BIOS序列号、生成加密密钥、加密数据和解密数据四个方法。其中，获取BIOS序列号使用了WMI技术，生成加密密钥使用了SHA256哈希算法，加密数据和解密数据使用了AES对称加密算法。需要注意的是，加密密钥的生成过程中，使用了BIOS序列号和许可证密钥的组合，保证了加密密钥的唯一性和安全性。