Hallo,
die Idee mit der kryptologischen Hashfunktion ist mir auch schon gekommen (das habe ich in meinem letzten Semester ausgiebig gelernt).
Allerdings muss es erst einmal so funktionieren!
Ich habe mich vorerst für eine Datei entschieden in der die Passwörter gespeichert werden.
Dim FStreami As New FileStream("D:\pw.txt", FileMode.OpenOrCreate, FileAccess.Write, FileShare.Write)
FStreami.Close()
Dim sFilePathe As String = "d:\pw.txt"
Dim streami As FileStream = New FileStream(sFilePathe, FileMode.Append)
Dim SWriter As StreamWriter = New StreamWriter(streami, System.Text.Encoding.Default)
Dim CurrentUser As System.Security.Principal.WindowsIdentity
CurrentUser = System.Security.Principal.WindowsIdentity.GetCurrent
SWriter.WriteLine(TextBox1.Text, ";", Label2.Text, ";" & DateTime.Now, ";", CurrentUser)
SWriter.Close()
Im Internet steht anstatt dem Komma in SWriteLine ein &, das markiert er mir aber als Fehler. Leider funktioniert es so nicht. Es gibt mir nur das aus was in TextBox1 steht und nicht mehr.
Findet jemand vielleicht meinen Fehler?
Lg Informatikerin