Checkbox Logindaten Speichern

haufe · 7. Juli 2008, 17:37

Hallo

ich habe ein Form mit Benutzernamen und Passwort und wollte eine Checkbox damit ich die logindaten speichern kann.

hab da schonmal gegooelt aber komme damit nicht klar da es meistens nur code schnipsel sind und als anfänger das nicht so hinhaut.

danke

doci · 7. Juli 2008, 17:56

du hast aber sehr viele fragen

versuch echt mal intensiver zu googlen, kann ja nich sein, das vb-paradise alles für dich macht

aber um dir trotzdem mal nen anstoss zu geben, google mal nen bisschen nach xml(xml eignet sich eigentlich gut, um i-welche daten zu speichern) oder nach ini files(ist etwas komplizierter als xml) oder eben einfach daten in einer txt speichern.

und der rest ist ja einfach

VB.NET-Quellcode

If Checkbox1.checked = true then
hier deine prozedur zum speichern der beiden textboxen
end if

haufe · 7. Juli 2008, 17:58

Danke für die Antwort werde Googlen

mache ich nur damit es nicht Lanweilig hier wird

Alex2000 · 7. Juli 2008, 18:17

Hai !
Du willst deine Password und Benutzername speichern, ja das geht, das hat auch schon der doci beantwortet.

Es gibs zwei möglickeiten wie du deine Benutzername und Password speicherst:
(muß verschlüsseln sonst ergibt kein sinn)

1. Du speicherst Benutzername und Password in die Datei

Ich denke du weist wie man in die Datei schreibt und Datei liest, hier hast du ein kleine nach Hilfe
[VB 2005] Datei schreiben/lesen
(Das habe ich vorher auch nicht gewust wie man unter VB NET mit die Dateie arbeitet)

2 Du spiecherst in My.Settings, kannst hier nach lesen, solltest du nicht klar kommen, dann frag einfach:
powerdesktop-online.de/de/tutorials.html

Was Verschlüsselung betrift, suche hier in Forum, das Thema haben wir schon paar mal gehabt oder schau hier nach:
vbarchiv.net/home/search.php , du kannst dir selber aussuchen wie du dein Programm gestalltest und sicher machst, es war nur mein Vorschlag.

Mal schauen was die anderen dazu schreiben !

Mfg Alex

Edit by Lupus: Bitte kein Rot verwenden, ist für Mods & Admin

haufe · 7. Juli 2008, 20:10

Vielen Dank

es hat mich weiter gebracht.

Habe jetzt ein Form mit 2 Buttons 1 Checkbox und 2 Textboxen

VB.NET-Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If uname.Text = "haufe" And password.Text = "test" Then
MessageBox.Show("pw pass")
Else
MessageBox.Show("pw false")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If CheckBox1.Checked = True Then
My.Settings.uname = uname.Text
My.Settings.pw = password.Text
My.Settings.Save()
Else
My.Settings.uname = "Benutzername"
My.Settings.pw = ""
My.Settings.Save()
End If
My.Settings.Checked = Me.CheckBox1.Checked
My.Settings.Save()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CheckBox1.Checked = My.Settings.Checked
Me.uname.Text = My.Settings.uname
Me.password.Text = My.Settings.pw
End Sub
End Class

Aber habe noch viele Fragen!!!!

1.)My.Settings <--Wo sind die gespeichert?
2.)My.Settings <-- sind die von jedem auslessbar sprich jeder kann den Namen und das Passwort sehen?
3.)Passwort und User <-- sind diese auch per Form anzulegen sprich Neuen User anlegen??
Danke

doci · 8. Juli 2008, 14:49

also wie schon erwähnt ist es nur dann sinnvoll, die logindaten zu speichern, wenn du das passwort verschlüsselt speicherst, egal du heutzutage anmeldedaten eintragen musst, und diese in einer datenbank gespeichert werden, sind die passwörter immer verschlüsselt gespeichert.

und wo my.settings..... speichert weis ich nicht sry

mikeb69 · 8. Juli 2008, 15:16

hallo,

wo die my.settings daten landen, kann man rausfinden wenn man googelt.
speicherort

und sicher sind diese daten dort nicht !
es sei denn, der benutzer hat genauso wenig ahnung wie der programmierer.
(wo die daten stehen - meine ich

)

gruss

mikeb69

DonMaxo · 8. Juli 2008, 15:22

mikeb69 schrieb:

und sicher sind diese daten dort nicht !

