1

VB.Net で AES CBC 暗号化を使用しており、復号化は AS3Crypto を使用して行われます。復号化中に最初の数文字 (約 16 文字) が欠落し、以下のようなランダムな文字に置き換えられます。

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

これが私の.netコードです。AS3Crypto のデモ ページでは、Secret Key > AES > CBC を使用しています。パディングとキー形式の設定を変えてみましたが、まだうまくいきません。

ありがとう。

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
4

0 に答える 0