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

Login GUI Änderungen

Browse Source
This commit is contained in:
ja
2022-02-17 08:25:35 +01:00
parent 15b92954b4
commit f93d660558
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
login/login_FLEX.aspx.vb
View File

@@ -17,8 +17,13 @@ Partial Class login_FLEX
If Page.IsPostBack = True Then If Page.IsPostBack = True Then
Page.MaintainScrollPositionOnPostBack = True Page.MaintainScrollPositionOnPostBack = True
intzahliterats = VERAG_VARIABLES.getiterationnumber intzahliterats = VERAG_VARIABLES.getiterationnumber
If Page.User.Identity.Name = "Userwithlongername" Then
Response.Redirect("../Customers/Welcome.aspx")
ElseIf Page.User.Identity.Name = "test2" Then
Response.Redirect("../AvisoTV_FLEX.aspx")
End If
Else Else
Try Try
Dim teststr = String.Empty Dim teststr = String.Empty
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 8), Math.Pow(2, 15)) intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 8), Math.Pow(2, 15))
@@ -320,9 +325,10 @@ Partial Class login_FLEX
If reqfieldvalpassw_M.IsValid = True Then If reqfieldvalpassw_M.IsValid = True Then
Dim hashpw_M As Byte() = Await VERAG_VARIABLES.HashPasswordAsync(tb3_M.Text, salt, intzahliterats, intzahl) Dim hashpw_M As Byte() = Await VERAG_VARIABLES.HashPasswordAsync(tb3_M.Text, salt, intzahliterats, intzahl)
passw = tb3_M.Text passw = tb3_M.Text
tb3_M.Attributes.Add("style", "border: solid 2px lime")
Else Else
VERAG_VARIABLES.seterrorcount(4) VERAG_VARIABLES.seterrorcount(4)
reqfieldvalpassw_M.ErrorMessage = String.Empty reqfieldvalpassw_M.ErrorMessage = "Password does Not meet the requirements!"
End If End If
End If End If
' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString ' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString