用vb.net基于Windows序列号的软件加密技术代码

以下是一个简单的示例代码，可以基于 Windows 序列号实现软件加密：

'获取Windows序列号
Dim wmi As Object = GetObject("winmgmts:")
Dim sn As String = ""
For Each item In wmi.InstancesOf("Win32_OperatingSystem")
    sn = item.SerialNumber
Next

'使用序列号生成加密密钥
Dim key As String = "mysecretkey" + sn

'使用密钥对数据进行加密
Dim plainText As String = "Hello world"
Dim encryptedText As String = EncryptString(plainText, key)

'使用密钥对数据进行解密
Dim decryptedText As String = DecryptString(encryptedText, key)

'Show结果
Console.WriteLine("Plain Text: " + plainText)
Console.WriteLine("Encrypted Text: " + encryptedText)
Console.WriteLine("Decrypted Text: " + decryptedText)

'加密函数
Private Function EncryptString(ByVal plainText As String, ByVal key As String) As String
    Dim plainBytes As Byte() = Encoding.UTF8.GetBytes(plainText)
    Dim keyBytes As Byte() = Encoding.UTF8.GetBytes(key)
    Dim cryptoProvider As New DESCryptoServiceProvider
    cryptoProvider.Mode = CipherMode.ECB
    cryptoProvider.Padding = PaddingMode.PKCS7
    Dim memoryStream As New MemoryStream
    Dim cryptoStream As New CryptoStream(memoryStream, cryptoProvider.CreateEncryptor(keyBytes, keyBytes), CryptoStreamMode.Write)
    cryptoStream.Write(plainBytes, 0, plainBytes.Length)
    cryptoStream.FlushFinalBlock()
    Return Convert.ToBase64String(memoryStream.ToArray)
End Function

'解密函数
Private Function DecryptString(ByVal encryptedText As String, ByVal key As String) As String
    Dim encryptedBytes As Byte() = Convert.FromBase64String(encryptedText)
    Dim keyBytes As Byte() = Encoding.UTF8.GetBytes(key)
    Dim cryptoProvider As New DESCryptoServiceProvider
    cryptoProvider.Mode = CipherMode.ECB
    cryptoProvider.Padding = PaddingMode.PKCS7
    Dim memoryStream As New MemoryStream(encryptedBytes)
    Dim cryptoStream As New CryptoStream(memoryStream, cryptoProvider.CreateDecryptor(keyBytes, keyBytes), CryptoStreamMode.Read)
    Dim plainBytes(encryptedBytes.Length - 1) As Byte
    Dim decryptedByteCount As Integer = cryptoStream.Read(plainBytes, 0, encryptedBytes.Length)
    Return Encoding.UTF8.GetString(plainBytes, 0, decryptedByteCount)
End Function

以上代码使用 DES 对称加密算法进行加密，密钥由自定义的字符串和 Windows 序列号拼接而成。实际应用中，为了更好的安全性，可以使用更高强度的加密算法和更复杂的密钥生成算法。