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

Ändeurngen

Browse Source
This commit is contained in:
ja
2022-01-31 17:01:27 +01:00
parent b83eea65a8
commit 5f417bb8b7
5 changed files with 3164 additions and 3187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
App_Code/VERAG_VARIABLES.vb
View File

@@ -42,17 +42,16 @@ Public Class VERAG_VARIABLES
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
Dim Argon As Argon2id = New Argon2id(Encoding.UTF8.GetBytes(VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(password)))
Argon.Salt = salt
Argon.DegreeOfParallelism = 24
Argon.Iterations = nIterations * 2
Argon.MemorySize = (((nIterations * 7.98 - (nIterations * 0.23) / 4 * 2) / 4.05) + 1 * 290)
Argon.DegreeOfParallelism = 28
Argon.Iterations = nIterations * VERAG_VARIABLES.RandomInteger(2, 3)
Argon.MemorySize = My.Computer.Info.AvailablePhysicalMemory / 30
Return Argon.GetBytes(nHash)
Else
Dim Argon As Argon2id = New Argon2id(Encoding.UTF8.GetBytes(VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(password)))
Argon.Salt = salt
Argon.DegreeOfParallelism = 18
Argon.Iterations = nIterations * VERAG_VARIABLES.RandomInteger(2, 3)
Argon.MemorySize = (((nIterations * 7.685 - (nIterations * 0.56) / 1.85 * 2.28) / 10.28) + 1.024 * 416)
Argon.DegreeOfParallelism = 48
Argon.Iterations = nIterations * VERAG_VARIABLES.RandomInteger(2, 4)
Argon.MemorySize = My.Computer.Info.AvailablePhysicalMemory / 30
Return Argon.GetBytes(nHash)
End If
@@ -64,16 +63,15 @@ Public Class VERAG_VARIABLES
Dim Argon As Argon2id = New Argon2id(Encoding.UTF8.GetBytes(VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(password)))
Argon.Salt = salt
Argon.DegreeOfParallelism = 24
Argon.Iterations = nIterations * 2
Argon.MemorySize = (((nIterations * 7.98 - (nIterations * 0.23) / 4 * 2) / 4.05) + 1 * 290)
Argon.Iterations = nIterations * VERAG_VARIABLES.RandomInteger(2, 3)
Argon.MemorySize = My.Computer.Info.AvailablePhysicalMemory / 30
Return Await Argon.GetBytesAsync(nHash)
Else
Dim Argon As Argon2id = New Argon2id(Encoding.UTF8.GetBytes(VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(password)))
Argon.Salt = salt
Argon.DegreeOfParallelism = 48
Argon.Iterations = nIterations * VERAG_VARIABLES.RandomInteger(2, 4)
Argon.MemorySize = (((nIterations * 2.685 - (nIterations * 0.46) / 1.65 * 2.26) / 8.28) + 1.024 * 416)
Argon.MemorySize = My.Computer.Info.AvailablePhysicalMemory / 30
Return Await Argon.GetBytesAsync(nHash)
End If
End Function