binär serialisiertes Setting mit einem Default-Wert

VB1963 · 22. Juli 2013, 10:47

Hallo Community!

Folgender Codeausschnitt wirft mir mit leeren Setting Dim x = My.Settings.Tester ohne Try Catch in der Zeile 11 eine ArgumentException:
"Die Tester-Eigenschaft konnte nicht aus ihrem Standardwert erstellt werden. Fehlermeldung: Der binäre Stream "224" enthält keinen gültigen BinaryHeader.
Möglicherweise ist der Stream ungültig oder die Objektversion wurde zwischen der Serialisierung und der Deserialisierung geändert."

VB.NET-Quellcode

Namespace My
Partial Friend NotInheritable Class MySettings
Private Const _DefaultTester = "Das ist eine Voreinstellung"
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(_DefaultTester), _
Global.System.Configuration.SettingsSerializeAs(System.Configuration.SettingsSerializeAs.Binary)> _
Public Property Tester As String
Get
'Try
Return CType(Me("Tester"), String)
'Catch ex As Exception
' Return _DefaultTester
'End Try
End Get
Set(ByVal value As String)
Me("Tester") = value
End Set
End Property
End Class
End Namespace

kann man so etwas ohne Try Catch realisieren?

RodFromGermany · 22. Juli 2013, 13:16

Muss es Binary sein? Ohne Binary funktioniert es.

VB1963 · 22. Juli 2013, 13:40

Ja, ich möchte die Daten in der user.config verschleiert haben...
Besser wäre ja verschlüsseln, da habe ich dazu noch nichts gefunden...

RodFromGermany · 22. Juli 2013, 14:54

Oder Du konvertierst dies

VB1963 schrieb:

VB.NET-Quellcode

Private Const _DefaultTester = "Das ist eine Voreinstellung"

explizit nach Byte-Array?

VB1963 · 23. Juli 2013, 10:27

@Rod Danke für deinen Input, damit ist mir ein Lichtlein aufgegangen

Ich habe das Ganze jetzt so gelöst:

VB.NET-Quellcode

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Namespace My
Partial Friend NotInheritable Class MySettings
Private Key() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
Private IV() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}
Private Const _DefaultVersuch = "Das ist eine Voreinstellung"
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(_DefaultVersuch)> _
Public Property Versuch As String
Get
Dim _Value = CType(Me("Versuch"), String)
If _Value = _DefaultVersuch Then Return _Value
Return DecryptStringFromBytes(Encoding.Default.GetBytes(_Value), Key, IV)
End Get
Set(ByVal value As String)
Me("Versuch") = Encoding.Default.GetString(EncryptStringToBytes(value, Key, IV))
End Set
End Property
Shared Function DecryptStringFromBytes(ByVal cipherText() As Byte, ByVal Key() As Byte, ByVal IV() As Byte) As String
'...
End Function
Shared Function EncryptStringToBytes(ByVal plainText As String, ByVal Key() As Byte, ByVal IV() As Byte) As Byte()
'...
End Function
End Class
End Namespace

Die Verschlüsselungsroutinen habe ich einfach von AesManaged-Klasse herausgenommen.
Damit sind die Settingsdaten ordentlich verschleiert abgespeichert.
Ich werde das jetzt versuchen auch mit anderen Datentypen umzusetzen...

~blaze~ · 23. Juli 2013, 10:42

Hi
serialisiere doch einfach in deinen eigenen Stream. Dazu erzeugst du einen CryptoStream und serialisierst dorthin z.B. mithilfe des BinaryFormatters.
Sei dir aber bewusst, dass auch dann die Sicherheit nur geringfügig besser ist, als wenn du es gleich sichtbar speicherst. Die Daten stehen ja noch immer direkt im Quellcode oder Resourcen drin und sind daher einfach auszulesen.

Gruß
~blaze~

VB1963 · 23. Juli 2013, 10:57

@~blaze~ Danke auch für deinen Vorschlag, den werde ich probieren...
Das mit der Datensicherheit ist mir klar, hier geht's ja nicht um sensible Daten.
Daher meine ich auch nur Daten verschleiern, damit nicht gleich das Echte ins Auge springt.

VB1963 · 23. Juli 2013, 14:44

Hi @~blaze~:
Probieren ist fehlgeschlagen...

Kannst du mir deinen Vorschlag nochmals detaillierter und genauer erklären.
Ich habe mit der Kombination Cryptostream und Serialisieren mithilfe BinaryFormatter noch so meine Probleme...

So, jetzt habe ich nach langen Grübeln und Studieren folgendes zusammengestellt (ist aber noch ungetestet...):

VB.NET-Quellcode

Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Namespace My
Partial Friend NotInheritable Class MySettings
Private Key() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
Private IV() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}
Private Const _DefaultVersuch = "Das ist eine Voreinstellung"
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(_DefaultVersuch)> _
Public Property Versuch As String
Get
Dim _Value = CType(Me("Versuch"), String)
If _Value = _DefaultVersuch Then Return _Value
'
Using ms As New MemoryStream(Encoding.Default.GetBytes(_Value))
Dim aes As New AesManaged()
Using crs As New CryptoStream(ms, aes.CreateDecryptor(Key, IV), CryptoStreamMode.Read)
Dim binfmt As New BinaryFormatter()
Return DirectCast(binfmt.Deserialize(crs), String)
End Using
End Using
End Get
Set(ByVal value As String)
Using ms As New MemoryStream()
Dim aes As New AesManaged()
Using crs As New CryptoStream(ms, aes.CreateEncryptor(Key, IV), CryptoStreamMode.Write)
Dim binfmt As New BinaryFormatter()
Me("Versuch") = DirectCast(binfmt.Serialize(crs, Value), String)
End Using
End Using
End Set
End Property
End Class
End Namespace

~blaze~ · 24. Juli 2013, 10:34

So ähnlich war's gedacht. Ich hätte einfach eine komplett neue Klasse dafür angefangen und dann die Settings direkt als Properties modelliert. Anschließend hätte ich die Klasse mit dem SerializableAttribute-Attribut versehen und eine Save- und statische Load-Methode eingeführt. Save serialisiert die gesamte Klasse in einen Stream, der als Parameter angegeben wird und Load lädt sie aus einem angegebenen Stream. Zusätzlich dazu hast du eine weitere Klasse, die die Einstellungen sicher speichert und dann eben den CryptoStream an die Load und Save-Methoden übergibt. Serialisiert werden können dann eben alle Objekte, die serialisierbar sind.
Tut zwar keine Sache zum eigentlichen Problem, aber wenn du diese Zugriffe über den Namen möchtest, kannst du natürlich auch ein Dictionary verwenden (z.B. kannst du die Properties über den System.ComponentModel.TypeDescriptor abrufen und dann ein Dictionary(Of String, PropertyDescriptor) dazu verwenden, um auf die einem Namen zugeordneten Properties zuzugreifen und diese dann per PropertyDescriptor.GetValue und PropertyDescriptor.SetValue anzusteuern. instance ist in deinem Fall dann eben Me).

Gruß
~blaze~

VB1963 · 24. Juli 2013, 23:39

Danke für deine ausführlichen Erklärungen.
Mit einer eigenen Klasse zum Serialisieren, glaube ich, ist im Entwicklerbuch sogar ausführlich beschrieben.
Das mit dem PropertyDescriptor ist für mich Neuland - das muss ich mir einmal genauer ansehen...

Gruß
VB1963

VB1963 · 20. August 2013, 19:29

Hallo VBP-Community!

Wen es interessiert, ich habe das obige Problem jetzt folgend gelöst.
Dazu sind 2 Klassen erforderlich:

ein ApplicationSettings-Wrapper, der von ApplicationSettingsBase beerbt wird
und ein eigens erstellter SettingsProvider, der von SettingsProvider beerbt wird.

siehe dazu Näheres hier und hier

