Первые несколько символов, потерянные во время расшифровки

Я использую шифрование AES CBC в VB.Net, а расшифровка выполняется с использованием AS3Crypto. Первые несколько символов (около 16) отсутствуют при расшифровке и заменяются случайными символами, как показано ниже.

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

Вот мой код.net. На демонстрационной странице AS3Crypto я использую секретный ключ> AES > CBC. Я пробовал с разными настройками для Padding и Key Format все еще не повезло.

Благодарю.

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 ответов

Другие вопросы по тегам