Kann man so nicht sagen, in dem Verzeichnis in dem die Daten gespeichert werden, also C:\Dokumente und Einstellungen\[Benutzername]\... hat ja nur der angemeldete Benutzer zugriff. Wenn also mehrere Benutzer an diesem Rechner arbeiten und jeder ein eigenes Benutzerkonto + Passwort hat, ist die Settingsdatei auch nur für den Benutzer verfügbar, der sie erstellt hat.
Just my two cents

Alex2000 · 8. Juli 2008, 19:49

Hai !
Ja deine Benutzername und Password können ausgelesen werden, ich hab dir nicht umsonst den Vorschlag gemacht mit Verschlüsselung !

Mfg Alex

haufe · 8. Juli 2008, 20:16

Ja habs gefunden!!!!
C:\Users\user\AppData\Local\Project <--- da ist eine datei user.config.

Natürlich steht da schön das Passwort :D:D

Verschlüsselung?!?:

hab das dazu gefunden aber bekomme es nicht in vb 2008 zum laufen.

Alex2000 · 8. Juli 2008, 20:21

Hai !
Schau hier rein vbarchiv.net/home/search.php oder suche in Forum, wir haben das Thema schon mehr mals gehabt !

Mfg Alex

doci · 8. Juli 2008, 20:23

überleg dir doch ne eigene verschlüsselung

du kansnt zb die eingabe zuerst mal in ihre buchstaben aufteilen, dann jeden buchstaben in ascii umwandeln, alle herauskommenden zahlen miteinander addieren und aus dem ergebniss machste auch noch i-was, keiner kommt drauf, was das ursprungswort war.

beispiel. das pw ist test

t = 116
e = 101
s = 115
t = 116

die summe ist 448, multipliziere das zb mit sich selbst, ergibt 200704, und diesen wert speicherst du als passwort
wenn jemand nicht den rechenweg weis, is es schwer da wieder dahinter zu kommen

wenn du jetz abfragst, ob der user sich einloggn darfst, erstellst du wieder diesen wert, und prüfst das ergebniss mit den gespeicherten daten

PS: das ist nur nen kleiner denkanstoss, natürlich sollte, wenn du dies verwendest alles etwas komplizierter sein

haufe · 8. Juli 2008, 20:51

das problem was ich habe ist das der befehl :
Function EnCrypt(ByVal eText As String, ByVal eKey As String) As String
den fehler :
Is not Valid in Namespace bringt und noch weiter fehler.

Mach ich mit den codes was falsch?

Alex2000 · 8. Juli 2008, 21:07

Hai !
Wie soll man dir hier helfen ? Poste die Code !

Mfg Alex

haufe · 8. Juli 2008, 21:41

ja danke das du dir den code mal anschauen willst ist auch hier aus dem forum

VB.NET-Quellcode

Public Class Form1
Public Function EncodeString(ByVal strToEncode As String, _
ByVal strPassword As String) As String
Dim strResult As String
Dim i As Long
Dim cfc() As Integer
ReDim cfc(1 To Len(strPassword))
For i = 1 To UBound(cfc)
cfc(i) = Asc(Right(strPassword, _
Len(strPassword) - i + 1))
Next i
For i = 1 To Len(strToEncode)
strResult = strResult & _
Chr(addToIndex(Asc(Right(strToEncode, _
Len(strToEncode) - i + 1)), VirtPos(i, cfc)))
Next i
EncodeString = strResult
End Function
' Text in Verbindung mit einem Passwort entschlüsseln
Public Function DecodeString(ByVal strToDecode As String, _
ByVal strPassword As String) As String
Dim strResult As String
Dim i As Long
Dim cfc() As Integer
ReDim cfc(1 To Len(strPassword))
ReDim ttc(1 To Len(strToDecode))
For i = 1 To UBound(cfc)
cfc(i) = Asc(Right(strPassword, _
Len(strPassword) - i + 1))
Next i
For i = 1 To Len(strToDecode)
strResult = strResult & _
Chr(GetOfIndex(Asc(Right(strToDecode, _
Len(strToDecode) - i + 1)), VirtPos(i, cfc)))
Next i
DecodeString = strResult
End Function
' Hilfsfunktionen
Private Function VirtPos(ByVal i As Long, _
ByVal a() As Integer) As Integer
If i > UBound(a) Then
VirtPos = VirtPos(i - UBound(a), a)
Else
VirtPos = a(i)
End If
End Function
Private Function addToIndex(ByVal i As Integer, _
ByVal j As Integer) As Integer
If i + j > 255 Then
addToIndex = i + j - 255
Else
addToIndex = i + j
End If
End Function
Private Function GetOfIndex(ByVal i As Integer, _
ByVal j As Integer) As Integer
If i - j < 0 Then
GetOfIndex = i - j + 255
Else
GetOfIndex = i - j
End If
End Function
End Class