CustomSettings-Wrapper:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Configuration
Imports System.ComponentModel
<SettingsProvider(GetType(CryptoSettingsProvider))> _
Public Class CustomSettings
Inherits ApplicationSettingsBase
'Public Sub New()
' AddHandler Me.SettingChanging, AddressOf Me.SettingChangingEventHandler
' AddHandler Me.SettingsSaving, AddressOf Me.SettingsSavingEventHandler
'End Sub
'Private Sub SettingChangingEventHandler(sender As Object, e As SettingChangingEventArgs)
'End Sub
'Private Sub SettingsSavingEventHandler(sender As Object, e As CancelEventArgs)
'End Sub
<UserScopedSettingAttribute(), DefaultSettingValueAttribute("00:00:00")> _
Public Property VisitDuration As TimeSpan
Get
Return CType(Me("VisitDuration"), TimeSpan)
End Get
Set(ByVal value As TimeSpan)
Me("VisitDuration") = value
End Set
End Property
<UserScopedSettingAttribute(), DefaultSettingValueAttribute("PaleGreen")> _
Public Property ControlBackcolor As Drawing.Color
Get
Return CType(Me("ControlBackcolor"), Drawing.Color)
End Get
Set(ByVal value As Drawing.Color)
Me("ControlBackcolor") = value
End Set
End Property
<UserScopedSettingAttribute()> _
Public Property MyBytes() As Byte()
Get
Return CType(Me("MyBytes"), Byte())
End Get
Set(value As Byte())
Me("MyBytes") = value
End Set
End Property
<UserScopedSettingAttribute(), DefaultSettingValueAttribute("32321111")> _
Public Property TestData As Decimal
Get
Return CType(Me("TestData"), Decimal)
End Get
Set(ByVal value As Decimal)
Me("TestData") = value
End Set
End Property
<UserScopedSettingAttribute(), DefaultSettingValueAttribute("Hallo!")> _
Public Property TestString As String
Get
Return CType(Me("TestString"), String)
End Get
Set(ByVal value As String)
Me("TestString") = value
End Set
End Property
End Class

CryptoSettings-Provider:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Configuration
Imports System.ComponentModel
Imports System.Reflection
Imports System.IO
Imports System.Security.Cryptography
Imports System.Collections.Specialized
Imports System.Runtime.Serialization.Formatters.Binary
Public Class CryptoSettingsProvider
Inherits SettingsProvider
Private Datas As Dictionary(Of String, Object)
Private DataFile As String
Public Sub New()
ApplicationName = Assembly.GetExecutingAssembly.GetName.Name
Datas = New Dictionary(Of String, Object)()
DataFile = getFileName()
LoadSettingsFromFile()
End Sub
Public Overrides Sub Initialize(name As String, config As NameValueCollection)
MyBase.Initialize(ApplicationName, config)
End Sub
Public Overrides Property ApplicationName As String
Public Overrides ReadOnly Property Name As String
Get
Return "CryptoSettingsProvider"
End Get
End Property
Public Overrides Function GetPropertyValues(context As SettingsContext, collection As SettingsPropertyCollection) As SettingsPropertyValueCollection
Dim col As New SettingsPropertyValueCollection()
For Each prp As SettingsProperty In collection
Dim prpValue As New SettingsPropertyValue(prp)
prpValue.IsDirty = False
If Datas.ContainsKey(prp.Name) Then
prpValue.SerializedValue = Datas(prp.Name)
prpValue.PropertyValue = Datas(prp.Name)
End If
col.Add(prpValue)
Next
Return col
End Function
Public Overrides Sub SetPropertyValues(context As SettingsContext, collection As SettingsPropertyValueCollection)
For Each prpValue As SettingsPropertyValue In collection
Datas(prpValue.Name) = prpValue.PropertyValue ' wenn Item nicht vorhanden ist, wird Item automatisch angefügt
Next
EncryptAndSaveDatas(DataFile, Datas)
End Sub
Private Function getFileName() As String
Return Path.Combine(Application.StartupPath, String.Concat(ApplicationName, ".exe.config.dat"))
End Function
Private Sub LoadSettingsFromFile()
Dim fi = New FileInfo(DataFile)
If fi.Exists Then Datas = DecryptAndLoadDatas(DataFile)
End Sub
#Region "Cryptography"
Private Key() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
Private IV() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}
Private Sub EncryptAndSaveDatas(DataFile As String, Datas As Dictionary(Of String, Object))
Using fs As Stream = File.Create(DataFile)
Dim aes As New AesManaged()
Using crs As Stream = New CryptoStream(fs, aes.CreateEncryptor(Key, IV), CryptoStreamMode.Write)
Dim binfmt As New BinaryFormatter()
binfmt.Serialize(crs, Datas)
End Using
End Using
End Sub
Private Function DecryptAndLoadDatas(DataFile As String) As Dictionary(Of String, Object)
Using fs As Stream = File.Open(DataFile, FileMode.Open)
Dim aes As New AesManaged()
Using crs As Stream = New CryptoStream(fs, aes.CreateDecryptor(Key, IV), CryptoStreamMode.Read)
Dim binfmt As New BinaryFormatter()
Return CType(binfmt.Deserialize(crs), Dictionary(Of String, Object))
End Using
End Using
End Function
#End Region
End Class

