解密过程中丢失的前几个字符

时间:2013-06-26 09:41:57

标签: asp.net vb.net aes as3crypto aescryptoserviceprovider

我在VB.Net中使用AES CBC加密,并使用AS3Crypto进行解密。解密过程中缺少前几个字符(约16个),并替换为下面的随机字符。

05[ÚðÊ\ÃPôôÄ]óbR

这是我的.net代码。在AS3Crypto演示页面上,我使用了密钥> AES> CBC。我尝试使用Padding和Key Formats的不同设置仍然没有运气。

感谢。

Dim plainText = txt2encrypt.Text.Trim

    Dim encrypted() As Byte        '
    Using aesAlg As New AesCryptoServiceProvider()

        aesAlg.Mode = CipherMode.CBC

        ' Create a decrytor to perform the stream transform. 
        Dim encryptor As ICryptoTransform = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV)
        ' Create the streams used for encryption. 
        Using msEncrypt As New MemoryStream()
            Using csEncrypt As New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write)
                Using swEncrypt As New StreamWriter(csEncrypt)

                    'Write all data to the stream.
                    swEncrypt.Write(plainText)
                End Using
                encrypted = msEncrypt.ToArray()
            End Using
        End Using

        Dim encryptedText = Convert.ToBase64String(encrypted)

        txtkey.Text = Convert.ToBase64String(aesAlg.Key)
        txtiv.Text = Convert.ToBase64String(aesAlg.IV)
        txtkeysize.Text = aesAlg.KeySize
        txtencrypted.Text = encryptedText
        txtpadding.Text = aesAlg.Padding

    End Using

0 个答案:

没有答案
相关问题