From 8fe113c525a16af8e33c5d5bb097509a5e8e780c Mon Sep 17 00:00:00 2001 From: ja Date: Wed, 15 Dec 2021 13:48:19 +0100 Subject: [PATCH] Implementierung Testfunktion Hashrate Server --- App_Code/TestPerformance.vb | 31 +++++++++++++++++++++++++------ 1 file changed, 25 insertions(+), 6 deletions(-) diff --git a/App_Code/TestPerformance.vb b/App_Code/TestPerformance.vb index 0728134..addafaa 100644 --- a/App_Code/TestPerformance.vb +++ b/App_Code/TestPerformance.vb @@ -113,8 +113,8 @@ Public Class TestPerformance Public Shared Sub DeleteUsers() End Sub - - Public Shared Async Function TestHashrateServer(zahlint As Integer) As Threading.Tasks.Task(Of Boolean) + Public Shared finalzeit As Long + 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