.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