.net中使用TripleDESCryptoServiceProvider进行3DES加密遇到弱密钥的问题

在使用TripleDESCryptoServiceProvider进行3DES加密的时候，使用16byte全F的密钥，抛出异常，提示弱密钥，但是该密钥是由上游厂商提供不能随意修改。因此只能想办法屏蔽掉弱密钥检查，即让isWeakKey方法返回false。

有2种解决方法：

一是重写TripleDESCryptoServiceProvider，虽然网上有现成的源码，但还是太麻烦。

二是利用.net的反射机制，手动创建ICryptoTransform实例，绕过.net自身的弱密钥检查，代码如下：

Public Function Encrypt3DES(ByVal strString As String, ByVal strKey As String) As String
       '密文
       Dim destStr As String = ""
       '3DES加密对象
       Dim DES As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider()
       '初始向量
       Dim Iv() As Byte = {&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0}
       '密钥
       Dim Key() As Byte = format.HexStringToByteArray(strKey)
 
       Dim mi As MethodInfo = DES.GetType().GetMethod("_NewEncryptor", BindingFlags.NonPublic Or BindingFlags.Instance)
       Dim param() As Object = {Key, CipherMode.CBC, Iv, DES.FeedbackSize, 0}
       Dim DESEncrypt As ICryptoTransform = CType(mi.Invoke(DES, param), ICryptoTransform)
 
       '明文的byte[]形式
       Dim Buffer() As Byte = format.HexStringToByteArray(strString)
       '加密得到密文的byte[]形式
       Dim tmpStr() As Byte = DESEncrypt.TransformFinalBlock(Buffer, 0, Buffer.Length)
 
       '将密文转为可见字符
       destStr = format.ByteArrayToHexString(tmpStr)
 
       Encrypt3DES = destStr
   End Function