Dim xml As String = "<root><data>Hi!</data></root>"
 
        Dim fs As New IO.FileStream("C:\test.xml", IO.FileMode.Create)
        Dim rij As System.Security.Cryptography.Rijndael = _
          System.Security.Cryptography.Rijndael.Create()
        Dim key() As Byte = rij.Key
        Dim iv As Byte() = rij.IV
        Dim cs As New System.Security.Cryptography.CryptoStream(fs, _
          rij.CreateEncryptor(key, iv), _
          System.Security.Cryptography.CryptoStreamMode.Write)
        Dim sw As New IO.StreamWriter(cs)
        sw.Write(xml)
        sw.Close()
 
        fs = New IO.FileStream("C:\test.xml", IO.FileMode.Open)
        rij = System.Security.Cryptography.Rijndael.Create
        cs = New System.Security.Cryptography.CryptoStream(fs, _
          rij.CreateDecryptor(key, iv), _
          System.Security.Cryptography.CryptoStreamMode.Read)
        Dim sr As New IO.StreamReader(cs)
 
        Dim xml1 As String = sr.ReadToEnd()
        sr.Close()
        If xml1 = xml Then
            MsgBox("Klappt prima!")
        Else
            MsgBox("Wieso das denn?")
        End If