首先，说一个标准的实现方法。（实现兼容Weak KEY的方向稍后再说）
此方法受.NET自身的限制，具有一定的局限性，无法使用DES弱密钥（Weak Key），如FFFFFFFFFFFFFFFF（十六进制），一旦使用程序就会报错（错误提示大意为：检测到弱密钥）。
因此，该代码无法用于设计智能卡应用（许多智能卡的初始DES密钥都属于.NET限制的“弱密钥”）。
'注：此处输入输出的字节数组内，均为二进制数据。如果需要使用文本（明文），请自行转换。 Dim inputByteArray As Byte() '明文，以字节数组形式表达 Dim KeyAsBytes() As Byte '密钥，以字节数组形式表达，8字节 Dim IVAsBytes() As Byte '初始向量IV，以字节数组形式表达，8字节 Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider() DES.Key = KeyAsBytes DES.IV = IVAsBytes DES.Mode = Security.Cryptography.CipherMode.ECB 'DES-ECB模式 DES.Padding = Security.Cryptography.PaddingMode.None Dim result() As Byte result = DES.CreateEncryptor().TransformFinalBlock(inputByteArray, 0, inputByteArray.Length) '运算结果为字节数组
下面讲实现兼容Weak KEY的方法。
网路上早已有大师们写出了功能相同的C#代码，主要原理是利用反射（reflection），绕过.Net对Weak KEY的侦测。
参考链接1：解决DESCryptoServiceProvider加解密时弱密钥异常_努力的犀牛的博客-CSDN博客_如何检测是否为弱密钥
参考链接2：C# 3DES加密及弱密钥处理_MHSMIE的专栏-CSDN博客
参考链接3：c# - Weak Key for DES in .NET - Stack Overflow
我们将C#的代码稍作修改，变成VB .Net代码。
Private Function CreateWeakDESDecryptor(ByVal uKey() As Byte) As Security.Cryptography.ICryptoTransform
Dim uIV() As Byte = New Byte() {&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0} 'IV
Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider()
DES.Mode = Security.Cryptography.CipherMode.ECB 'DES-ECB模式（该模式不需要IV）
DES.Padding = Security.Cryptography.PaddingMode.None '禁止自动填充
Dim mi As System.Reflection.MethodInfo = DES.GetType().GetMethod("_NewEncryptor", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
Dim Par() As Object = {uKey, DES.Mode, uIV, DES.FeedbackSize, 1} '最后的1为解密，0为加密
Dim trans As Security.Cryptography.ICryptoTransform = mi.Invoke(DES, Par)
Return trans
End Function
Private Function CreateWeakDESEncryptor(ByVal uKey() As Byte) As Security.Cryptography.ICryptoTransform
Dim uIV() As Byte = New Byte() {&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0}
Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider()
DES.Mode = Security.Cryptography.CipherMode.ECB 'DES-ECB模式（该模式不需要IV）
DES.Padding = Security.Cryptography.PaddingMode.None '禁止自动填充
Dim mi As System.Reflection.MethodInfo = DES.GetType().GetMethod("_NewEncryptor", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
Dim Par() As Object = {uKey, DES.Mode, uIV, DES.FeedbackSize, 0} '最后的1为解密，0为加密
Dim trans As Security.Cryptography.ICryptoTransform = mi.Invoke(DES, Par)
Return trans
End Function
'使用如下方法调用
Dim uTmpEncText as Byte = New Byte() {&H6A, &HCC ,&H20 ,&H4F ,&H8E &HFB ,&HCC ,&HC7}
Dim uKey() as Byte = New Byte() {&H00 ,&H01 ,&H02 ,&H03 ,&H04 ,&H05 ,&H06 ,&H07}
Dim uTmpClearText() as Byte
uTmpClearText = CreateWeakDESDecryptor(uKey).TransformFinalBlock(uTmpEncText, 0, 8)
