edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verbesserungen Bugs

Browse Source
This commit is contained in:
ja
2021-12-02 15:56:33 +01:00
parent 6c2064cf3b
commit b766107d7e
4 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/Customers.master.vb
View File

@@ -2,6 +2,7 @@
Partial Class Customers_Customers Partial Class Customers_Customers
Inherits System.Web.UI.MasterPage Inherits System.Web.UI.MasterPage
Protected isPageRefresh As Boolean = False Protected isPageRefresh As Boolean = False
Dim arr As String()
Protected Sub Page_Load(ByRef sender As Object, ByVal e As EventArgs) Protected Sub Page_Load(ByRef sender As Object, ByVal e As EventArgs)
If (Session.Item("CheckRefresh") = True) Then If (Session.Item("CheckRefresh") = True) Then
Session.Item("CheckRefresh") = Nothing Session.Item("CheckRefresh") = Nothing
@@ -19,5 +20,6 @@ Partial Class Customers_Customers
Response.Redirect("../login/Logout.aspx") Response.Redirect("../login/Logout.aspx")
End Sub End Sub
End Class End Class

9
login/Change_PW.aspx.vb
View File

@@ -22,14 +22,15 @@ Partial Class login_Change_PW
Using con As New SqlConnection(ConnectionString) Using con As New SqlConnection(ConnectionString)
' Using cmd As New SqlCommand("Validate_User") ' Using cmd As New SqlCommand("Validate_User")
Using cmd As New SqlCommand("SELECT UserId,Password,Username FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND UserId=@UserId") Using cmd As New SqlCommand("SELECT UserId,Password,Username,KundenNr FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND UserId=@UserId")
' cmd.CommandType = CommandType.StoredProcedure ' cmd.CommandType = CommandType.StoredProcedure
Dim usrname As String = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2")) Dim usrname As String = VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2"))
Dim KundenNr As String = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3")) Dim KundenNr As String = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
Dim UsrID As String = VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("Par4")) Dim UsrID As String = VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("Par4"))
Dim Email As String = VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("Par5")) Dim Email As String = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par5"))
cmd.Parameters.AddWithValue("@Username", usrname) cmd.Parameters.AddWithValue("@Username", usrname)
cmd.Parameters.AddWithValue("@UserId", UsrID) cmd.Parameters.AddWithValue("@UserId", UsrID)
cmd.Connection = con cmd.Connection = con
con.Open() con.Open()
' userId = Convert.ToInt32(cmd.ExecuteScalar()) ' userId = Convert.ToInt32(cmd.ExecuteScalar())
@@ -65,10 +66,10 @@ Partial Class login_Change_PW
End If End If
Catch exc As Exception Catch exc As Exception
lbl_messagetext.Text = exc.Message lbl_messagetext.Text = exc.Message
End Try End Try
Else Else
VERAG_VARIABLES.initerrorcount() VERAG_VARIABLES.initerrorcount()
VERAG_VARIABLES.seterrorcount(1) VERAG_VARIABLES.seterrorcount(1)
lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb + "Link is invalid. Please send a new E-Mail!" lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb + "Link is invalid. Please send a new E-Mail!"
btn_submitpw.Text = "Return to Login!" btn_submitpw.Text = "Return to Login!"

2
login/ForgotPW.aspx.vb
View File

@@ -13,7 +13,6 @@ Partial Class ForgotPW
Dim ConnectionString As String = String.Empty Dim ConnectionString As String = String.Empty
Dim salt As String = String.Empty Dim salt As String = String.Empty
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
If Page.IsPostBack = True Then If Page.IsPostBack = True Then
Page.MaintainScrollPositionOnPostBack = True Page.MaintainScrollPositionOnPostBack = True
VERAG_VARIABLES.initerrorcount() VERAG_VARIABLES.initerrorcount()
@@ -21,7 +20,6 @@ Partial Class ForgotPW
Page.MaintainScrollPositionOnPostBack = False Page.MaintainScrollPositionOnPostBack = False
VERAG_VARIABLES.initerrorcount() VERAG_VARIABLES.initerrorcount()
End If End If
End Sub End Sub
Protected Sub btn_Back_Click(sender As Object, e As EventArgs) Protected Sub btn_Back_Click(sender As Object, e As EventArgs)
Response.Redirect("login_FLEX.aspx") Response.Redirect("login_FLEX.aspx")

3
login/login_FLEX.aspx.vb
View File

@@ -121,7 +121,6 @@ Partial Class login_FLEX
If String.IsNullOrEmpty(tb3_M.Text) = False AndAlso String.IsNullOrEmpty(tb3.Text) = True Then If String.IsNullOrEmpty(tb3_M.Text) = False AndAlso String.IsNullOrEmpty(tb3.Text) = True Then
reqfieldvalpassw.Enabled = False reqfieldvalpassw.Enabled = False
reqfieldvalpassw_M.Enabled = True reqfieldvalpassw_M.Enabled = True
reqfieldvalpassw_M.Validate() reqfieldvalpassw_M.Validate()
If reqfieldvalpassw_M.IsValid = True Then If reqfieldvalpassw_M.IsValid = True Then
passw = tb3_M.Text passw = tb3_M.Text
@@ -239,6 +238,8 @@ Partial Class login_FLEX
Dim salt As String = VERAG_VARIABLES.GenerateSalt(My1stRandomNumber) Dim salt As String = VERAG_VARIABLES.GenerateSalt(My1stRandomNumber)
Dim passw As String = password Dim passw As String = password
token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(VERAG_VARIABLES.HashPassword(passw, salt, 101, My1stRandomNumber)) token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(VERAG_VARIABLES.HashPassword(passw, salt, 101, My1stRandomNumber))
Session.Add("Tokensalt", VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(token))
Session.Add("salt", VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(salt))
Return token Return token
Catch Ex As Exception Catch Ex As Exception
'Dim Msg, Style, Title As String 'Dim Msg, Style, Title As String