Implementierung Testfunktion Hashrate Server

App_Code/TestPerformance.vb

@@ -113,8 +113,8 @@ Public Class TestPerformance
     Public Shared Sub DeleteUsers()
 
     End Sub
-
+    Public Shared finalzeit As Long
-    Public Shared Async Function TestHashrateServer(zahlint As Integer) As Threading.Tasks.Task(Of Boolean)
+    Public Shared Async Function TestHashrateServer(zahlint As Integer) As Threading.Tasks.Task(Of Byte())
         Dim arrkeys As New List(Of Byte())
         Dim arrzahl As New List(Of Integer)
         Dim arrzahl_iterats As New List(Of Integer)
@@ -122,11 +122,10 @@ Public Class TestPerformance
         Dim arrzeitp1 As New List(Of Long)
         Dim arrzeitp2 As New List(Of Long)
         Dim arrzeitp3 As New List(Of Long)
-        Dim arrzeitp4 As New List(Of Long)
+        Dim finalarr As New List(Of Byte())
-
         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()
             arrkeys.Add(VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(0, zahlint)))
@@ -145,6 +144,26 @@ Public Class TestPerformance
             sw2.Reset()
         Next
 
-        Return False
+        For Each zp1 In arrzeitp1
+            If arrzeitp1(zp1) < arrzeitp2(zp1) Then
+                arrzeitp3.Add(arrzeitp1.Item(zp1))
+            Else
+                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)
+        'Ausgabe
+        Return finalhash
     End Function
 End Class