Verbesserung LKW Methoden und AJAX Calls sowie Anpassungen der TestPerformance-Zeitoptimierungen

App_Code/VERAG_VARIABLES.vb

@@ -51,6 +51,7 @@ Public Class VERAG_VARIABLES
             Argon.DegreeOfParallelism = 32
             Argon.Iterations = nIterations * VERAG_VARIABLES.RandomInteger(2, 5)
             Argon.MemorySize = (((nIterations * 7.685 - (nIterations * 0.56) / 1.85 * 2.28) / 10.28) + 1.024 * 416)
+
             Return Argon.GetBytes(nHash)
         End If
 
@@ -69,11 +70,12 @@ Public Class VERAG_VARIABLES
         Else
             Dim Argon As Argon2id = New Argon2id(Encoding.UTF8.GetBytes(VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(password)))
             Argon.Salt = salt
-            Argon.DegreeOfParallelism = 32
+            Argon.DegreeOfParallelism = 22
             Argon.Iterations = nIterations * VERAG_VARIABLES.RandomInteger(2, 5)
             Argon.MemorySize = (((nIterations * 7.685 - (nIterations * 0.56) / 1.85 * 2.28) / 10.28) + 1.024 * 416)
             Return Await Argon.GetBytesAsync(nHash)
         End If
+
     End Function
 
     Public Shared Function Verifyhash(ByVal passw As String, salt As Byte(), ByVal hash As Byte(), ByVal nIterations As Integer, ByVal nHash As Integer) As Boolean