C# と VB.NET の質問掲示板

現在、バイナリファイルを暗号化、複合化しています。
ですが、暗号化ファイルを書き込む箇所で"配列を作成する場合サイズが適切であることを確認します。"というエラーが出て書き込みできません。
短いファイルの場合は、エラーが出ないのですが、書き込むファイルのバイト数が大きい場合、エラーが出ます。
どなたかご教授いただけないでしょうか?
お願いします。

コードは、WEB公開のコードを参考にしています。環境はVB2008、XPです。
コードは以下になります。
Public Shared Sub EncryptFile(ByVal fileName As String, _
                             ByVal key As String)
        '暗号化するファイルを読み込む
        Dim fsIn As New System.IO.FileStream(fileName, _
            System.IO.FileMode.Open, System.IO.FileAccess.Read)
        'すべて読み込む
        Dim bytesIn(fsIn.Length - 1) As Byte
        fsIn.Read(bytesIn, 0, bytesIn.Length)
        '閉じる
        fsIn.Close()

        'DESCryptoServiceProviderオブジェクトの作成
        Dim des As New System.Security.Cryptography.DESCryptoServiceProvider

        '共有キーと初期化ベクタを決定
        'パスワードをバイト配列にする
        Dim bytesKey As Byte() = System.Text.Encoding.UTF8.GetBytes(key)
        '共有キーと初期化ベクタを設定
        des.Key = ResizeBytesArray(bytesKey, des.Key.Length)
        des.IV = ResizeBytesArray(bytesKey, des.IV.Length)

        '暗号化されたファイルの保存先
        Dim outFileName As String = fileName + ".enc"
        '暗号化されたファイルを書き出すためのFileStream
        Dim fsOut As New System.IO.FileStream(outFileName, _
            System.IO.FileMode.Create, System.IO.FileAccess.Write)
        'DES暗号化オブジェクトの作成
        Dim desdecrypt As System.Security.Cryptography.ICryptoTransform = _
            des.CreateEncryptor()
        '書き込むためのCryptoStreamの作成
        Dim cryptStreem As New System.Security.Cryptography.CryptoStream( _
            fsOut, desdecrypt, _
            System.Security.Cryptography.CryptoStreamMode.Write)
        MsgBox(bytesIn.ToString)
        '書き込む
　　　　'■■■■■■■■■ここでエラーが出ます。(エラー内容："配列を作成する場合サイズが適切であることを確認します。")
        cryptStreem.Write(bytesIn, 0, bytesIn.Length)
       
        '閉じる
        cryptStreem.Close()
        fsOut.Close()
    End Sub

そりゃ BeginWrite の完了後に呼び出されるコールバックで EndRead すりゃ、
怒られるのは当然だと思いますが。
同期アクセス（Read/Write）で実装すれば十分だと思いますよ。
ざっくりこんな感じ。

バッファ確保
Do
    読み取り量 = 読み取り元.Read(バッファ)
    If (読み取り量 > 0) Then
        書き込み先.Write(バッファに読み取れた分だけ)
    Else
        ループ終了
Loop

 実装できました！！
コードは次のようになりました。
1GBあるファイルも暗号化中エラーにはなりませんでした。
皆様ありがとうございました。



Public Sub EncryptFile(ByVal fileName As String, _
                             ByVal key As String)
        Dim cryptStreem As System.Security.Cryptography.CryptoStream = Nothing '書き込み用ストリームの作成
        Dim fsIn As System.IO.FileStream = Nothing 'ファイル読み込み用
        Dim fsOut As System.IO.FileStream = Nothing 'ファイルを書き込むストリームの作成
        Dim Readflg As Boolean = False '読込み様ファイルを開いたか確認
        Dim Writeflg As Boolean = False '書き込み用ファイルを開いたか確認
        Dim StreamWriteflg As Boolean = False '暗合化用ファイルを開いたか確認

        '暗号化のための宣言
        'DESCryptoServiceProviderオブジェクトの作成
        Dim des As New System.Security.Cryptography.DESCryptoServiceProvider

        '共有キーと初期化ベクタを決定
        'パスワードをバイト配列にする
        Dim bytesKey As Byte() = System.Text.Encoding.UTF8.GetBytes(key)
        '共有キーと初期化ベクタを設定
        des.Key = ResizeBytesArray(bytesKey, des.Key.Length)
        des.IV = ResizeBytesArray(bytesKey, des.IV.Length)
        '暗号化されたファイルの保存先
        Dim outFileName = fileName.Substring(0, fileName.Length - 4) + ".enc"

        Try

            '暗号化されたファイルを書き出すためのFileStream
            fsOut = New System.IO.FileStream(outFileName, _
                System.IO.FileMode.Create, System.IO.FileAccess.Write)
            Writeflg = True

            'DES暗号化オブジェクトの作成
            Dim desdecrypt As System.Security.Cryptography.ICryptoTransform = _
                des.CreateEncryptor()

            '書き込むためのCryptoStreamの作成
            cryptStreem = New System.Security.Cryptography.CryptoStream( _
                fsOut, desdecrypt, _
                System.Security.Cryptography.CryptoStreamMode.Write)
            StreamWriteflg = True 'ストリーム用フラグ

            'ファイルの有無を確認
            If System.IO.File.Exists(fileName) = False Then
                MsgBox("ファイルが見つかりません。") 'ファイルがなければ処理を終わる
                Exit Sub
            End If


            '暗号化するファイルを読み込む
            fsIn = New System.IO.FileStream(fileName, _
                System.IO.FileMode.Open, System.IO.FileAccess.Read)
            Readflg = True 'ファイルを開いた

            'すべて読み込む
            Dim fileSize As Integer = fsIn.Length 'ファイルサイズ
            'データ格納用配列
            Dim readSize As Integer 'Readメソッドで読み込んだバイト数
            Dim remain As Integer = fileSize '読み込む残りのバイト数
            Dim bufpos As Integer 'データ格納用配列内の追加位置

            While remain > 0 'もし残りのファイルサイズ0じゃないとき
                bufpos = 0
                bytesIn1 = New Byte(Math.Min(299999999, _
                                             fileSize - 1)) {}

                '読み込む
                While bufpos < bytesIn1.Length

                    '1000バイトづつ読み込む

                    readSize = fsIn.Read(bytesIn1, bufpos, Math.Min(1000, remain))

                    If remain <= 0 Then 'もし残りのファイルサイズが0なら
                        Exit While '処理を終了
                    End If

                    '暗号化して書き出す
                    cryptStreem.Write(bytesIn1, bufpos, Math.Min(1000, remain)) '書き込む
                    bufpos += readSize '読み込む位置を進める
                    remain -= readSize '残りのファイルサイズを更新

                End While

            End While

        Catch ex As Exception

            MsgBox(ex.ToString)
            Exit Sub

        Finally
            'ファイルを開いていたら()

            If Readflg = True Then

                fsIn.Close() '読み込み用ファイルを閉じる

            End If

            If StreamWriteflg = True Then

                cryptStreem.Close() '暗合化用ファイルが開いていたら閉じる

                If Writeflg = True Then
                    fsOut.Close() '書き込み用ファイルが開いていたら閉じる
                End If

            End If


        End Try

    End Sub