Änderung der Validation methoden
This commit is contained in:
ja
@@ -59,7 +59,7 @@ Partial Class login_ChangePW
|
|||||||
reqPasswtxt.Validate()
|
reqPasswtxt.Validate()
|
||||||
reqPassw1txt.Validate()
|
reqPassw1txt.Validate()
|
||||||
reqPassw1txt_M.Enabled = False
|
reqPassw1txt_M.Enabled = False
|
||||||
reqPasswtxt.Enabled = False
|
reqPasswtxt.Enabled = True
|
||||||
tempstr = txt_Pw.Text
|
tempstr = txt_Pw.Text
|
||||||
ElseIf String.IsNullOrEmpty(txt_Pw.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = True AndAlso txt_Pw.Attributes.Item("Placeholder") = Not True AndAlso txt_Pw_WH.Attributes.Item("Placeholder") = "Repeat Password" AndAlso txt_Pw.Attributes.Item("Placeholder") = "Repeat Password" Then
|
ElseIf String.IsNullOrEmpty(txt_Pw.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = True AndAlso txt_Pw.Attributes.Item("Placeholder") = Not True AndAlso txt_Pw_WH.Attributes.Item("Placeholder") = "Repeat Password" AndAlso txt_Pw.Attributes.Item("Placeholder") = "Repeat Password" Then
|
||||||
|
|
||||||
@@ -85,6 +85,7 @@ Partial Class login_ChangePW
|
|||||||
'Response.Redirect("login_FLEX.aspx")
|
'Response.Redirect("login_FLEX.aspx")
|
||||||
'End If
|
'End If
|
||||||
ElseIf txt_Pw_M.Text = tempstr And txt_Pw_WH_M.Text = tempstr AndAlso txt_Pw.Text = String.Empty And txt_Pw_M.Text = String.Empty Then
|
ElseIf txt_Pw_M.Text = tempstr And txt_Pw_WH_M.Text = tempstr AndAlso txt_Pw.Text = String.Empty And txt_Pw_M.Text = String.Empty Then
|
||||||
|
|
||||||
Msg = "PW erfolgreich geändert!"
|
Msg = "PW erfolgreich geändert!"
|
||||||
Style = vbOKOnly + vbInformation + vbDefaultButton1
|
Style = vbOKOnly + vbInformation + vbDefaultButton1
|
||||||
Title = "Information"
|
Title = "Information"
|
||||||
|
|||||||
@@ -14,203 +14,205 @@ Partial Class login_ForgotPW
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub btn_Send_Click(sender As Object, e As EventArgs)
|
Protected Sub btn_Send_Click(sender As Object, e As EventArgs)
|
||||||
|
Try
|
||||||
|
Dim username As String = String.Empty
|
||||||
|
Dim password As String = String.Empty
|
||||||
|
Dim email As String = String.Empty
|
||||||
|
Dim tokenname As String = String.Empty
|
||||||
|
If String.IsNullOrEmpty(txtEmail_M.Text) = True And String.IsNullOrEmpty(txt_Username_M.Text) = True And String.IsNullOrEmpty(txtEmail.Text) = False And String.IsNullOrEmpty(txt_Username.Text) = False Then
|
||||||
|
regexval_2_txt_Email_M.Enabled = False
|
||||||
|
valreqtxtEmail_M.Enabled = False
|
||||||
|
valreqtxtusername_M.Enabled = False
|
||||||
|
valreqtxtusername.Enabled = True
|
||||||
|
valreqtxtEmail.Enabled = True
|
||||||
|
regexval_txt_Email_2.Enabled = True
|
||||||
|
regexval_txt_Email.Enabled = True
|
||||||
|
|
||||||
Dim username As String = String.Empty
|
valreqtxtEmail.Validate()
|
||||||
Dim password As String = String.Empty
|
If valreqtxtEmail.IsValid = True Then
|
||||||
Dim email As String = String.Empty
|
email = txtEmail.Text
|
||||||
Dim tokenname As String = String.Empty
|
ElseIf valreqtxtEmail.IsValid = False Then
|
||||||
If txtEmail_M.Text = "E-Mail" And txt_Username_M.Text = "Username" And Not txtEmail.Attributes.Item("Placeholer") = "E-Mail" And Not txt_Username.Attributes.Item("Placeholer") = "Username" And String.IsNullOrEmpty(txtEmail.Text) = False And String.IsNullOrEmpty(txt_Username.Text) = False Then
|
valreqtxtEmail.ErrorMessage = "Annotation: The given Domain is not the company domain."
|
||||||
regexval_2_txt_Email_M.Enabled = False
|
regexval_txt_Email.Validate()
|
||||||
valreqtxtEmail_M.Enabled = False
|
regexval_txt_Email_2.IsValid = True
|
||||||
valreqtxtusername_M.Enabled = False
|
|
||||||
valreqtxtusername.Enabled = True
|
|
||||||
valreqtxtEmail.Enabled = True
|
|
||||||
regexval_txt_Email_2.Enabled = True
|
|
||||||
regexval_txt_Email.Enabled = True
|
|
||||||
|
|
||||||
valreqtxtEmail.Validate()
|
|
||||||
If valreqtxtEmail.IsValid = True Then
|
|
||||||
email = txtEmail.Text
|
|
||||||
ElseIf valreqtxtEmail.IsValid = False Then
|
|
||||||
valreqtxtEmail.ErrorMessage = "Annotation: The given Domain is not the company domain."
|
|
||||||
regexval_txt_Email.Validate()
|
|
||||||
regexval_txt_Email_2.IsValid = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
valreqtxtusername.Validate()
|
|
||||||
If valreqtxtusername.IsValid = True Then
|
|
||||||
check_UserName_regex.Validate()
|
|
||||||
If check_UserName_regex.IsValid = False Then
|
|
||||||
check_UserName_regex.ErrorMessage = "Annotation: The Username does not match the requirements."
|
|
||||||
Else
|
|
||||||
If check_UserName_regex.IsValid = True Then
|
|
||||||
username = txt_Username.Text
|
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
End If
|
|
||||||
' MsgBox("3" + email + " " + username)
|
|
||||||
|
|
||||||
'Mobil
|
valreqtxtusername.Validate()
|
||||||
ElseIf txtEmail.Text = "E-Mail" And txt_Username.Attributes.Item("Username") And Not txtEmail_M.Text = "E-Mail" And Not txt_Username_M.Attributes.Item("Placeholder") = "Username" And Not String.IsNullOrEmpty(txt_Username_M.Text) = True And Not String.IsNullOrEmpty(txtEmail_M.Text) = True AndAlso String.IsNullOrEmpty(txt_Username.Text) = True And String.IsNullOrEmpty(txtEmail.Text) = True And String.IsNullOrEmpty(txtEmail_M.Text) = False And String.IsNullOrEmpty(txt_Username_M.Text) = False Then
|
If valreqtxtusername.IsValid = True Then
|
||||||
valreqtxtEmail_M.Enabled = True
|
check_UserName_regex.Validate()
|
||||||
regexval_2_txt_Email_M.Enabled = True
|
If check_UserName_regex.IsValid = False Then
|
||||||
regexval_txt_Email.Enabled = False
|
check_UserName_regex.ErrorMessage = "Annotation: The Username does not match the requirements."
|
||||||
regexval_txt_Email_2.Enabled = False
|
|
||||||
valreqtxtusername.Enabled = False
|
|
||||||
valreqtxtusername_M.Enabled = True
|
|
||||||
valreqtxtEmail_M.Validate()
|
|
||||||
|
|
||||||
If valreqtxtEmail_M.IsValid = True Then
|
|
||||||
email = txtEmail_M.Text
|
|
||||||
ElseIf valreqtxtEmail_M.IsValid = False Then
|
|
||||||
valreqtxtEmail_M.ErrorMessage = "Annotation: The given Domain is not the company domain."
|
|
||||||
regexval_txt_Email_M.Validate()
|
|
||||||
regexval_txt_Email_2.IsValid = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
valreqtxtusername_M.Validate()
|
|
||||||
If valreqtxtusername_M.IsValid = True Then
|
|
||||||
check_UserName_regex_M.Validate()
|
|
||||||
If check_UserName_regex_M.IsValid = False Then
|
|
||||||
check_UserName_regex_M.ErrorMessage = "Annotation: The Username does not match the requirements."
|
|
||||||
Else
|
|
||||||
check_UserName_regex_M.IsValid = True
|
|
||||||
End If
|
|
||||||
If check_UserName_regex_M.IsValid = True Then
|
|
||||||
username = txt_Username_M.Text
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
'Erweiterte Degub Msg-Box
|
|
||||||
'MsgBox("Userdaten in App" + Environment.NewLine + email + Environment.NewLine + username + Environment.NewLine + "Userdaten desktop" + txt_Username.Text + Environment.NewLine + txtEmail.Text + Environment.NewLine + "Userdaten Mobil:" + Environment.NewLine + txtEmail_M.Text + Environment.NewLine + txt_Username_M.Text)
|
|
||||||
If String.IsNullOrEmpty(email) = False And String.IsNullOrEmpty(tokenname) = True And String.IsNullOrEmpty(password) = True And String.IsNullOrEmpty(username) = False Then
|
|
||||||
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
||||||
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
|
|
||||||
ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
|
|
||||||
Else
|
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
||||||
ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
|
|
||||||
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
|
|
||||||
End If
|
|
||||||
|
|
||||||
Using con As New SqlConnection(ConnectionString)
|
|
||||||
' Using cmd As New SqlCommand("Validate_User")
|
|
||||||
Using cmd As New SqlCommand("SELECT Username,Password,Email FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username")
|
|
||||||
' cmd.CommandType = CommandType.StoredProcedure
|
|
||||||
cmd.Parameters.AddWithValue("@Username", username)
|
|
||||||
cmd.Connection = con
|
|
||||||
con.Open()
|
|
||||||
'userId = Convert.ToInt32(cmd.ExecuteScalar())
|
|
||||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
|
||||||
If dr.Read() Then
|
|
||||||
username = dr("Username").ToString()
|
|
||||||
password = dr("Password").ToString()
|
|
||||||
email = dr("Email").ToString()
|
|
||||||
Try
|
|
||||||
If txt_Username.Text = dr("Username").ToString() AndAlso txt_Username_M.Attributes.Item("Placeholder") = "Username" Then
|
|
||||||
check_UserName_regex_M.Enabled = False
|
|
||||||
check_UserName_regex.Enabled = True
|
|
||||||
check_UserName_regex.IsValid = True
|
|
||||||
username = txt_Username.Text
|
|
||||||
ElseIf txt_Username_M.Text = dr("Username").ToString() AndAlso txt_Username.Attributes.Item("Placeholder") = "Username" Then
|
|
||||||
check_UserName_regex.Enabled = False
|
|
||||||
check_UserName_regex_M.Enabled = True
|
|
||||||
check_UserName_regex_M.IsValid = True
|
|
||||||
username = txt_Username_M.Text
|
|
||||||
ElseIf String.IsNullOrEmpty(txt_Username_M.Text) = True AndAlso String.IsNullOrEmpty(txtEmail_M.Text) = True Then
|
|
||||||
check_UserName_regex_M.MatchTimeout = 3000
|
|
||||||
check_UserName_regex_M.ErrorMessage = "No valid Username found in out database!"
|
|
||||||
check_UserName_regex_M.IsValid = False
|
|
||||||
ElseIf String.IsNullOrEmpty(txt_Username.Text) = False Then
|
|
||||||
check_UserName_regex.MatchTimeout = 3000
|
|
||||||
check_UserName_regex.ErrorMessage = "No valid Username found in out database!"
|
|
||||||
check_UserName_regex.IsValid = False
|
|
||||||
End If
|
|
||||||
If (txtEmail.Text = dr("Email").ToString() AndAlso txtEmail_M.Attributes.Item("Placeholder") = "E-mail") Then
|
|
||||||
regexval_txt_Email_M.Enabled = False
|
|
||||||
regexval_txt_Email.Enabled = True
|
|
||||||
regexval_txt_Email.Validate()
|
|
||||||
email = txtEmail.Text
|
|
||||||
lblMessage.ForeColor = Color.Green
|
|
||||||
lblMessage.Text = "The given e-mail exists in our database."
|
|
||||||
ElseIf (txtEmail_M.Text = dr("Email").ToString() And txtEmail.Attributes.Item("Placeholder") = "E-mail") Then
|
|
||||||
regexval_txt_Email_M.Validate()
|
|
||||||
email = txtEmail_M.Text
|
|
||||||
lblMessage_M.ForeColor = Color.Green
|
|
||||||
lblMessage_M.Text = "The given e-mail exists in our database."
|
|
||||||
Else
|
|
||||||
lblMessage_M.ForeColor = Color.Red
|
|
||||||
lblMessage_M.Text = "The given e-mail does not exist in our database."
|
|
||||||
End If
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
Dim Msg, Style, Title As String
|
|
||||||
Msg = "E-Mail validation failed!" & vbCrLf + "Please try again!"
|
|
||||||
Style = vbRetry + vbExclamation + vbDefaultButton1
|
|
||||||
Title = "Authentication error!"
|
|
||||||
'MsgBox(Msg, Style, Title)
|
|
||||||
'If MsgBox(Msg, Style, Title).Yes Then
|
|
||||||
'txtEmail.Text = String.Empty
|
|
||||||
'txtEmail.Focus()
|
|
||||||
'ElseIf MsgBox(Msg, Style, Title).No Then
|
|
||||||
'End If
|
|
||||||
End Try
|
|
||||||
End If
|
|
||||||
End Using
|
|
||||||
con.Close()
|
|
||||||
End Using
|
|
||||||
If Session.Item("TokenforEmail") = Nothing Then
|
|
||||||
tokenname = genToken(username, password, email)
|
|
||||||
Session.Add("TokenforEmail", tokenname)
|
|
||||||
Session.Add("SessID", VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(Session.SessionID))
|
|
||||||
Else
|
|
||||||
tokenname = Session.Item("TokenforEmail")
|
|
||||||
End If
|
|
||||||
|
|
||||||
If SendEmail(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname)) = True Then
|
|
||||||
'password = RandomString(New Random, 10)
|
|
||||||
If (getDateoftoken(tokenname) = True) Then
|
|
||||||
'Dim msgboxstyle = vbDefaultButton1 + vbOK
|
|
||||||
'MsgBox(tokenname, msgboxstyle)
|
|
||||||
lblMessage.ForeColor = Color.Green
|
|
||||||
lblMessage.Text = "Token generated successfully."
|
|
||||||
'MsgBox("Token generated successfully.")
|
|
||||||
Else
|
|
||||||
lblMessage.ForeColor = Color.Red
|
|
||||||
lblMessage.Text = "Token is not valid anymore. Please generate a new one by sending a new e-mail!"
|
|
||||||
'MsgBox("Token is not valid anymore. Please generate a new one by sending a new e-mail!")
|
|
||||||
|
|
||||||
If Session.Item("TokenforEmail") = Nothing Then
|
|
||||||
tokenname = genToken(username, password, email)
|
|
||||||
Session.Add("TokenforEmail", tokenname)
|
|
||||||
Else
|
Else
|
||||||
tokenname = Session.Item("TokenforEmail")
|
If check_UserName_regex.IsValid = True Then
|
||||||
|
username = txt_Username.Text
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
'SendEmail(username, password, email)
|
' MsgBox("3" + email + " " + username)
|
||||||
'MsgBox("Mail would be sent successfully!")
|
|
||||||
lblMessage.ForeColor = Color.Green
|
|
||||||
lblMessage.Text = "The password has been sent sucessfully on the given valid e-mail address."
|
|
||||||
ElseIf SendEmail(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname)) = False Then
|
|
||||||
'MsgBox("Mail would not be sent successfully!")
|
|
||||||
lblMessage.ForeColor = Color.Red
|
|
||||||
If String.IsNullOrWhiteSpace(username) = True Then
|
|
||||||
lblMessage.Text = "Error10: Username not recognized Error!"
|
|
||||||
ElseIf String.IsNullOrWhiteSpace(email) = True Then
|
|
||||||
lblMessage.Text = "Error11: Email not recognized Error!"
|
|
||||||
ElseIf String.IsNullOrWhiteSpace(password) = True Then
|
|
||||||
lblMessage.Text = "An internal password searching error occured in our systems ."
|
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
Else
|
'Mobil
|
||||||
'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
|
If String.IsNullOrEmpty(txtEmail_M.Text) = False And String.IsNullOrEmpty(txt_Username_M.Text) = False And String.IsNullOrEmpty(txtEmail.Text) = True And String.IsNullOrEmpty(txt_Username.Text) = True Then
|
||||||
lblMessage.ForeColor = Color.Red
|
valreqtxtEmail_M.Enabled = True
|
||||||
lblMessage.Text = "The form has not been filled completeley."
|
regexval_2_txt_Email_M.Enabled = True
|
||||||
End If
|
regexval_txt_Email.Enabled = False
|
||||||
|
regexval_txt_Email_2.Enabled = False
|
||||||
|
valreqtxtusername.Enabled = False
|
||||||
|
valreqtxtusername_M.Enabled = True
|
||||||
|
valreqtxtEmail_M.Validate()
|
||||||
|
|
||||||
|
If valreqtxtEmail_M.IsValid = True Then
|
||||||
|
email = txtEmail_M.Text
|
||||||
|
ElseIf valreqtxtEmail_M.IsValid = False Then
|
||||||
|
valreqtxtEmail_M.ErrorMessage = "Annotation: The given Domain is not the company domain."
|
||||||
|
regexval_txt_Email_M.Validate()
|
||||||
|
regexval_txt_Email_2.IsValid = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
valreqtxtusername_M.Validate()
|
||||||
|
If valreqtxtusername_M.IsValid = True Then
|
||||||
|
check_UserName_regex_M.Validate()
|
||||||
|
If check_UserName_regex_M.IsValid = False Then
|
||||||
|
check_UserName_regex_M.ErrorMessage = "Annotation: The Username does not match the requirements."
|
||||||
|
Else
|
||||||
|
check_UserName_regex_M.IsValid = True
|
||||||
|
End If
|
||||||
|
If check_UserName_regex_M.IsValid = True Then
|
||||||
|
username = txt_Username_M.Text
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
'Erweiterte Degub Msg-Box
|
||||||
|
'MsgBox("Userdaten in App" + Environment.NewLine + email + Environment.NewLine + username + Environment.NewLine + "Userdaten desktop" + txt_Username.Text + Environment.NewLine + txtEmail.Text + Environment.NewLine + "Userdaten Mobil:" + Environment.NewLine + txtEmail_M.Text + Environment.NewLine + txt_Username_M.Text)
|
||||||
|
If String.IsNullOrEmpty(email) = False And String.IsNullOrEmpty(tokenname) = True And String.IsNullOrEmpty(password) = True And String.IsNullOrEmpty(username) = False Then
|
||||||
|
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||||
|
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
|
||||||
|
ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
|
||||||
|
Else
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||||
|
ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
|
||||||
|
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
|
||||||
|
End If
|
||||||
|
|
||||||
|
Using con As New SqlConnection(ConnectionString)
|
||||||
|
' Using cmd As New SqlCommand("Validate_User")
|
||||||
|
Using cmd As New SqlCommand("SELECT Username,Password,Email FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username")
|
||||||
|
' cmd.CommandType = CommandType.StoredProcedure
|
||||||
|
cmd.Parameters.AddWithValue("@Username", username)
|
||||||
|
cmd.Connection = con
|
||||||
|
con.Open()
|
||||||
|
'userId = Convert.ToInt32(cmd.ExecuteScalar())
|
||||||
|
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||||
|
If dr.Read() Then
|
||||||
|
username = dr("Username").ToString()
|
||||||
|
password = dr("Password").ToString()
|
||||||
|
email = dr("Email").ToString()
|
||||||
|
Try
|
||||||
|
If txt_Username.Text = dr("Username").ToString() AndAlso String.IsNullOrEmpty(txt_Username_M.Text) = True Then
|
||||||
|
check_UserName_regex_M.Enabled = False
|
||||||
|
check_UserName_regex.Enabled = True
|
||||||
|
check_UserName_regex.IsValid = True
|
||||||
|
username = txt_Username.Text
|
||||||
|
ElseIf txt_Username_M.Text = dr("Username").ToString() AndAlso txt_Username.Text = String.Empty Then
|
||||||
|
check_UserName_regex.Enabled = False
|
||||||
|
check_UserName_regex_M.Enabled = True
|
||||||
|
check_UserName_regex_M.IsValid = True
|
||||||
|
username = txt_Username_M.Text
|
||||||
|
ElseIf String.IsNullOrEmpty(txt_Username_M.Text) = True AndAlso String.IsNullOrEmpty(txtEmail.Text) = True Then
|
||||||
|
check_UserName_regex_M.MatchTimeout = 3000
|
||||||
|
check_UserName_regex_M.ErrorMessage = "No valid Username found in out database!"
|
||||||
|
check_UserName_regex_M.IsValid = False
|
||||||
|
ElseIf String.IsNullOrEmpty(txt_Username.Text) = False Then
|
||||||
|
check_UserName_regex.MatchTimeout = 3000
|
||||||
|
check_UserName_regex.ErrorMessage = "No valid Username found in out database!"
|
||||||
|
check_UserName_regex.IsValid = False
|
||||||
|
End If
|
||||||
|
If (txtEmail.Text = dr("Email").ToString() AndAlso String.IsNullOrEmpty(txtEmail_M.Text) = True) Then
|
||||||
|
regexval_txt_Email_M.Enabled = False
|
||||||
|
regexval_txt_Email.Enabled = True
|
||||||
|
regexval_txt_Email.Validate()
|
||||||
|
email = txtEmail.Text
|
||||||
|
lblMessage.ForeColor = Color.Green
|
||||||
|
lblMessage.Text = "The given e-mail exists in our database."
|
||||||
|
ElseIf (txtEmail_M.Text = dr("Email").ToString() And txtEmail.Attributes.Item("Placeholder") = "E-mail") Then
|
||||||
|
regexval_txt_Email_M.Validate()
|
||||||
|
email = txtEmail_M.Text
|
||||||
|
lblMessage_M.ForeColor = Color.Green
|
||||||
|
lblMessage_M.Text = "The given e-mail exists in our database."
|
||||||
|
Else
|
||||||
|
lblMessage_M.ForeColor = Color.Red
|
||||||
|
lblMessage_M.Text = "The given e-mail does not exist in our database."
|
||||||
|
End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
Dim Msg, Style, Title As String
|
||||||
|
Msg = "E-Mail validation failed!" & vbCrLf + "Please try again!"
|
||||||
|
Style = vbRetry + vbExclamation + vbDefaultButton1
|
||||||
|
Title = "Authentication error!"
|
||||||
|
'MsgBox(Msg, Style, Title)
|
||||||
|
'If MsgBox(Msg, Style, Title).Yes Then
|
||||||
|
'txtEmail.Text = String.Empty
|
||||||
|
'txtEmail.Focus()
|
||||||
|
'ElseIf MsgBox(Msg, Style, Title).No Then
|
||||||
|
'End If
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
End Using
|
||||||
|
con.Close()
|
||||||
|
End Using
|
||||||
|
If Session.Item("TokenforEmail") = Nothing Then
|
||||||
|
tokenname = genToken(username, password, email)
|
||||||
|
Session.Add("TokenforEmail", tokenname)
|
||||||
|
Session.Add("SessID", VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(Session.SessionID))
|
||||||
|
Else
|
||||||
|
tokenname = Session.Item("TokenforEmail")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If SendEmail(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname)) = True Then
|
||||||
|
'password = RandomString(New Random, 10)
|
||||||
|
If (getDateoftoken(tokenname) = True) Then
|
||||||
|
'Dim msgboxstyle = vbDefaultButton1 + vbOK
|
||||||
|
'MsgBox(tokenname, msgboxstyle)
|
||||||
|
lblMessage.ForeColor = Color.Green
|
||||||
|
lblMessage.Text = "Token generated successfully."
|
||||||
|
'MsgBox("Token generated successfully.")
|
||||||
|
Else
|
||||||
|
lblMessage.ForeColor = Color.Red
|
||||||
|
lblMessage.Text = "Token is not valid anymore. Please generate a new one by sending a new e-mail!"
|
||||||
|
'MsgBox("Token is not valid anymore. Please generate a new one by sending a new e-mail!")
|
||||||
|
|
||||||
|
If Session.Item("TokenforEmail") = Nothing Then
|
||||||
|
tokenname = genToken(username, password, email)
|
||||||
|
Session.Add("TokenforEmail", tokenname)
|
||||||
|
Else
|
||||||
|
tokenname = Session.Item("TokenforEmail")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
'SendEmail(username, password, email)
|
||||||
|
'MsgBox("Mail would be sent successfully!")
|
||||||
|
lblMessage.ForeColor = Color.Green
|
||||||
|
lblMessage.Text = "The password has been sent sucessfully on the given valid e-mail address."
|
||||||
|
ElseIf SendEmail(username, password, email, VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(tokenname)) = False Then
|
||||||
|
'MsgBox("Mail would not be sent successfully!")
|
||||||
|
lblMessage.ForeColor = Color.Red
|
||||||
|
If String.IsNullOrWhiteSpace(username) = True Then
|
||||||
|
lblMessage.Text = "Error10: Username not recognized Error!"
|
||||||
|
ElseIf String.IsNullOrWhiteSpace(email) = True Then
|
||||||
|
lblMessage.Text = "Error11: Email not recognized Error!"
|
||||||
|
ElseIf String.IsNullOrWhiteSpace(password) = True Then
|
||||||
|
lblMessage.Text = "An internal password searching error occured in our systems ."
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
'MsgBox("The form has not been filled completeley.", MsgBoxStyle.Critical, "Error08")
|
||||||
|
lblMessage.ForeColor = Color.Red
|
||||||
|
lblMessage.Text = "The form has not been filled completeley."
|
||||||
|
End If
|
||||||
|
Catch Exc As Exception
|
||||||
|
lblMessage.Text = "Error08: No iput found."
|
||||||
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
'Function RandomString(r As Random, max As Integer) As String
|
'Function RandomString(r As Random, max As Integer) As String
|
||||||
|
|||||||
@@ -304,7 +304,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
<tr style="color:#003680; height:55px;">
|
<tr style="color:#003680; height:55px;">
|
||||||
<td align="left" colspan="2">
|
<td align="left" colspan="2">
|
||||||
<asp:Button ID="LoginButton" runat="server" CommandName="Login" BorderStyle="None" Text="Login" ValidationGroup="Login1" target="_top" OnClientClick="bust2()" Width="320px" Font-Size="20px" style="margin-left:22px; padding:0px 0px 0px 0px"/>
|
<asp:Button ID="LoginButton" runat="server" CommandName="Login" BorderStyle="None" Text="Login" ValidationGroup="Login1" CausesValidation="true" target="_top" OnClientClick="bust2()" Width="320px" Font-Size="20px" style="margin-left:22px; padding:0px 0px 0px 0px"/>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr id="tblrowbuttons" style="color:#003680; height:37px;">
|
<tr id="tblrowbuttons" style="color:#003680; height:37px;">
|
||||||
@@ -340,11 +340,9 @@
|
|||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr style="color:#003680; height:86px;">
|
<tr style="color:#003680; height:86px;">
|
||||||
<td align="left" colspan="2">
|
<td align="left" colspan="2">
|
||||||
|
<asp:TextBox id="UserName_M" runat="server" CssClass="bg-user-icon" TextMode="SingleLine" Width = "325" ValidationGroup="txt_Username" Placeholder="Username" required="true" Font-Size="2.025em" style="margin-left:22px;color:#003680"></asp:TextBox>
|
||||||
<asp:TextBox id="UserName_M" runat="server" CssClass="bg-user-icon" TextMode="SingleLine" Width = "325" ValidationGroup="txt_Username" Placeholder="Username" required="true" Font-Size="2.025em" style="margin-left:22px;color:#003680"></asp:TextBox>
|
<asp:RequiredFieldValidator ID="UserName_M_required" runat="server" ControlToValidate="UserName_M" ErrorMessage="Please enter the Username." ToolTip="The Username is required." ValidationGroup="txt_Username"></asp:RequiredFieldValidator>
|
||||||
|
|
||||||
<asp:RequiredFieldValidator ID="UserName_M_required" runat="server" ControlToValidate="UserName_M" ErrorMessage="Please enter the Username." ToolTip="The Username is required." ValidationGroup="txt_Username"></asp:RequiredFieldValidator>
|
|
||||||
<asp:RegularExpressionValidator ID="check_UserName_M_regex" ControlToValidate="UserName_M" ValidationGroup="txt_check_username" runat="server" Display="Dynamic" SetFocusOnError="true" ValidationExpression="^([a-zA-Z]{4,30})$"></asp:RegularExpressionValidator>
|
<asp:RegularExpressionValidator ID="check_UserName_M_regex" ControlToValidate="UserName_M" ValidationGroup="txt_check_username" runat="server" Display="Dynamic" SetFocusOnError="true" ValidationExpression="^([a-zA-Z]{4,30})$"></asp:RegularExpressionValidator>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
@@ -357,7 +355,7 @@
|
|||||||
</tr>
|
</tr>
|
||||||
<tr style="color:#003680; height:143px;">
|
<tr style="color:#003680; height:143px;">
|
||||||
<td align="left" colspan="2">
|
<td align="left" colspan="2">
|
||||||
<asp:Button ID="LoginButton_M" runat="server" CommandName="Login" BorderStyle="None" Text="Login" ValidationGroup="Login1" target="_top" OnClientClick="bust2()" Width="320px" Font-Size="20px" style="margin-left:22px; padding:0px 0px 0px 0px"/>
|
<asp:Button ID="LoginButton_M" runat="server" CommandName="Login" BorderStyle="None" Text="Login" ValidationGroup="Login1" CausesValidation="true" target="_top" OnClientClick="bust2()" Width="320px" Font-Size="20px" style="margin-left:22px; padding:0px 0px 0px 0px"/>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
<tr style="color:#003680; height:46px;">
|
<tr style="color:#003680; height:46px;">
|
||||||
@@ -372,10 +370,9 @@
|
|||||||
<td align="center" style="color:Red;" colspan="2">
|
<td align="center" style="color:Red;" colspan="2">
|
||||||
<asp:Literal ID="FailureText_M" runat="server" EnableViewState="False"></asp:Literal>
|
<asp:Literal ID="FailureText_M" runat="server" EnableViewState="False"></asp:Literal>
|
||||||
</td>
|
</td>
|
||||||
</tr>
|
</tr>
|
||||||
|
|
||||||
</table>
|
</table>
|
||||||
</div>
|
</div>
|
||||||
</center>
|
</center>
|
||||||
</LayoutTemplate>
|
</LayoutTemplate>
|
||||||
</asp:Login>
|
</asp:Login>
|
||||||
|
|||||||
@@ -5,9 +5,7 @@ Partial Class login_FLEX
|
|||||||
Inherits System.Web.UI.Page
|
Inherits System.Web.UI.Page
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As EventArgs)
|
Protected Sub Page_Load(sender As Object, e As EventArgs)
|
||||||
If Not Page.IsPostBack Then
|
|
||||||
Page.Validate()
|
|
||||||
End If
|
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub ValidateUser(sender As Object, e As EventArgs)
|
Protected Sub ValidateUser(sender As Object, e As EventArgs)
|
||||||
Dim userId As Integer = 0
|
Dim userId As Integer = 0
|
||||||
@@ -62,6 +60,7 @@ Partial Class login_FLEX
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub LoginButton_Click(sender As Object, e As EventArgs)
|
Protected Sub LoginButton_Click(sender As Object, e As EventArgs)
|
||||||
|
End Sub
|
||||||
|
Protected Sub LoginButton_M_Click(sender As Object, e As EventArgs)
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
Reference in New Issue
Block a user