来源：http://www.extencent.com/show.asp?id=171
Public Class SecurityCenter
Public Shared Function EncriptStr(ByVal Source As String, ByVal Key As String) As String Dim encripter As System.Security.Cryptography.Aes = System.Security.Cryptography.Aes.Create("AES") '设置密钥 Dim keyBytes() As Byte = (New MD5CryptoServiceProvider).ComputeHash(Encoding.Unicode.GetBytes(Key)) encripter.BlockSize = keyBytes.Length * 8 encripter.Key = keyBytes encripter.IV = keyBytes encripter.Mode = CipherMode.CBC encripter.Padding = PaddingMode.PKCS7 Dim cripter As ICryptoTransform = encripter.CreateEncryptor() Dim inBuff As Byte() = Encoding.Unicode.GetBytes(Source) Return Convert.ToBase64String(cripter.TransformFinalBlock(inBuff, 0, inBuff.Length)) End Function ''' <summary> ''' 解密Base64编码的字符串 ''' </summary> ''' <param name="EncodedStr"></param> ''' <param name="Key"></param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function DecriptStr(ByVal EncodedStr As String, ByVal Key As String) As String Dim decripter As System.Security.Cryptography.Aes = System.Security.Cryptography.Aes.Create("AES") '设置密钥 Dim keyBytes() As Byte = (New MD5CryptoServiceProvider).ComputeHash(Encoding.Unicode.GetBytes(Key)) decripter.BlockSize = keyBytes.Length * 8 decripter.Key = keyBytes decripter.IV = keyBytes decripter.Mode = CipherMode.CBC decripter.Padding = PaddingMode.PKCS7 Dim cripter As ICryptoTransform = decripter.CreateDecryptor() Dim inBuff As Byte() = Convert.FromBase64String(EncodedStr) Return Encoding.Unicode.GetString(cripter.TransformFinalBlock(inBuff, 0, inBuff.Length)) End Function End Class

每次代码都乱了。醉了。

不错，在桌面应用可用。但是在商店应用还是看msdn吧。

建议你给代码示例时标注.net framework 版本（桌面应用），或最低系统版本和已测试的最高版本（商店应用）。还有依赖的其它引用，拓展，nuget包 以及它们的最低版本和已测试的最高版本。

由于这种vb与c
#相似度极高，你还可以转换一些c#
代码扩充你的示例库。