die fehler

VB.NET-Quellcode

Error 1 Array lower bounds can be only '0'. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 9 13 WindowsApplication2
Error 2 'Public ReadOnly Property Right() As Integer' has no parameters and its return type cannot be indexed. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 12 26 WindowsApplication2
Error 3 'Public ReadOnly Property Right() As Integer' has no parameters and its return type cannot be indexed. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 18 34 WindowsApplication2
Error 4 Array lower bounds can be only '0'. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 32 13 WindowsApplication2
Error 5 Name 'ttc' is not declared. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 33 9 WindowsApplication2
Error 6 Array lower bounds can be only '0'. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 33 13 WindowsApplication2
Error 7 'Public ReadOnly Property Right() As Integer' has no parameters and its return type cannot be indexed. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 36 26 WindowsApplication2
Error 8 'Public ReadOnly Property Right() As Integer' has no parameters and its return type cannot be indexed. C:\Users\haufe\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication2\Form1.vb 42 34 WindowsApplication2

alle Fehler ausser die Right Fehler bekomme ich weg

der Code ist von hier

haufe · 9. Juli 2008, 09:52

So hab das jetzt soweit am laufen !!

Die verschlüsselung bekomme ich hin das entschlüsseln auch, aber ich habe eine speicher funktion in meinem login und ich müsste noch irgend einen wert in die my.settings ablegen so das ich wieder entschlüsseln kann nach dem neustart des programmes .....Nur was

VB.NET-Quellcode

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Dim crypw As String
' Encrypt using stream (binary)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (CheckEntry() = True) Then
MsgBox("geht")
Else
AxWindowsMediaPlayer1.URL = My.Application.Info.DirectoryPath + "\pw.mp3"
AxWindowsMediaPlayer1.Ctlcontrols.play()
MsgBox("Falsche Eingabe. Bitte nochmal versuchen.", "Fehler")
End If
Dim rd As New RijndaelManaged
Dim md5 As New MD5CryptoServiceProvider
Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("lorrely"))
md5.Clear()
rd.Key = key
rd.GenerateIV()
Dim iv() As Byte = rd.IV
Dim ms As New MemoryStream
ms.Write(iv, 0, iv.Length)
Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(TextBox2.Text)
cs.Write(data, 0, data.Length)
cs.FlushFinalBlock()
Dim encdata() As Byte = ms.ToArray()
crypw = Convert.ToBase64String(encdata)
cs.Close()
rd.Clear()
End Sub
Protected Function CheckEntry()
Dim arrUser(3) As String
Dim arrPass(3) As String
arrUser(0) = "Haufe"
arrUser(1) = "Pegasus"
arrUser(2) = "Markus"
arrPass(0) = "1234#"
arrPass(1) = "123456"
arrPass(2) = "1234,,--"
Dim i As Integer = 0
For i = 0 To 2
If TextBox1.Text = arrUser(i) And TextBox2.Text = arrPass(i) Then
Return True
End If
Next
Return False
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.MouseClick
MessageBox.Show("Die Anmeldedaten werden beim setzten des Hakens gespeichert!!")
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If CheckBox1.Checked = True Then
My.Settings.uname = TextBox1.Text
My.Settings.pw = crypw
My.Settings.Save()
Else
My.Settings.uname = ""
My.Settings.pw = ""
My.Settings.Save()
End If
My.Settings.checked = Me.CheckBox1.Checked
My.Settings.Save()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CheckBox1.Checked = My.Settings.checked
Me.TextBox1.Text = My.Settings.uname
Dim crypws As String = My.Settings.pw
Dim rd As New RijndaelManaged
Dim rijndaelIvLength As Integer = 16
Dim md5 As New MD5CryptoServiceProvider
Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("lorrely"))
md5.Clear()
Dim encdata() As Byte = Convert.FromBase64String(crypws)
Dim ms As New MemoryStream(encdata)
Dim iv(15) As Byte
ms.Read(iv, 0, rijndaelIvLength)
rd.IV = iv
rd.Key = key
Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
Dim data(ms.Length - rijndaelIvLength) As Byte
Dim i As Integer = cs.Read(data, 0, data.Length)
Me.TextBox2.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
cs.Close()
rd.Clear()
End Sub
End Class

bei

VB.NET-Quellcode

Dim data(ms.Length - rijndaelIvLength) As Byte

kommt der Fehler:
Die arithmetische Operation hat einen Überlauf verursacht.

info
Mehrere Postings hintereinander in einem Thread (Thema) von einem
einzigen User sind nur erlaubt, wenn dies unbedingt erforderlich ist,
ansonsten gibt es eine Verwarnung wegen Spams. Für nachträgliche
Informationen gibt es die Editierfunktion!

Denke das es so übersichtlicher ist was ich möchte deswegen 2

Danke

Alex2000 · 9. Juli 2008, 17:03

Hai !
Also zu deine Verschlüsselung, die Code habe ich auch, aber Funktionierts auch nicht, es gibs 2 Möglichekeiten:

1 Du nimmst hier vbarchiv.net/home/search.php oder hier in Forum das Thema "Verschlüsselung" haben wir schon paar mal behadelt

2 Du lädst dir die EncodeClasses DLL v2.0 das ist eine DLL du kannst hier laden vbarchiv.net/download/details.php?id=362 oder du suchst in google da bekomst du alles ink. einfach sitzen und suchen suchen und suchen

Vieleicht bekommst du über google eine DLL als Freeware, schau dich um !

Mfg Alex

Edit by Lupus: siehe oben, bitte kein Rot!

haufe · 9. Juli 2008, 18:44

Wieso sollte ich das tun? der Original Code funktioniert 1a!!!!

Wenn ich die Save funktion weglasse geht doch alles

Wäre schön wenn mir jemand sagen könnte wo mein fehler liegt

Danke

haufe · 11. Juli 2008, 15:38

Hallo

habe immer noch das problem beim speichern der anmelde daten bekomme ich in zeile 114 einen fehler, das wohl daran liegt das nach dem neustarten des programmes ein wert fehlt.

kann mir da niemand helfen?

der code ohne speicherfunktion funktioniert perfect

VB.NET-Quellcode

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Dim crypw As String
' Encrypt using stream (binary)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (CheckEntry() = True) Then
MsgBox("geht")
Else
AxWindowsMediaPlayer1.URL = My.Application.Info.DirectoryPath + "\pw.mp3"
AxWindowsMediaPlayer1.Ctlcontrols.play()
MsgBox("Falsche Eingabe. Bitte nochmal versuchen.", "Fehler")
End If
Dim rd As New RijndaelManaged
Dim md5 As New MD5CryptoServiceProvider
Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("lorrely"))
md5.Clear()
rd.Key = key
rd.GenerateIV()
Dim iv() As Byte = rd.IV
Dim ms As New MemoryStream
ms.Write(iv, 0, iv.Length)
Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(TextBox2.Text)
cs.Write(data, 0, data.Length)
cs.FlushFinalBlock()
Dim encdata() As Byte = ms.ToArray()
crypw = Convert.ToBase64String(encdata)
cs.Close()
rd.Clear()
End Sub
Protected Function CheckEntry()
Dim arrUser(3) As String
Dim arrPass(3) As String
arrUser(0) = "Haufe"
arrUser(1) = "Pegasus"
arrUser(2) = "Markus"
arrPass(0) = "1234#"
arrPass(1) = "123456"
arrPass(2) = "1234,,--"
Dim i As Integer = 0
For i = 0 To 2
If TextBox1.Text = arrUser(i) And TextBox2.Text = arrPass(i) Then
Return True
End If
Next
Return False
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.MouseClick
MessageBox.Show("Die Anmeldedaten werden beim setzten des Hakens gespeichert!!")
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If CheckBox1.Checked = True Then
My.Settings.uname = TextBox1.Text
My.Settings.pw = crypw
My.Settings.Save()
Else
My.Settings.uname = ""
My.Settings.pw = ""
My.Settings.Save()
End If
My.Settings.checked = Me.CheckBox1.Checked
My.Settings.Save()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CheckBox1.Checked = My.Settings.checked
Me.TextBox1.Text = My.Settings.uname
Dim crypws As String = My.Settings.pw
Dim rd As New RijndaelManaged
Dim rijndaelIvLength As Integer = 16
Dim md5 As New MD5CryptoServiceProvider
Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("lorrely"))
md5.Clear()
Dim encdata() As Byte = Convert.FromBase64String(crypws)
Dim ms As New MemoryStream(encdata)
Dim iv(15) As Byte
ms.Read(iv, 0, rijndaelIvLength)
rd.IV = iv
rd.Key = key
Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
Dim data(ms.Length - rijndaelIvLength) As Byte
Dim i As Integer = cs.Read(data, 0, data.Length)
Me.TextBox2.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
cs.Close()
rd.Clear()
End Sub
End Class

doci · 11. Juli 2008, 16:32

welcher fehler kommtn?

Checkbox Logindaten Speichern

Checkbox Logindaten Speichern

VB.NET-Quellcode

VB.NET-Quellcode

mikeb69 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben