暗号化、複合化についての質問です。
テキストファイルを一旦ハッシュテーブルにセットしてからファイルに保存というシステムを作っているのですが
ハッシュテーブルからファイルの所で暗号化、複合化したいと考えています。
それでなんですが、下のコードで試したところ、矢印の所で止まってしまいます。
ＣＳＶ形式で保存しています。
暗号化は上手くいくのですが、複合化がうまくいきません。
暗号化と少ししか違わないコードなのにさっぱりわかりません。
誰か助けて下さい・・・
line = reader.read(ちょっとど忘れしました。。。１行ずつ読むという意味です。)

Dim source As Byte() = Encoding.Unicode.GetBytes(line)

Dim des As DESCryptoServiceProvider = New DESCryptoServiceProvider

Dim ms As MemoryStream = New MemoryStream
Dim cs As CryptoStream = New CryptoStream(ms, des.CreateDecryptor(DesKey, DesIV), CryptoStreamMode.Write)

cs.Write(source, 0, source.Length)
→cs.Close()

Dim destination As Byte() = ms.ToArray()
ms.Close()

hukugouka = Encoding.Unicode.GetString(destination)