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

Änderungen LKWs.aspx Tabellengeneriung und Performanceanpassungen bei TestPerformance.vb und dem Login-HashTest Vorgang sowie der realen Passwortverhashung.

Browse Source
This commit is contained in:
ja
2022-01-19 10:57:31 +01:00
parent 402cad3ca0
commit 1c2d48fd51
6 changed files with 1812 additions and 1820 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
login/login_FLEX.aspx.vb
View File

@@ -12,7 +12,6 @@ Partial Class login_FLEX
Public intzahliterats As Integer = -1
Protected Async Sub Page_Init(sender As Object, e As EventArgs) Handles Me.Init
VERAG_VARIABLES.initerrorcount()
End Sub
Protected Async Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -24,11 +23,11 @@ Partial Class login_FLEX
Dim teststr = String.Empty
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 7), Math.Pow(2, 10))
teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(95, Math.Pow(2, 7)))
intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 4), Math.Pow(2, 6))
teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(95, Math.Pow(2, 5)))
Else
intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 10), Math.Pow(2, 12))
teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(95, Math.Pow(2, 7)))
intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 3), Math.Pow(2, 5))
teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(95, Math.Pow(2, 6)))
End If
If String.Equals(teststr, String.Empty) = False Then
intzahliterats = VERAG_VARIABLES.getiterationnumber
@@ -255,7 +254,7 @@ Partial Class login_FLEX
Login1.FailureText = VERAG_VARIABLES.geterrornumb + "Username is not in the database!"
End If
If String.Equals(tb3.Text, dr("Password")) = True Then
intzahl = VERAG_VARIABLES.RandomInteger(95, Math.Pow(2, 7))
intzahl = VERAG_VARIABLES.RandomInteger(95, Math.Pow(2, 6))
salt = VERAG_VARIABLES.GenerateSalt(intzahl)
Dim hashpw As Byte() = Await VERAG_VARIABLES.HashPasswordAsync(passw, salt, intzahliterats, intzahl)
If Await VERAG_VARIABLES.VerifyhashAsync(dr("Password").ToString, salt, hashpw, intzahliterats, intzahl) = True Then