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

Testergebnis wird angezeigt

Browse Source
This commit is contained in:
ja
2021-12-23 08:50:31 +01:00
parent c6ea8cbf9b
commit 31d62f79d9
5 changed files with 71 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/TestPerformance.vb
View File

@@ -128,9 +128,10 @@ Public Class TestPerformance
Dim sw1 As Stopwatch = New Stopwatch
Dim sw2 As Stopwatch = New Stopwatch
Dim finalhash As Byte()
For zahl As Integer = 0 To zahlint
sw1.Start()
hashsalts.Add(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 1), Math.Pow(2, 5))))
hashsalts.Add(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 4), Math.Pow(2, 7))))
arrzahl_iterats.Add(VERAG_VARIABLES.getiterationnumber)
arrzahl.Add(zahlint)
sw1.Stop()
@@ -153,18 +154,11 @@ Public Class TestPerformance
arrzeitp3.Add(arrzeitp2.Item(zp1))
End If
Next
For Each zp2 In arrzeitp2
If arrzeitp2(zp2) > arrzeitp1(zp2) Then
arrzeitp3.Add(arrzeitp2.Item(zp2))
Else
arrzeitp3.Add(arrzeitp1.Item(zp2))
End If
Next
For Each z3 In arrzeitp3
finalarr.Add(hashbytes(z3))
Next
finalhash = finalarr.Item(0)
finalzeit = arrzeitp3.Item(0)
finalhash = finalarr.Min
finalzeit = arrzeitp3.Min
'Ausgabe
Return finalhash
End Function