1

対称暗号化を使用して一部のデータを暗号化し、データを使用して復号化するために必要なキーをMemoryStreamに保存しようとしています。（これだけでもセキュリティの面で非常に馬鹿げていることはわかっていますが、RSAを使用して対称鍵を暗号化します。ただし、今はこの部分を機能させようとしています。）

FileHelpersライブラリを使用して、区切り文字のデータを解析しています（データにセミコロンが含まれるとは思わないため、セミコロン）。残念ながら、私の復号化関数では、解析中に1つのレコードしか返されません。また、この関数の最後に作成された暗号化されたデータの文字列全体を表示すると、複数のレコードを使用しているようには見えません。

新しい暗号化ストリームを作成すると、デフォルトでメモリストリームの先頭に設定されるので、暗号化されたデータを書き込むと、メモリストリームに書き込んだばかりのデータが上書きされるのではないかと思います。そうだと思いますか？

ご協力いただきありがとうございます！

Private Function Encrypt(ByVal data As String) As String
    Dim utf8 As New UTF8Encoding
    ' Convert string data to byte array
    Dim inBytes() As Byte = utf8.GetBytes(data)
    ' Create memory stream for storing the data we've manipulated
    Dim ms As New MemoryStream()

    Dim aes As New RijndaelManaged()
    aes.KeySize = 256

    Dim cs As New CryptoStream(ms, aes.CreateEncryptor(), CryptoStreamMode.Write)

    ' Write key to beginning of memory stream
    ms.Write(aes.Key, 0, aes.Key.Length)
    ' Add semicolon delimiter to memory stream
    ms.Write(utf8.GetBytes(";"), 0, utf8.GetBytes(";").Length)
    ' Write IV to memory stream
    ms.Write(aes.IV, 0, aes.IV.Length)
    ' Write semicolon delimiter to memory stream
    ms.Write(utf8.GetBytes(";"), 0, utf8.GetBytes(";").Length)
    ' Ensure that the data we've just written is in the memory stream, before
    ' we add the encrypted data
    ms.Flush()

    ' Write the encrypted data
    cs.Write(inBytes, 0, inBytes.Length) ' encrypt
    cs.FlushFinalBlock()

    ' Return encrypted data as string
    Return Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)
End Function
4

2 に答える 2

1

なぜメモリストリームを書き込んでいるのですか？Cryptoストリームに直接書き込み、暗号化されたデータをメモリストリームから読み取ります。これは、AES暗号化のC＃バージョンです。

aesEncryptorあなたのaes.CreateEncryptor()

        private byte[] encryptWithAes(ICryptoTransform aesEncryptor, byte[] data)
        {
            MemoryStream memStream = null; //stream to write encrypted data to
            CryptoStream cryptoStream = null; //crypto stream to encrypt data

            try
            {
                memStream = new MemoryStream(); 

                //initiate crypto stream telling it to write the encrypted data to the memory stream
                cryptoStream = new CryptoStream(memStream, aesEncryptor, CryptoStreamMode.Write);

                //write the data to the memory stream
                cryptoStream.Write(data, 0, data.Length);
            }
            catch (Exception ee)
            {
                //rethrow
                throw new Exception("Error while encrypting with AES: ", ee);
            }
            finally
            {
                //close 'em
                if (cryptoStream != null)
                    cryptoStream.Close();
                if (memStream != null)
                    memStream.Close();
            }

            //return the encrypted data
            return memStream.ToArray();
        }

これはそのように呼ぶことができます：

public byte[] doEncrypt(byte[] dataToEncrypt)
{
            RijndaelManaged aesAlg = new RijndaelManaged();
            aesAlg.KeySize = AES_KEY_SIZE;
            aesAlg.GenerateKey();
            aesAlg.GenerateIV();
            aesAlg.Mode = CipherMode.CBC;
            aesAlg.Padding = PaddingMode.PKCS7;

            byte[] aesKey = aesAlg.Key;
            byte[] aesIV = aesAlg.IV;

            byte[] encryptedData = encryptWithAes(aesAlg.CreateEncryptor(), dataToEncrypt);

            //store your aesKey, aesIV, and encryptedData together however you want
}

バイナリデータを任意の文字で削除しないでください。そのデータを再度読み取るときは、キーとIVを含むバッファ全体をエンコードする必要があります。エンコードすると、デリメータがランダムに配置される可能性があります。代わりに、キーの長さをバイトとして格納し、その後にキーを格納します。データを読み戻すときは、最初のバイト（キーの長さ）を整数として読み取り、キーを取得するためにどれだけ読み取るかを知ることができます。それはあなたにとって意味がありますか？

于 2011-06-24T16:26:34.790 に答える
1

これを実現する方法の簡単なサンプルを次に示します。Encryptとの両方を含めましたDecrypt。これは、両側で同じパターンに従うことが明らかに重要だからです。関連するエラーチェックなどはお任せします:)

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text

Module Module1

  Sub Main()
    Dim encrypted As String = Encrypt("Here is the data")
    Dim decrypted As String = Decrypt(encrypted)
    Console.WriteLine(decrypted)
    Console.ReadKey()
  End Sub

  Private Function Encrypt(clearText As String) As String
    Dim aes As New RijndaelManaged
    aes.KeySize = 256

    Using ms As New MemoryStream
      ms.WriteByte(aes.Key.Length)
      ms.Write(aes.Key, 0, aes.Key.Length)
      ms.WriteByte(aes.IV.Length)
      ms.Write(aes.IV, 0, aes.IV.Length)

      Using cs As New CryptoStream(ms, aes.CreateEncryptor(), CryptoStreamMode.Write)
        Dim bytes() As Byte = Encoding.UTF8.GetBytes(clearText)
        cs.Write(bytes, 0, bytes.Length)
      End Using

      Return Convert.ToBase64String(ms.ToArray())
    End Using
  End Function

  Private Function Decrypt(cipherText As String) As String
    Dim ms As New MemoryStream(Convert.FromBase64String(cipherText))

    Dim keyLength As Byte = ms.ReadByte()
    Dim key(keyLength - 1) As Byte
    ms.Read(key, 0, keyLength)

    Dim ivLength As Byte = ms.ReadByte()
    Dim iv(ivLength - 1) As Byte
    ms.Read(iv, 0, ivLength)

    Dim dataOffset As Integer = ms.Position

    Dim aes As New RijndaelManaged()
    aes.Key = key
    aes.IV = iv

    Using cs As New CryptoStream(ms, aes.CreateDecryptor(), CryptoStreamMode.Read)
      Using sr As New StreamReader(cs, Encoding.UTF8)
        Return sr.ReadToEnd()
      End Using
    End Using
  End Function
End Module
于 2011-06-24T19:21:42.533 に答える