In Zeile #4 des ersten Listings wird der Provider in die Wrapperklasse eingebunden.
Dieser Provider ermöglicht das Abspeichern der Settings in verschlüsselter Form.
Die Daten werden im Arbeitsverzeichnis der Anwendung in einer eigenen Datei DeineAnwendung.exe.config.dat gehalten.

VB.NET-Quellcode

Public Class Form1
Private WithEvents mySettings As New CustomSettings
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
mySettings.Save() 'muss explizit durchgeführt werden!
End Sub
Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
Dim Dauer = mySettings.VisitDuration
mySettings.VisitDuration = TimeSpan.Parse("00:21:25")
Dim Farbe = mySettings.ControlBackcolor
mySettings.ControlBackcolor = Drawing.Color.AliceBlue
Dim myBytes = mySettings.MyBytes
mySettings.MyBytes = {111, 121, 131, 141, 151, 161, 171, 181, 191, 100}
'
'manuelles Binding ist erforderlich!
'
TextBox1.DataBindings.Add(New Binding("Text", mySettings, "TestString", True, DataSourceUpdateMode.OnPropertyChanged))
NumericUpDown1.DataBindings.Add(New Binding("Value", mySettings, "TestData", True, DataSourceUpdateMode.OnPropertyChanged))
End Sub
End Class

In Zeile #3 wird die neue Settingsklasse deklariert.

Der Settingseditor gilt für diese Wrapper-Klasse nicht!
Die Property's sind im Editor und in der user.config nicht aufgelistet.
Das Speichern der Settings ist manuell durchzuführen. Hier gilt das automatische Abspeichern der Settings beim Schließen der Anwendung nicht!
Die Property's sind genauso bindbar, wie bei den herkömmlichen Settings - aber die Bindung muss manuell erstellt werden!

lg
VB1963

ErfinderDesRades · 21. August 2013, 09:38

Hmm - das gefällt mir nicht super, dass man dafür so viel individuell programmieren, und ausserdem einige Features der Settings aufgeben muß - etwa SettingsBinding im Designer.
Da kann man ja bald die Settings auch bleiben lassen, und seine Einstellungen stattdessen in einem globalen Objekt ablegen, und dieses in einen CryptoStream serialisieren.

VB1963 · 21. August 2013, 10:48

Ja, der Comfort des Settingseditors ist hier leider verloren gegangen...

Der eigentliche Programmieraufwand:
*) wie die explizite Angabe der gewünschten Property's im Settings-Wrapper, wobei der Property-Rumpf immer der selbe ist,
*) und die 1 Zeile Code beim Binden je Property - wenn man das braucht
*) ja und das Speichern beim Schließen der Anwendung
hält sich meiner Meinung nach, wenn die Klassen einmal eingebunden sind, in erträglichen Grenzen.
Sonnst ist das Verhalten der Settings im Code gleich wie zu den My.Settings zu betrachten.
Ob das jetzt den Aufwand wert ist, um seine Settings eigentlich nur verschlüsselt zu speichern, ist eine Frage für jeden selbst...
Obiges Beispiel zeigt einen Weg, wie man machen könnte...

VB1963 · 24. August 2013, 15:46

Hallo Community!
Es hat mich keine Ruhe gelassen

Ich habe nach Einwand von @ErfinderDesRades: den CryptoSettingsProvider noch etwas weiter modifiziert.
Die Wrapperklasse wird nicht mehr dazu gebraucht und dafür ist der Comfort vom Settingseditor wieder nutzbar.
Man braucht den eigenen Provider einfach nur mehr im Settingseditor bei beliebigen Einstellungen als Provider angeben. (siehe Bild im Anhang)
Der Editor versieht den jeweiligen Eintrag mit dem richtigen Provider-Attribut.
Siehe dazu folgenden Codeauszug aus der generierten MySettings-Klasse...

Spoiler anzeigen

VB.NET-Quellcode

<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Configuration.SettingsProviderAttribute(GetType(CryptoSettingsProvider)), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Hallo!")> _
Public Property Versuch() As String
Get
Return CType(Me("Versuch"),String)
End Get
Set
Me("Versuch") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Configuration.SettingsProviderAttribute(GetType(CryptoSettingsProvider)), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("50")> _
Public Property TestValue() As Decimal
Get
Return CType(Me("TestValue"),Decimal)
End Get
Set
Me("TestValue") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("das ist ein ganz normales Setting!")> _
Public Property NormalSetting() As String
Get
Return CType(Me("NormalSetting"),String)
End Get
Set
Me("NormalSetting") = value
End Set
End Property

Man kann auch die ganze MySettings-Klasse mit dem Provider versehen.
Einfach im Editor auf Code anzeigen gehen und die Klasse mit dem Provider erweitern:

VB.NET-Quellcode

<Global.System.Configuration.SettingsProviderAttribute(GetType(CryptoSettingsProvider))> _
Partial Friend NotInheritable Class MySettings
End Class

Das automatische Speichern ist jetzt auch wieder möglich!

Das Binding muss aber leider immer noch manuell via Code erfolgen

(da habe ich noch keine Lösung dafür gefunden...)
Wenn man via Eigenschaften-Editor ein Control binden will, erscheint immer eine Meldung von VS2010? (siehe Bild im Anhang)
Vielleicht kann mir hier jemand einen Tipp geben...

lg
VB1963

VB1963 · 25. August 2013, 14:37

Nach meinen Recherchen ergibt sich jetzt folgendes:
Wenn der Provider klassenweit angegeben wird kann ohne Weiteres das Binding der Propertys im Editor erfolgen.

VB.NET-Quellcode

<Global.System.Configuration.SettingsProviderAttribute(GetType(CryptoSettingsProvider))> _
Partial Friend NotInheritable Class MySettings
End Class

Die Meldung tritt nur bei der Providerangabe eines beliebigen Setting-Eintrages auf.
Wenn man vorher das Binding angibt und erst nachher die vereinzelten Setting-Einträge mit dem Provider versieht funktioniert es?
Es kommen dann aber 2 Warnmeldungen die beim Öffnen der Form im Editormodus, die das selbige wieder melden aber sonnst nichts verursachen... :whistling:

VB1963 · 26. August 2013, 08:21

Der folgende Hinweis hat geholfen:

Koopakiller (MSDN-Forum) schrieb:

Es läuft letzten Endes darauf hinaus den Provider in eine eigene Klassenbibliothek zu packen. Nachdem ich das tat funktionierte es.
Ich denke mal, das es sich hierbei um einen "einfachen" Bug im Designer handelt.

Wichtig ist hier noch anzumerken, dass die Klasse SettingsProvider mit Public modifiziert wird. siehe Näheres hier
Bzw. im Sourcecode-Austausch habe ich auch den Provider und Abwandlungen davon eingestellt: UserSettingsProvider (Persistieren von UserSettings)
Wer es braucht oder interessiert ist anbei ein fertiges CryptoSettingsProvider-Library in einer Testumgebung...

binär serialisiertes Setting mit einem Default-Wert

binär serialisiertes Setting mit einem Default-Wert

VB.NET-Quellcode

VB1963 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Problemlösung: benutzerdefinierter Settingsprovider und Datenbindung

Koopakiller (MSDN-Forum) schrieb:

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben