Änderungen in Abfrage Reset pW token
This commit is contained in:
ja
@@ -4,38 +4,70 @@ Imports System.Data.SqlClient
|
||||
Partial Class login_Change_PW
|
||||
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) Handles Me.Load
|
||||
Dim url = Request.ServerVariables("URL")
|
||||
Session.Add("urltochangepw", url)
|
||||
If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("TokenforEmail").ToString()) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("CustomerID").ToString()) = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par3") And VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Session.Item("test")) = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))) Then
|
||||
If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then
|
||||
Try
|
||||
txt_Pw_WH.Enabled = True
|
||||
txt_Pw.Enabled = True
|
||||
regexval_txt_Pw_WH.Enabled = True
|
||||
If IsPostBack Then
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
End If
|
||||
Catch exc As Exception
|
||||
MsgBox(exc)
|
||||
End Try
|
||||
Else
|
||||
btn_submitpw.Enabled = False
|
||||
txt_Pw.BackColor = Drawing.Color.Gray
|
||||
txt_Pw.ForeColor = Drawing.Color.DarkGray
|
||||
txt_Pw_WH.Enabled = False
|
||||
txt_Pw_WH.BackColor = Drawing.Color.Gray
|
||||
txt_Pw_WH.ForeColor = Drawing.Color.DarkGray
|
||||
txt_Pw.Enabled = False
|
||||
regexval_txt_Pw_WH.Enabled = False
|
||||
End If
|
||||
Dim ConnectionString = ""
|
||||
|
||||
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_VARIABLES.initerrorcount()
|
||||
VERAG_VARIABLES.seterrorcount(1)
|
||||
lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb + "Link ist abgelaufen. Bitte neue E-Mail senden."
|
||||
Response.Redirect("ForgotPW.aspx")
|
||||
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 KundenNr,Username FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND KundenNr=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
Dim UsrID = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
con.Open()
|
||||
' userId = Convert.ToInt32(cmd.ExecuteScalar())
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2")) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par3") = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2")) = Not Nothing) Then
|
||||
If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then
|
||||
Try
|
||||
txt_Pw_WH.Enabled = True
|
||||
txt_Pw.Enabled = True
|
||||
regexval_txt_Pw_WH.Enabled = True
|
||||
If IsPostBack Then
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
End If
|
||||
Catch exc As Exception
|
||||
lbl_messagetext.Text = exc.Message
|
||||
End Try
|
||||
Else
|
||||
btn_submitpw.Enabled = False
|
||||
txt_Pw.BackColor = Drawing.Color.Gray
|
||||
txt_Pw.ForeColor = Drawing.Color.DarkGray
|
||||
txt_Pw_WH.Enabled = False
|
||||
txt_Pw_WH.BackColor = Drawing.Color.Gray
|
||||
txt_Pw_WH.ForeColor = Drawing.Color.DarkGray
|
||||
txt_Pw.Enabled = False
|
||||
regexval_txt_Pw_WH.Enabled = False
|
||||
End If
|
||||
Else
|
||||
VERAG_VARIABLES.initerrorcount()
|
||||
VERAG_VARIABLES.seterrorcount(1)
|
||||
lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb + "Link ist abgelaufen. Bitte neue E-Mail senden."
|
||||
Response.Redirect("ForgotPW.aspx")
|
||||
End If
|
||||
dr.Close()
|
||||
End If
|
||||
End Using
|
||||
con.Close()
|
||||
End Using
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
|
||||
@@ -49,11 +81,11 @@ Partial Class login_Change_PW
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs)
|
||||
Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs) Handles btn_submitpw.Click
|
||||
Dim tempstr As String = ""
|
||||
Dim Msg, Style, Title As String
|
||||
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = Not True Then
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_M.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = Not True Then
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt.Enabled = True
|
||||
@@ -139,9 +171,7 @@ Partial Class login_Change_PW
|
||||
Catch ex As Exception
|
||||
lbl_messagetext.Text = ex.Message
|
||||
End Try
|
||||
Msg = "PW erfolgreich geändert!"
|
||||
Style = vbOKOnly + vbInformation + vbDefaultButton1
|
||||
Title = "Information"
|
||||
|
||||
regexval_txt_Pw.ForeColor = Drawing.Color.Green
|
||||
regexval_txt_Pw.Text = "Password has been changed successfully!"
|
||||
'MsgBox(Msg, Style, Title)
|
||||
@@ -188,10 +218,10 @@ Partial Class login_Change_PW
|
||||
Dim nameoftoken = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(tokenname)
|
||||
If wenn < DateTime.UtcNow.AddMinutes(-30) Then
|
||||
nameoftoken = String.Empty
|
||||
If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("Mob").ToString()) = "True" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Mob").ToString()) = "True" Then
|
||||
VERAG_VARIABLES.seterrorcount(101)
|
||||
lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb + "Token has not been found or is too old!" + Environment.NewLine + "Please send a new E-mail!"
|
||||
ElseIf VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Session.Item("Mob").ToString()) = "False" Then
|
||||
ElseIf VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Mob").ToString()) = "False" Then
|
||||
VERAG_VARIABLES.seterrorcount(101)
|
||||
lbl_messagetext_M.Text = VERAG_VARIABLES.geterrornumb + "Token has not been found or is too old!" + Environment.NewLine + "Please send a new E-mail!"
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user