|
VB.Net-Forum - Beitragsübersicht - |
|
Thema | V12: My.Settings |
Von |
Inveritas |
Datum |
04. September 2015 um 10:38:53 |
Frage |
sow ... habe ein erneutes Problem ...
es werden in my.settings iwi keine Einträge gespeichert ...Private Sub setup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = My.Settings.url TextBox2.Text = My.Settings.purl TextBox3.Text = My.Settings.port #Region "Centrierung" Label1.Left = CInt((Me.Width - Label1.Width) / 2) Label2.Left = CInt((Me.Width - Label2.Width) / 2) Label3.Left = CInt((Me.Width - Label3.Width) / 2) Label4.Left = CInt((Me.Width - Label4.Width) / 2) PictureBox6.Left = CInt((Me.Width - PictureBox6.Width) / 2) RichTextBox1.Left = CInt((Me.Width - RichTextBox1.Width) / 2) PictureBox9.Left = CInt((Me.Width - PictureBox9.Width) / 2) #End Region #Region " Ausgabe der RichTextBox" RichTextBox1.SelectionAlignment = HorizontalAlignment.Center Dim h As Integer = RichTextBox1.Size.Height Dim f As Single = RichTextBox1.Font.Height For i As Integer = 0 To CInt(Math.Truncate(h / f)) \ 9 - 1 '(1 Is For 1 Line text ...Set 2 If you have 2 lines text e.t.c) RichTextBox1.Text += vbCr & vbLf Next RichTextBox1.Text += "In this window you can enter your server data." & vbCrLf & vbCrLf & " IMPORTANT INFO !!!!!!!" & vbCrLf & vbCrLf & "After you have clicked Save , this window will never Open again !!!" & vbCrLf & " Please check your entries exactly did befor they will save. " & vbCrLf & " Best greetings," & vbCrLf & "Sonaca" #End Region End Sub #Region "savebutten" ' Abfrage ob die textboxen ausgefüllt worden sind Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click If TextBox1.Text = "" Then MsgBox("Pleae Enter ur Update URL") Else My.Settings.url = TextBox1.Text My.Settings.Save() End If If TextBox2.Text = "" Then MsgBox("Pleae Enter ur Website URL") Else My.Settings.purl = TextBox2.Text My.Settings.Save() End If If TextBox3.Text = "" Then Else My.Settings.port = TextBox3.Text My.Settings.Save() My.Settings.Reload() End If 'Abfrage ob eine url zum updater und zur hompage gespeichert wurde If My.Settings.url & My.Settings.purl = "" = True Then MsgBox("es wurde kein wert hinterlegt") Else Hauptseite.Show() Me.Hide() End If End Sub #End Region habe ich irgendwas übersehen oder vergessen ?
grüße |
|
Antwort: |
Von |
Nico |
E-Mail |
nico.schertler@studentpartners.de |
Datum |
07. September 2015 um 08:26:09 |
Antwort |
In irgendeiner Form werden die Daten immer irgendwo stehen müssen. Du könntest sie als Konstante im Quellcode deklarieren. Dann stehen sie aber auch im Klartext in der EXE. Wenn du nicht willst, dass der String bemerkt wird, kannst du ihn kodieren und/oder verschlüsseln. Base64 ist z.B. ein Kode, der schon von .Net unterstützt wird. Allerdings sind die Resultate meistens einfach als Base64 identifizierbar. Dann gäbe es noch die guten alten Cäsar- oder Vigenere-Chiffren. Einige Verschlüsselungsalgorithmen sind auch schon in .Net implementiert. Sinn machen hier symmetrische Verfahren wie z.B. AES. Allerdings musst du da auch den Schlüssel irgendwo speichern. Dann geht es darum, zu verhindern, dass ein Teil der EXE überhaupt als Schlüssel identifiziert wird. Alles nicht ganz so einfach. Eventuell hilft dir der Suchbegriff Obfuscation weiter.
Nico |
|
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|