Dim rd As New RijndaelManaged
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(System.Text.Encoding.UTF8.GetBytes( _
          "pw"))
        Dim reader As New FileStream(path,FileMode.Open, FileAccess.Read, _
        FileShare.Read)
        Dim iv(rijndaelIvLength - 1) As Byte
 
        md5.Clear()
        reader.Read(iv, 0, rijndaelIvLength)
        rd.IV = iv
        rd.Key = key
 
        Dim cs As New CryptoStream(reader, rd.CreateDecryptor, _
          CryptoStreamMode.Read)
        Dim data(CInt(reader.Length - rijndaelIvLength)) As Byte
 
        cs.Read(data, 0, data.Length)
        reader.Close()
        cs.Close()
        rd.Clear()
        XmlDoc.LoadXml(system.Text.Encoding.UTF8.GetString(data, 0, _
          data.Length))

        Dim rd As New RijndaelManaged
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(System.Text.Encoding.UTF8.GetBytes( _
          "pw"))
        Dim reader As New FileStream(path,FileMode.Open, FileAccess.Read, _
        FileShare.Read)
        Dim pathnew As String = System.IO.Path.GetTempFileName
        Dim writer As New FileStream(pathnew, FileMode.Create, _
          FileAccess.Write, FileShare.None)
        Dim iv(rijndaelIvLength - 1) As Byte
 
        md5.Clear()
        reader.Read(iv, 0, rijndaelIvLength)
        rd.IV = iv
        rd.Key = key
 
        Dim cs As New CryptoStream(reader, rd.CreateDecryptor, _
          CryptoStreamMode.Read)
        Dim data(CInt(reader.Length - rijndaelIvLength)) As Byte
 
        cs.Read(data, 0, data.Length)
        writer.Write(data, 0, data.Length)
        writer.Close()
        reader.Close()
        cs.Close()
        rd.Clear()
        XmlDoc.LoadXml(pathnew)