Username und Password

txtUsername

Imports Microsoft.VisualBasic
Imports System.Text
Imports System.Security.Cryptography



Public Class clsUserAndPassword

    Public CurrentApplication As String = My.Application.Info.ProductName

    ''' <summary>
    ''' Die nächste Function Speichert Zwei Werte (Username und Password)
    ''' in der Registry.
    ''' 
    ''' Es ist u.U. sinnvoller anstelle von  HKEY_LOCAL_MACHINE
    ''' den Zweig                            HKEY_CURRENT_USER
    ''' zu verwenden. 
    ''' 
    ''' Bei HKEY_LOCAL_MACHINE müssen Sie dann darauf achten, dass
    ''' der User schreibenden Zugriff auf den entprechenden 
    ''' Reg.-Key hat
    ''' 
    ''' Bitte beachten Sie, dass nur das Password verschlüsselt
    ''' wird.
    ''' 
    ''' Wollen Sie mehr Sicherheit, müssen Sie auch den Usernamen
    ''' verschlüsseln.
    ''' 
    ''' 
    ''' Aufruf aus einem Formular (Wert in Local Maschine:)
    ''' 
    ''' Auf dem Formular befindet sich eine Textbox mit dem Namen PASSWORDTEXT
    ''' 
    ''' ------------------------------------------------------------------------------
    ''' 
    '''    Dim cls As New clsUserAndPassword
    '''    cls.SaveUserAndPasswordInRegistry(My.User.Name.ToString, PASSWORDTEXT.text)
    ''' 
    ''' ------------------------------------------------------------------------------
    ''' 
    ''' Es wird True oder False zurückgegeben
    ''' 
    ''' 
    '''    
    ''' 
    ''' Aufruf aus einem Formular (Wert in CURRENT_USER)
    ''' 
    ''' Auf dem Formular befindet sich eine Textbox mit dem Namen PASSWORDTEXT
    ''' 
    ''' ------------------------------------------------------------------------------
    ''' 
    '''    Dim cls As New clsUserAndPassword
    '''    cls.SaveUserAndPasswordInRegistry(My.User.Name.ToString, PASSWORDTEXT.text)
    ''' 
    ''' ------------------------------------------------------------------------------
    ''' 
    ''' Es wird True oder False zurückgegeben
    ''' 
    ''' </summary>
    ''' <param name="txtUsername"></param>
    ''' <param name="txtPassword"></param>
    ''' <remarks></remarks>
    ''' 



    Public Sub SaveUserAndPasswordInRegistryCU(ByVal txtUsername As String, _
        ByVal txtPassword As String)

        Dim hashPassword As String = GetHash(txtPassword)
        My.Computer.Registry.SetValue("HKEY_CURRENT_USERSoftware" & CurrentApplication

Alte URL: /snippet/username-und-password/378