Sub key_erstellen()
        Dim rij As Rijndael = Rijndael.Create
        Dim regRoot As Microsoft.Win32.RegistryKey = _
          Microsoft.Win32.Registry.CurrentUser
        Dim regSubKey As Microsoft.Win32.RegistryKey = regRoot.CreateSubKey( _
        "Software\test")
        Dim regkey As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\test", True)
        Dim bytes() As Byte = (regkey.GetValue("DATA2"))
 
        'ist data2 Key vorhanden.ansonsten erstellen
        Dim st1 As String = ByteArrayToRegString(bytes)
        If st1 = "" Then
        Else
            Dim data2 As Byte()
            Dim data3 As Byte()
            rij.CreateDecryptor(rij.Key, rij.IV)
            data2 = rij.Key
            data3 = rij.IV
 
            regSubKey.SetValue("DATA2", data2)
            regSubKey.SetValue("DATA3", data3)
            regRoot.Close()
            regSubKey.Close()
        End If
    End Sub
 
 
 
 
 
 
    Sub Laden_aus_XML()
 
        Dim rij As Rijndael = Rijndael.Create
 
        Dim regkey As Microsoft.Win32.RegistryKey = _
          Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\test", True)
        Dim bytes() As Byte = (regkey.GetValue("DATA2")) <--wurden vorher _
        erstellt
        Dim bytes1() As Byte = (regkey.GetValue("DATA3"))<--<--wurden vorher _
        erstellt
 
        Dim fs As IO.FileStream
        Dim cs As CryptoStream
 
 
        Try
            fs = New IO.FileStream(Application.StartupPath & "\data.xml", _
              IO.FileMode.Open)
            cs = New System.Security.Cryptography.CryptoStream(fs, _
            rij.CreateDecryptor(bytes, bytes1), _
            System.Security.Cryptography.CryptoStreamMode.Read)
            Dim sr As New IO.StreamReader(cs)
 
            cs.Close()
            fs.Close()
            Mitarbeiter_DATASET.ReadXml(cs)
        Catch ex As Exception
            MsgBox(ex.ToString)
 
        End Try
 
 
    End Sub