From e43a9a3cdfffc7dbb61f48bb2231d6654ba8efc3 Mon Sep 17 00:00:00 2001 From: ja Date: Fri, 17 Dec 2021 14:19:08 +0100 Subject: [PATCH] Mehr randomness generierung hashtests --- App_Code/VERAG_VARIABLES.vb | 2 +- Customers/Default2.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/VERAG_VARIABLES.vb b/App_Code/VERAG_VARIABLES.vb index cdd8fb1..a18c1f7 100644 --- a/App_Code/VERAG_VARIABLES.vb +++ b/App_Code/VERAG_VARIABLES.vb @@ -42,7 +42,7 @@ Public Class VERAG_VARIABLES Dim Argon As Argon2d = New Argon2d(Encoding.UTF8.GetBytes(VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(password))) Argon.Salt = salt Argon.DegreeOfParallelism = 36 - Argon.Iterations = nIterations * 2 + Argon.Iterations = nIterations * 3 Argon.MemorySize = (((nIterations * 1.385 - (nIterations * 0.56) / 1.95 * 2.28) / 5.18) + 1.024 * 316) Return Argon.GetBytes(nHash) End If diff --git a/Customers/Default2.aspx.vb b/Customers/Default2.aspx.vb index 62d7b29..6f1e19e 100644 --- a/Customers/Default2.aspx.vb +++ b/Customers/Default2.aspx.vb @@ -35,6 +35,6 @@ Partial Class Customers_Default2 End Sub Protected Sub btn_TesthashrateServer_ClickAsync(sender As Object, e As EventArgs) Handles btn_TesthashrateServer.Click - Dim pwhashresult As Byte() = TestPerformance.TestHashrateServer(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 4), Math.Pow(2, 8))) + Dim pwhashresult As Byte() = TestPerformance.TestHashrateServer(VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 3), Math.Pow(2, 5)), VERAG_VARIABLES.RandomInteger(Math.Pow(2, 6), Math.Pow(2, 10)))) End Sub End Class