Encryption og decryption med symmetriske keys

Hej,

Jeg sidder og læser bogen "Implementing Security for Applications" som er et MCAD/MCSD training kit...

Der er et stykke som Encryption og decryption med symmetriske keys, hvor der er et exsempel med kryptering af noget tekst (8-16, hvis nogen har bogen).

Hvad der tilsyneladende ikke står, er hvordan man gemmer key'en, men det har jeg selv forsøgt efter bedste evne, og jeg tror det er lykkes.

Mit problem er at jeg nu vil decrypte, og bruge den gemte key.
Bogen fortæller kun kort hvad jeg skal ændre ved encrypt-metoden for at kunne decrypte, men jeg får heletiden fejl:

Stream was not readable. Parameter name: stream

Line 23:    Dim encryptStream As New CryptoStream(encryptedFile, encryptor, CryptoStreamMode.Read)

_____________________________________

Min kode (EncryptData er metoden fra bogen, resten er hjemmelavede):

    Public Sub DecryptData(ByVal unencryptedFileName As String, ByVal encryptedFileName As String)

            ' Lav stream-objekter
            Dim unencryptedFile As New FileStream(unencryptedFileName, FileMode.Open, FileAccess.Read)
            Dim encryptedFile As New FileStream(encryptedFileName, FileMode.OpenOrCreate, FileAccess.Write)

            ' Lav SymmetricAlgorithm + key
            Dim alg As SymmetricAlgorithm = New RijndaelManaged
            alg.Key = Me.ReadKey(unencryptedFileName & ".xkey")

            ' Læs den ukrypterede fil ind i fileData
            Dim fileData(CType(unencryptedFile.Length - 1, Integer)) As Byte
            unencryptedFile.Read(fileData, 0, CType(unencryptedFile.Length, Integer))

            ' Lav encryptor + cryptostream
            Dim encryptor As ICryptoTransform = alg.CreateDecryptor
            Dim encryptStream As New CryptoStream(encryptedFile, encryptor, CryptoStreamMode.Read)

            ' Skriv til cryptostream
            encryptStream.Read(fileData, 0, CType(unencryptedFile.Length, Integer))

            ' Ryd op
            encryptStream.Close()
            encryptedFile.Close()
            unencryptedFile.Close()

        End Sub

        Public Sub EncryptData(ByVal unencryptedFileName As String, ByVal encryptedFileName As String)

            ' Lav stream-objekter
            Dim unencryptedFile As New FileStream(unencryptedFileName, FileMode.Open, FileAccess.Read)
            Dim encryptedFile As New FileStream(encryptedFileName, FileMode.OpenOrCreate, FileAccess.Write)

            ' Lav SymmetricAlgorithm + key
            Dim alg As SymmetricAlgorithm = New RijndaelManaged
            alg.GenerateKey()

            ' Gem key
            Me.SaveKey(alg.Key, encryptedFileName & ".xkey")

            ' Læs den ukrypterede fil ind i fileData
            Dim fileData(CType(unencryptedFile.Length - 1, Integer)) As Byte
            unencryptedFile.Read(fileData, 0, CType(unencryptedFile.Length, Integer))

            ' Lav encryptor + cryptostream
            Dim encryptor As ICryptoTransform = alg.CreateEncryptor
            Dim encryptStream As New CryptoStream(encryptedFile, encryptor, CryptoStreamMode.Write)

            ' Skriv til cryptostream
            encryptStream.Write(fileData, 0, CType(unencryptedFile.Length, Integer))

            ' Ryd op
            encryptStream.Close()
            encryptedFile.Close()
            unencryptedFile.Close()

        End Sub

        Private Sub SaveKey(ByVal key As Byte(), ByVal newFileName As String)
            Dim keyStream As New FileStream(newFileName, FileMode.OpenOrCreate, FileAccess.Write)

            keyStream.Write(key, 0, key.Length)
            keyStream.Close()
        End Sub

        Private Function ReadKey(ByVal keyFileName As String) As Byte()
            Dim keyStream As New FileStream(keyFileName, FileMode.Open, FileAccess.Read)
            Dim fileData(CType(keyStream.Length - 1, Integer)) As Byte

            Return fileData
        End Function