相关的Namespace请参考者自行导入。
Public Shared Function DesEncrypt() Function DesEncrypt(ByVal strInput As String) As String Dim objDesCrypSrvPrvd As DESCryptoServiceProvider Dim objMemoryStream As MemoryStream = Nothing Dim objCryptoStream As CryptoStream = Nothing Dim byteKey() As Byte = Text.Encoding.ASCII.GetBytes(mstrKey) Dim byteData() As Byte = Text.Encoding.ASCII.GetBytes(strInput) Try objDesCrypSrvPrvd = New DESCryptoServiceProvider objMemoryStream = New MemoryStream objCryptoStream = New CryptoStream(objMemoryStream, objDesCrypSrvPrvd.CreateEncryptor(byteKey, byteKey), CryptoStreamMode.Write) objCryptoStream.Write(byteData, 0, byteData.Length) objCryptoStream.FlushFinalBlock() Return Convert.ToBase64String(objMemoryStream.ToArray) Catch ex As Exception Throw New Exception("eHR.eHRDatabase.DesDecrypt:" & ex.Message, ex) Finally objMemoryStream.Dispose() objCryptoStream.Dispose() objDesCrypSrvPrvd = Nothing End Try End Function Public Shared Function DesDecrypt() Function DesDecrypt(ByVal strInput As String) As String Dim objDesCrypSrvPrvd As DESCryptoServiceProvider Dim objMemoryStream As MemoryStream = Nothing Dim objCryptoStream As CryptoStream = Nothing Dim objEncoding As Text.Encoding Dim byteKey() As Byte = Text.Encoding.ASCII.GetBytes(mstrKey) Dim byteData() As Byte = Convert.FromBase64String(strInput) Try objDesCrypSrvPrvd = New DESCryptoServiceProvider objMemoryStream = New MemoryStream objEncoding = New ASCIIEncoding objCryptoStream = New CryptoStream(objMemoryStream, objDesCrypSrvPrvd.CreateDecryptor(byteKey, byteKey), CryptoStreamMode.Write) objCryptoStream.Write(byteData, 0, byteData.Length) objCryptoStream.FlushFinalBlock() Return objEncoding.GetString(objMemoryStream.ToArray) Catch ex As Exception Throw New Exception("eHR.eHRDatabase.DesEncrypt:" & ex.Message, ex) Finally objMemoryStream.Dispose() objCryptoStream.Dispose() objDesCrypSrvPrvd = Nothing End Try End Function转载于:https://www.cnblogs.com/LazzyTiger/archive/2008/05/05/1182903.html
相关资源：垃圾分类数据集及代码